Как получить переменную из cmd и показать ее в vbscript - Vbscript

Question

Я новичок в vbscript, мне нужна ваша помощь, мой вопрос: как мне получить переменную из cmd и показать ее в vbscript, например получить пинг с www.google.com и показать его в msgbox в vbscript помогите мне код:

dim cmd,x set cmd = createobject("wscript.shell") x= cmd.run("cmd /k ping www.google.com ",1,true)

Получить этот вывод и показать его в msgbox позже, помогите мне

Answer 1

Вот пример того, как это сделать. Ответ проверенного пинга на голландском, но это не имеет значения для вашего случая.

Set objExec = CreateObject("WScript.Shell").exec("ping www.google.com")

With objExec 
  Do While .Status = 0 
    WScript.Sleep 10 
    Do While Not .StdOut.AtEndOfStream 
      WScript.Echo .StdOut.ReadLine
      'Check the .StdErr to see if it is at the end of its
      'stream. If not, call ReadLine on it
      If Not .StdErr.AtEndOfStream Then
         .StdErr.ReadLine
      End If
    Loop
  Loop 
End With

Совет, не начинайте писать скрипты в VBScript, это тупик. Выберите какой-нибудь современный язык сценариев, такой как Python или еще лучше для начинающих: Ruby.

Обязательно используйте cscript в качестве движка вместо wscript, выполните следующее, чтобы установить его по умолчанию.

wscript //H:Cscript

Ваш VBScript - это одна строка

puts `ping www.google.com`