Moin Forum,
unter XP habe ich für mehrere Clients ein vbs-script, um eine Netzwerkverbindung zu aktivieren oder zu deaktivieren.
Nun wollte ich das Script auch ganz gerne auf Windows7 einsetzen, nur klappt das da nicht, weil es keinen Ordner „Netzwerkverbindungen“ gibt.
Hat jemand eine Idee, wie ich dennoch auf die Verbindung zugreifen kann???
Hier mal das Script, welches unter XP wunderbar funktioniert:
Const ssfCONTROLS = 3
sConnectionName = "Drahtlosnetzwerkverbindung"
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 "Netzwerkverbindung kann nicht gefunden werden!"
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 "Kann '" & sConnectionName & "' nicht finden!"
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
if bEnabled then
oDisableVerb.DoIt
else
oEnableVerb.DoIt
end if
wscript.sleep 1000
(NEIN, ich kann devcon oder eine Vernknüpfung auf dem Desktop nicht nutzen 
)
lg Micha