Jump to content

Pingtool selbst gemacht


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Geschrieben

Hallo Leute

 

Kann man z.B mit vb 6.0 so ein Tool erstellen wo man die IP-Adresse

192.168.132.1 eingebe das dann das cmd Fenster erscheint und

dann dort die Antwort präsentiert wird z.b "Antwort von 192.168.132.1

etc.

 

Geht sowas?

 

Gruss

 

Commander1981

Geschrieben

Hallo

 

Ich sags nur ungern aber bin manchmal schreibfaul wenn ich es jedes mal

in cmd ping dann adresse und dan -t eingeben muss

wenns nur ein host ist kein Problem aber wenns mehere Host sind

wie in mein Netzwerk 5 clients dann ist des schon manchmal bequemer

wenn ich mit so ein tool ganz einfach nur die IP-Adresse des hosts eingeben

will

 

Gruss

 

Commander1981

Geschrieben

Moin,

 

aha, und deshalb willst du, dass dir jemand in VB6 sowas schreibt, oder wie?

 

Vorschlag zur Güte: Bau dir eine p.bat, die du irgendwo in den Suchpfad legst. Inhalt:

 

@echo off
ping %1
pause

 

Das rufst du dann direkt aus der Ausführen-Zeile im Startmenü auf mit "p 192.168.1.1".

 

Gruß, Nils

Geschrieben

Ich unterstütze zwar nur ungern Faulheit, aber vielleicht hilft Dir das weiter...

Ist ein kleines VB-Script, bitte in Editor eingeben und unter ping.vbs abspeichern.

' (C) 2010 Markus Kafurke, marka-it.net

str_frage= "Welcher Host soll angepingt werden?" & vbcr & "(PING dauert ein paar Sekunden)" & vbcr & vbcr & "Stellen Sie sicher, dass ggf. in der Firewall des Zielhostes das Protokoll 'ICMP' zugelassen wird." &vbcr& "Anderenfalls kann es sein, dass der Zielhost zwar erreichbar ist, jedoch die Firewall eine Antwort verhindert..."
computer = InputBox(str_frage,,"Hostnamen oder IP-Adresse eingeben")
ergebnis = Ping(computer)
If InStr(ergebnis, "Antwort")>0 Then
  MsgBox "Der Host ist erreichbar."
Else
  MsgBox "Der Host ist nicht erreichbar."
End If

Function Ping(server)
Set wshshell = CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
  filename = "ping.txt"
  command = "%COMSPEC% /C PING.EXE " & server & " > %TEMP%\" & filename
  result = wshshell.Run(command,0,True)
  temp = fs.GetSpecialFolder(2).Path
  Set file = fs.OpenTextFile(temp & "\" & filename)
  Ping = file.ReadAll
  file.Close
  fs.DeleteFile temp & "\" & filename, True
End Function

Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Erstelle ein Benutzerkonto oder melde dich an, um zu kommentieren

Du musst ein Benutzerkonto haben, um einen Kommentar verfassen zu können

Benutzerkonto erstellen

Neues Benutzerkonto für unsere Community erstellen. Es ist einfach!

Neues Benutzerkonto erstellen

Anmelden

Du hast bereits ein Benutzerkonto? Melde dich hier an.

Jetzt anmelden
×
×
  • Neu erstellen...