Er IP inden for defineret range?

Hvor sætter du strIPAddress til en værdi?
Jeg prøvede at teste din funktion ved at sætte strIPAddress til nogle forskellige IPer, og den ser umiddelbart ud til at virke fint.

Ja men det så nok der problemet faktisk ligger, fordi det gøres ingen steder.

strIPAddress skal være lige med maskinens IP adresse, så det der mangler en funktion der trækker maskinens ip adresse ud og sætter lige med strIPAddress

Lidt google hjalp, fandt et script der piller ip adresser(ne) ud:

On Error Resume Next
Dim strComputer
Dim objWMIService
Dim propValue
Dim objItem
Dim SWBemlocator

Dim colItems

strComputer = "."
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"\root\CIMV2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration",,48)
For Each objItem in colItems
   
    For Each propValue in objItem.IPAddress
        If Not Isnodata(propValue) Then MsgBox "Your IP Address is: " & propValue
    Next
   
Next
'-------------------------------------------------------------------------------------
'=====================================================================================
' TITLE:            IsNoData
'
' PURPOSE:              Verify if passed parameter variable contain something.
'
' RETURN:            True if contain something, otherwise, False.
'
' HOW TO USE:        intResult = IsNoData(varSource) or
'                    If IsNoData(varSource) Then do something.
'
' AUTHOR:          Christian Sawyer
' ====================================================================================
Function IsNoData(varVal2Check)
    'Verify if varVal2Check contain something.
    On Error Resume Next
    If IsNull(varVal2Check) Or IsEmpty(varVal2Check) Then
        IsNoData = True
    Else
        If IsDate(varVal2Check) Then
            IsNoData = False
        ElseIf varVal2Check = "" Then
            IsNoData = True
        ElseIf Not IsObject(varVal2Check) Then
            IsNoData = False
        Else
            IsNoData = False
        End If
    End If
End Function

Hvilket også er fint, nok, men så skal det bare mixes sammen med det jeg har i forvejen og så kommer nok også en anden problemstilling, der kan jo kommer flere ip adresser, pga. flere netværkskort, men det er nok hvis bare en af dem opfylder mine "krav"