Hallo Autoit-Spezialisten,
ich hätte eine Bitte:
Ich hatte mal im Access die dhcpobjs.dll
eingebunden ....
Code
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
Alles anzeigen
Nur leider weiß ich nicht wie man das mit Autoit machen kann, könnte ev. jemand
obiges code snip in Autoitsyntax umwandeln?
Wenn ich wüsste wie das mit der Dll und den Objekten geht käm ich auch schon weiter.
Wäre echt super !!
Danke
THX
wope