WLAN-Verbindungen
lima-city → Forum → Heim-PC → Netzwerke
action
alway
anfhrungszeichen
connections
datei
display
exit
gert
item
let
mglichkeit
netzwerkverbindung
not
rar beitrag
router
set
verb
vielen dank
wichtig bitte
wichtige frage
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Ja es ist möglich wie genau musst du mal durch googeln herrausfinden ich weiss nur das es aufjedenfall geht
Naja sry das ich dir net mehr sagen kann -
welchen router benutz du den, den das ist eine wichtige frage, was das starten von W-LAN via Batch-datei anbetrifft?
-
Das kann mit dem Aufbauen bzw mit dem Trennen der WLAN-Verbindung gar nichts zu tun haben, da es einfach um die Deaktivierung des WLANs eines lokalen PC's geht. Das hat mit dem Router nichts zu tun. Das ist das gleiche als ob du eine LAN-Verbindung trennst und das hat ja auch nichts mit dem Gerät am anderen Ende des Kabels zu tun -.-
-
sorry, hatte vorhin an was anderes gedacht
-
Warum muss es immer cmd sein :)
Hier ist ein VB Script welches eine Netzwerkverbindung deaktivieren und aktivieren kann, es muss nur der "sConnectionName" angepasst werden auf die entsprechende Bezeichnung der Netzwerkverbindung:
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
Da ganze muss in eine Datei mit der Endung *.vbs gespeichert werden. Zu beachten ist das es wohl nur mit Admin Rechten funktionieren wird.
Bei jedem Aufruf ändert das Script den Zustand des Adapters! Also es kann dazu benutzt werden, die Lan-Verbindung zu aktivieren oder zu deaktivieren.
MfG tof-devil
PS WICHTIG: Bitte nicht den script aus dem lima-city post kopieren, da lima die Anführungszeichen falsch darstellt, hier findet ihr die datei zum download:[/b]
http://download.lima-city.de:81/tof-devil/LAN-Verbindung_aktivieren_oder_deaktivieren.rar
Beitrag geaendert: 21.4.2007 19:05:25 von tof-devil -
Hallo zusammen,
gib es eine Möglichkeit das Script auch an einem englisch sprachigen System zu verwenden ? Ich hab probiert einfach den Folderitem:name auf „Network Connections“ zu setzen aber irgendwie funktioniert das nicht.
Vielen Dank im Voraus
-
hier die Lösung für eine englisches System:
Const ssfCONTROLS = 3
sConnectionName = "Local Area Connection"
sEnableVerb = "En&able"
sDisableVerb = "Disa&ble"
set shellApp = createobject("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)
set oNetConnections = nothing
for each folderitem in oControlPanel.items
if folderitem.name = "Network Connections" then
set oNetConnections = folderitem.getfolder: exit for
end if
next
if oNetConnections is nothing then
msgbox "Couldn't find 'Network Connections' 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 -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
