15 IPs pingen und antowrt erhalten (mit vb)

[Nightman]

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