[VBS] Netzwerkadapter

[ang3l]

ich suchte nach einer lösung um den netzwerkadapter per script zu deaktivieren (auf vista). gefunden habe ich folgendes:

Set oShell = CreateObject( "WScript.Shell" )
strComputer = oShell.ExpandEnvironmentStrings("%ComputerName%")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.Execquery("Select * from Win32_NetworkAdapter Where NetEnabled=True")

For Each Adapter in colAdapters
	WScript.Echo Adapter.DeviceId & vbTab & Adapter.Name
Next

errReturn = colAdapters.ItemIndex(0).Disable()

If errReturn <> 0 Then
	WScript.Echo "Enable Network adapter failed for adapter= " & colAdapters.ItemIndex(0).DeviceId
Else 
	WScript.Echo "Enable Network adapter succeeded for adapter= " & colAdapters.ItemIndex(0).DeviceId 
End If

WScript.Echo "NetEnabled= " & colAdapters.ItemIndex(0).NetEnabled

ein beispiel kann man auf msdn finden.

jetzt probierte ich diesen code aus. er läuft zwar durch aber netzwerkadapter ändern tut er nicht. funktioniert er bei euch bzw habt ihr eine idee wieso er nichts tut?

 

[IceMatrix]

haste den skript als administrator laufen lassen?