servus an alle
also potassium schreibt das tool eigentlich für mich
er hatte es schon funktionierend auf seinem pc(winxp)
dann hatt er es mir geschickt schau da ist es ein automatisierungs fehler kann uns wer helfen bitte
------------------------
sorce
Private Sub cmdPrüfen_click()
lbl.Caption = "Untersuche Netzwerk..."
For i = 1 To 15
strMachines = "192.168.0." & i
aMachines = Split(strMachines, ";")
For Each machine In aMachines
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonat e}").ExecQuery("select * from Win32_PingStatus where address = '" & machine & "'")
For Each objStatus In objPing
If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
temp = temp & vbCrLf & ("IP-Adresse " & machine & " ist in diesem Netzwerk nicht vergeben")
Else
temp = temp & vbCrLf & ("IP-Adresse " & machine & " ist in diesem Netzwerk bereits vergeben")
End If
Next
Next
Next i
lbl.Caption = temp
End Sub
-------------
Fehler
hier