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