strComputer = "." Set objWMIService = GetObject _ ("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration " & _ "Where IPEnabled = True") For Each objItem in colItems Wscript.Echo "Caption: " & objItem.Caption Wscript.Echo "MAC: " & objItem.MACAddress For Each objAddress in objItem.IPAddress Wscript.Echo "IP Address: " & objAddress Next For Each objSubnet in objItem.IPSubnet Wscript.Echo "Subnet: " & objSubnet Next Next