Set obj = GetObject _
	("winmgmts:\\.\root\cimv2")
Set objTargets = obj.ExecQuery( _
	"select * from Win32_NetworkAdapterConfiguration " & _
	"where IPEnabled = True" _
	)
For Each objTarget in objTargets
	Wscript.Echo "Caption: " & objTarget.Caption
	Wscript.Echo "MACAddress: " & objTarget.MACAddress
	For Each objAddress in objTarget.IPAddress
		Wscript.Echo "IP Address: " & objAddress
	Next
Next