Как из VB выполнять команды в командной строке и получить результат их выполнения?

Question

[Nordman99]

Всех приветствую! Начал изучать VBS в целях автоматизации различных процессов на компьютере
В данный момент стоит такая задача - пропинговать некий IP в инете - если пингуется значит инет работает
Потом - пропинговать некое доменное имя в инете - если пингуется значит DNS норм работает
Уже какие только варианты не пробовал, но в все они сводятся к созданию обьекта WScript.CreateObject("WScript.Shell")
и использованию его методов Exec или Run, других способов в VBSе невижу

Пробовал:
Set WshShell = CreateObject("WScript.Shell")
set WshExec = WshShell.Exec ( "cmd /k ping 8.8.8.8") - Этот вариант никому нерекомендую пробовать - начинает бесконечно открываться и закрываться окно CMD без всяких результатов, спасает только перезагрузка

Set WshShell = CreateObject("WScript.Shell")
set WshExec = WshShell.Exec ( "cmd /с ping 8.8.8.8") - Уже лучше - окно открывается только один раз - но опять же безрезультатно - в нем ничего не выполняется и никаких результатов не выдается

Set WshShell = CreateObject("WScript.Shell")
WshShell.run ( "cmd /c ping 8.8.8.8", 1 ,true) - открывается окно CMD в него подается команда ping 8.8.8.8 но она не выполняется вслед за ней
опять появляется приглашение для ввода C:\> в него опять подается команда ping 8.8.8.8 и все повторяется



Причем что если выполнить даже просто открытие notepad
Set WshShell = CreateObject("WScript.Shell")
set WshExec = WshShell.Exec ( "notepad")
или
Set WshShell = CreateObject("WScript.Shell")
WshShell.run ( "notepad", 1 ,true)

То блокнот открывается без проблем

Так как выполнить мою задачу в VBSе - подскажите пожалуйста

Answer 1

[CityCat4]

Окей, гугл.
Что такое WMI.

Ей-Богу, это стоит изучить. Это вещь, на которой можно делать все.

Вот например, как пинговать:

' Check on box availability 
' Input:        strComputer                     -       checking box name
Function boxAvailable(strComputer)
  
  Dim objPing, objStatus
  
  Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
        ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
        
  For Each objStatus in objPing
    If (IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0) Then
      boxAvailable = False
     Else
       boxAvailable = True
    End If
  Next
  
End Function

Comments

[h8nor]

Наверно, здесь ещё должна быть ссылка на статью https://habr.com/post/70806/

[CityCat4]

Дѣаволъ, Да, полезно