Hi Leute,
Kann man per Tastenkomination die Lan Verbindung deaktivieren und wieder aktivieren ???
Welches Betriebssystem verwendest du denn und mit welchen Rechten bist du dort angemeldet...Gast, Benutzer oder Admin ???
Also als Admin ist ja mein PC^^
Betriebssytem ist Windows XP Pro.
Ich hoffe das hilft
Ich habe hier (http://www.essential-freebies.de/board/viewtopic.php?p=65469) folgendes VBScript gefunden mit dem es bei mir funktioniert.
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
Dieses Script habe ich mit dem Editor als lan_switch.vbs abgespeichert. Nach Aufruf des Scriptes wird die Netzwerkkarte deaktiviert bzw. aktiviert.
Wenn du das jetzt noch mit einer Tastenkombination aufrufen willst, dann musst du eine Desktopverknüpfung erstellen und in den Eigenschaften dieser Verknüpfung eine Tastenkombination zuweisen z.B. Strg+Alt+L
Danke funktioniert^^