28. März 2024, 09:52:34 Uhr

Lan Anschlus

Begonnen von Thydus, 19. Juli 2008, 16:04:09 Uhr

⏪ vorheriges - nächstes ⏩

0 Mitglieder und 1 Gast betrachten dieses Thema.

Thydus

Hi Leute,

Kann man per Tastenkomination die Lan Verbindung deaktivieren und wieder aktivieren ???


tyco

Welches Betriebssystem verwendest du denn und mit welchen Rechten bist du dort angemeldet...Gast, Benutzer oder Admin  ???
Bitte keine Supportanfragen per PM stellen.

Thydus

Also als Admin ist ja mein PC^^
Betriebssytem ist Windows XP Pro.

Ich hoffe das hilft

tyco

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
Bitte keine Supportanfragen per PM stellen.

Thydus