VBScript: Get a computer's IP address(es)

Submitted by Matthew Clark on Mon, 07 Sep 2009 - 02:19

Filed under:

Returns a string of addresses, separated by pipe (|), with a leading pipe:
|192.168.0.12|172.16.31.64|10.1.1.2

Function GetIPAddress
	Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
	Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE",,48)
 
	ipList = ""
 
	For Each objItem In colItems
		ipList = ipList & "|" & Join(objItem, "|")
	Next
 
	GetIPAddress = ipList
End Function

163 reads

Post new comment