Infos zum Thema scripting

iEthernet = 0 Set oWMIService = GetObject("winmgmts:\\.\root\CIMV2") Set oShell = CreateObject("WScript.Shell") Set colItems = oWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter",,48) For Each oItem In colItems If (oItem.AdapterTypeId = iEthernet) Then sNetID = oItem.NetConnectionID If oItem.NetConnectionStatus = 7 Then oShell.run "cmd /c netsh interface set interface " & Chr(34) & sNetID & Chr(34) & " DISABLED",0,TRUE End If End If Next