strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")
tmp=""
For Each objItem in colItems
tmp = tmp & objItem.NetConnectionID & vbcrlf
if objItem.NetConnectionID = "Local Area Connection" then
'Wscript.Echo "boom!"
objItem.Disable
WScript.Sleep 1000
objItem.Enable
'Wscript.Echo "reset!"
exit for
end if
Next
'Wscript.Echo tmp