daily pastebin goal
73%
SHARE
TWEET

Untitled

a guest Oct 22nd, 2016 62 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. SUB CJtest
  2.  
  3. DIM strCommand, WshShell, WshShellExec, strOutput
  4.  
  5. Const WshFinished = 1
  6. Const WshFailed = 2
  7. strCommand = "ping.exe 127.0.0.1"
  8.  
  9. Set WshShell = CreateObject("WScript.Shell")
  10. Set WshShellExec = WshShell.Exec(strCommand)
  11.  
  12. On Error Resume Next
  13. Dim line, linecount
  14. WHILE WshShellExec.Status = 0
  15.     line = vbNullString
  16.     line = WshShellExec.StdOut.ReadLine()
  17.     If line <> vbNullString Then
  18.         strOutput = strOutput & line & vbCrLf
  19.         linecount = linecount + 1
  20.     End If
  21. WEND
  22.  
  23. Select Case WshShellExec.Status
  24.     Case WshFinished
  25.         Do
  26.             line = WshShellExec.StdOut.ReadLine()
  27.             If line <> vbNullString Then
  28.                 strOutput = strOutput & line & vbCrLf
  29.                 linecount = linecount + 1
  30.             End If
  31.         Loop While Not WshShellExec.Stdout.atEndOfStream
  32.     Case WshFailed
  33.         strOutput = WshShellExec.StdErr.ReadAll
  34. End Select
  35.  
  36. MsgBox strOutput
  37.  
  38. MsgBox linecount
  39.  
  40. END SUB
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top