strcomputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

for each objitem in colitems
  strIPAddress = Join(objitem.IPAddress, ",")
  IP = stripaddress
  wscript.echo ip
next