123

Dokumentation/Classes/DHCP.vb

@@ -74,10 +74,16 @@ Public Class DHCP
     Public Shared Sub ListSubnetClients(DHCP_Server As String, Scope As String, ByRef DHCP_Clients() As DHCP_CLIENT_INFO)
 
         'Dim Client_Array As DHCP_CLIENT_INFO_ARRAY
-        'Dim DHCP_Clients() As DHCP_CLIENT_INFO
+        ' Dim DHCP_Clients() As DHCP_CLIENT_INFO
 
         ' Why would you use int16 for a loop counter and for a pointer offset ?
 
+        'If My.Computer.Network.Ping(DHCP_Server) Then
+        'Else
+        '    MsgBox("DHCP Server nicht erreichbar")
+        '    Exit Sub
+        'End If
+
         Dim i, j As Int16