strComputer = “.” Set objWMIService = GetObject( _ “winmgmts:\\” & strComputer & “\root\cimv2”) Set IPConfigSet = objWMIService.ExecQuery _ (“Select IPAddress from Win32_NetworkAdapterConfiguration” _ & ” where IPEnabled=TRUE”) For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For i=LBound(IPConfig.IPAddress) _ to UBound(IPConfig.IPAddress) WScript.Echo IPConfig.IPAddress(i) Next End If Next