Frågan#1
En liten funktion som kan säga om ett IP är inom en viss range.
Function CheckIP(ByVal sIP, ByVal sFirstRangeIP, ByVal sLastRangeIP)
Dim vTmp, lIP, lFirstIP, lLastIP
vTmp = Split(sIP, ".")
lIP = vTmp(0) * 1000000000 + vTmp(1) * 1000000 + vTmp(2) * 1000 + vTmp(3)
vTmp = Split(sFirstRangeIP, ".")
lFirstIP = vTmp(0) * 1000000000 + vTmp(1) * 1000000 + vTmp(2) * 1000 + vTmp(3)
vTmp = Split(sLastRangeIP, ".")
lLastIP = vTmp(0) * 1000000000 + vTmp(1) * 1000000 + vTmp(2) * 1000 + vTmp(3)
CheckIP = (lIP >= lFirstIP And lIP <= lLastIP)
End Function