strIPAddress = GetIP
aIPs = Split (strIPAddress, ",")
for x = 0 to UBound(aIPs)
siptosplit = aIPs(x)
aoctet = Split (siptosplit, ".")
for n = 0 to Ubound(aoctet)
stroctet = aoctet(n)
wscript.echo "IP" & x + 1 & "Octet" & n + 1 & "=" & stroctet
next
next