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 For Each objAddress in objItem.IPAddress Wscript.Echo "IP Address: " & objAddress strIPAddress = objAddress Next Next