On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter Where NetConnectionStatus <> 2 AND NetConnectionStatus Is Not NULL AND NetEnabled = TRUE") ret = "0" For Each objItem in colItems ret = "1" WScript.Echo objItem Next WScript.Echo ret