DHCP Reservierungen per autoit setzen

Sub SetDhcp(parUniqueID As String _
            , parAddress As String, parName As String, parComment As String _
            , Optional strIP_DHCPServer As String = "10.47.1.1")


Application.References.AddFromFile "C:\winReskit\dhcpobjs.dll"


Dim DHCPmgr As New DhcpObjects.Manager
Dim DHCPsrvr As DhcpObjects.Server
Dim DHCPscope As DhcpObjects.Scope
Dim DHCPRes As DhcpObjects.Reservation
HlpScopeCount = DHCPsrvr.Scopes.Count


For HlpCnt1 = HlpScopeCount To 1 Step -1
    Set DHCPscope = DHCPsrvr.Scopes(HlpCnt1)
    Debug.Print DHCPscope.Name + ", " + DHCPscope.Address + ", " + DHCPscope.EndAddress

    HlpResCount = DHCPscope.Reservations.Count
    For HlpCnt2 = 1 To HlpResCount
        Set DHCPRes = DHCPscope.Reservations(HlpCnt2)
        'sonderzeichen am Ende entfernen ( 0 keinen Ahnung wiso der dabei ist)
        If Asc(Right(DHCPRes.UniqueID, 1)) = 0 Then
            HlpstrUniqueId = Left(DHCPRes.UniqueID, Len(DHCPRes.UniqueID) - 1)
        Else
            HlpstrUniqueId = DHCPRes.UniqueID
        End If

        If HlpstrUniqueId = parUniqueID Then
            DHCPRes.Delete
            DHCPscope.Update
            Exit For '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

        End If

    Next HlpCnt2
    Err.Clear
    On Error Resume Next
        DHCPscope.Reservations.Add _
        parAddress, _
        parUniqueID, _
        parName, _
        parComment
        DHCPscope.Update
        If Err.Number <> 0 Then
            MsgBox "Fehler: " & Format(Err.Number), vbCritical, Err.Description
        End If
    On Error GoTo 0


Next HlpCnt1

DHCPsrvr.Disconnect


End Sub