Oh yea, if you want to snag the IP info of a remote system, that is to say run it from your box and get the IPs of another, where it has:
Set WMI = GetObject("winmgmts:" & "!\\.\root\cimv2")
Replace the . in !\\.\ with the name of the PC to scan.