mit Visual Basic Rechner pingen?

[lordfritte]

Hallo wie kann ich mit Visual Basic .NET 2005 in einer Windows Anwendung eine IP adresse pingen?

 

[DrSoong]

Da mochte ich dich bitten, deine Frage im .NET-Unterforum zu stellen. Seit .NET ist die Syntax etwas geändert, dem wier hier mit einem eigenen Unterforum Rechnung getragen. ier bitte nur Fragen bis VB6 rein.

Zum Thema: Ich weiß nicht, inwieweit du/man es konvertieren kann, für VB6 gibts aber hier was. Alternativ könntest du den DOS-Ping verwenden und mit der Pipe das Ergebnis in eine Datei schreiben und die Datei dann auswerten.

'In DOS pingen und das Ergebnis in eine Datei schreiben,
'die DOS-Zeile lautet dann
ping 88.198.54.51 >pingtext.txt

Der Doc!

 

[Hawkings]

Entwerder so :

Vorher Ping eingeben, bzw. übergeben, oder als Const (hier halt in vbs, aber umschreiben kein problem)
	Set WshShell = WScript.CreateObject("wscript.shell")
	lCommand = "ping " & ip
	lResult = wshshell.Run(lCommand, 0, True)

oder so:

StrComputer = "."

Set ObjShell = WScript.CreateObject("WScript.Shell")
Set ObjShell2 = WScript.CreateObject("Wscript.Shell")

Set ObjWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & StrComputer & "\root\cimv2")
Set ColPingedComputer = ObjWMI.ExecQuery("Select * from Win32_PingStatus Where Address = '192.8.0.7'")

For Each ObjComputer In ColPingedComputer
If ObjComputer.StatusCode = 0 Then
Wscript.Echo ObjComputer.Address & " hat geantwortet!"
Else
Wscript.Echo ObjComputer.Address & " hat nicht geantwortet!"
End If
Next

 

[DrSoong]

@Hawkings : Gefragt war eine Lösung für

Visual Basic .NET 2005

und da hab ich ihn auch ins NET-Unterforum verwiesen.


Der Doc!