Reconnect via 1 or 2 Clicks

[Zentral]

Hi,

ich suche n Tool, kann meinetwegen auch ne simple *.bat Datei sein (wenn es möglich ist). Sollte per Doppelklick (Windows Standard halt ;P) zu aktivieren sein. Auslösen soll es einen Disconnect, 8 ms - 1 s Pause und wieder Reconnect. //DFÜ Netzwerk (kein Router)//

Auto-IT Script wäre natürlich auch was feines. Am besten unkompiliert damit ich dort meine Änderungen vornehmen könnte. Ich kann das leider nicht wirklich umsetzen da ich ehrlich gesagt nicht wirklich Ahnung vom Programmieren in dieser Art habe.

Wäre super wenn mir jemand helfen könnte. Ein Beispielscript würde natürlich auch schon reichen.

Konnte nichts wirklich bei Google finden ausser irgendwelche Tools bei denen mir aber zu viele Funktionen dabei sind. Umso simpler desto besser.

[termi]

Ich kann dir dafür ein VB-Script anbieten

Const ssfCONTROLS = 3

sConnectionName = "LAN-Verbindung"

sEnableVerb = "&Aktivieren"
sDisableVerb = "&Deaktivieren"

set shellApp = createobject("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)

set oNetConnections = nothing
for each folderitem in oControlPanel.items
  if folderitem.name  = "Netzwerkverbindungen" then
    set oNetConnections = folderitem.getfolder: exit for
  end if
next

if oNetConnections is nothing then
  msgbox "Couldn't find 'Netzwerkverbindungen' folder"
  wscript.quit
end if

set oLanConnection = nothing
for each folderitem in oNetConnections.items
  if lcase(folderitem.name)  = lcase(sConnectionName) then
    set oLanConnection = folderitem: exit for
  end if
next

if oLanConnection is nothing then
  msgbox "Couldn't find '" & sConnectionName & "' item"
  wscript.quit
end if

bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
s = "Verbs: " & vbcrlf
for each verb in oLanConnection.verbs
  s = s & vbcrlf & verb.name
  if verb.name = sEnableVerb then
    set oEnableVerb = verb 
    bEnabled = false
  end if
  if verb.name = sDisableVerb then
    set oDisableVerb = verb 
  end if
next

'debugging displays left just in case...
'
'msgbox s ': wscript.quit
'msgbox "Enabled: " & bEnabled ': wscript.quit

'not sure why, but invokeverb always seemed to work
'for enable but not disable. 
'
'saving a reference to the appropriate verb object
'and calling the DoIt method always seems to work.
'
if bEnabled then
'  oLanConnection.invokeverb sDisableVerb
  oDisableVerb.DoIt
else
'  oLanConnection.invokeverb sEnableVerb
  oEnableVerb.DoIt
end if

'adjust the sleep duration below as needed...
'
'if you let the oLanConnection go out of scope
'and be destroyed too soon, the action of the verb
'may not take...
'
wscript.sleep 1000

Du musst sConnectionName anpassen das es auf deine Verbindung passt.

Quelle: