talatham
6/12/2013 - 2:28 PM

Convert IP address to integer format.

Convert IP address to integer format.

convertip.vbs
content_copyfile_download
' ------------------------------------------------------------
' Convert IP Address - convert IP Address to integer format
' ------------------------------------------------------------
Function ConvertIP(IPAddress)
	
  Dim IPnumber, IPArray, counter
		
	IPArray = Split(IPAddress,".")
	IPNumber = CDbl(0)
	For counter = 0 To UBound(IPArray)
		IPNumber = IPNumber * 256 + IPArray(counter)
	Next
		
	ConvertIP = IPNumber
	
End Function