Tilføje client ip til ISA 2000 server

Hej Xperter

Jeg har et lille problem som jeg ikke har kunne finde en løsning på, så jeg tænkte jeg ville prøve her.

Jeg skal bruge et .vbs script på min ISA 2000 firewall der kan tilføje en IP til mit "Terminal Services External Client Address Set".

Jeg har prøvet at lave følgende script ud fra et andet script fra MS til at importerer settings.
Men der er nok en masse overflødig halløj i det, og jeg kan ikke rigtigt gennemskue det.

Det skal lige siges at det her er mit første forsøg med VBS, så jeg har sikkert brug for en masse hjælp :) Derfor de mange points.

<-- start script -->

Const ERROR_ALREADY_EXISTS = 183
Sub CheckError()
    On Error Resume Next
    If (Err.Number <> 0) And (Err.Number <> ERROR_ALREADY_EXISTS) Then
        MsgBox "An error has occured:"& vbCrLf & Err.Description & Err.Number
        WScript.Quit Err.Number
    End If
End Sub

On Error Resume Next
Set ISA = CreateObject("FPC.Root")
ISA.Refresh
Set IPnum = InputBoxAnswer("Skriv den IP der skal tilføjes til Terminal brugere", "Terminal Brugere", "0.0.0.0")
Set ISAArray = ISA.Arrays.GetContainingArray
Set Elements = ISAArray.PolicyElements
Set APolicy = ISAArray.ArrayPolicy
Set Publishing = ISAArray.Publishing
Set RoutingRules = ISAArray.NetworkConfiguration.RoutingRules

'-------------------------------------------------------


Set NewDefinition = ClientSets.Add ("Extertal Terminal Services Users")
CheckError
NewDefinition.Description = "A list of IP addresses of hosts outside the network allowed to access Terminal Services on the inside"
   
    NewDefinition.Add IPnum,IPnum
    CheckError

ClientSets.Save
CheckError
MsgBox "ImportISASettings finished succesfully. You should restart your ISA services."

<-- slut script -->