DevTrain Forum - Re: text aus dem dos prompt auslesen

Forum: Visual Basic | Thema: Re: text aus dem dos prompt auslesen | Von: Rainer Jeschor ( 05.02.2004 13:34)

		Hi,

soweit ich weiss, kann man aus VB nur über den Umweg eines Textfiles an die Ausgabe einer DOS-Box herankommen.
Ich habe so etwas mal unter VBSkript gemacht, evtl. kannst du da was adaptieren:

MsgBox PingCheck("127.0.0.1")
REM This works and returns "Wahr"
MsgBox PingCheck("128.0.0.1")
REM This doesnt work and returns "Falsch"

Function PingCheck(ByVal strIP)
  Dim objFSO, objShell, objCheckFile, objTS
  Dim strCommand, strReadLine
  Dim bolReturn
  Dim strConstAnswer
  strConstAnswer = "antwort von"
  Set objShell = WScript.CreateObject("WScript.Shell")
  Set objFSO = CreateObject("Scripting.FileSystemObject")

  REM Setze Standard Rückgabe auf false
  bolReturn = False
  REM Erzeuge Commandline für ping und speichere 
  REM Antwort in Datei
  REM Parameter für Ping:
  REM  - n: Anzahl der Versuche
  REM  - w: Zeitlimit für Rückmeldung in ms
  strCommand = "cmd /c ping.exe -n 2 -w 500 " & strIP &_
  " > checkping.txt"
  REM Ausführen der Commandline
  objShell.run strCommand, 0, True
  REM Auslesen des erzeugten Files
  Set objCheckFile = objFSO.GetFile("checkping.txt")
  Set objTS = objCheckFile.OpenAsTextStream(1)
  REM Zeilenweise Suche nach strConstAnswer 
  REM ("Antwort von", bitte LCASE beachten)
  REM  auf einem englischsprachigen System müsste man
  REM nach "reply from" suchen
  REM Falls vorhanden -> Rechner antwortet
  Do While objTS.AtEndOfStream <> True
    strReadLine = objTS.ReadLine
    If InStr(LCase(strReadLine), strConstAnswer) > 0 Then
      bolReturn = True
      Exit Do
    End If
  Loop
  REM Schliessen und löschen des CheckFiles und 
  REM Freigeben der Ressourcen
  objTS.Close
  objCheckFile.Delete
  Set objTS = Nothing
  Set objCheckFile = Nothing
  Set objShell = Nothing
  Set objFSO = Nothing
  REM Gib Ergebnis zurück
  PingCheck = bolReturn
End Function

Rainer Jeschor
MCSD, MCDBA
	

Betreff Von Datum

Re: text aus dem dos prompt auslesen

danke

G. Guest 06.02.2004 10:58

Antworten Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!