Проверка доступности компьютера
Dim oShell
?Переменная strComputer содержит имя или IP-адрес целевого компьютера.
strComputer = «192.168.1.100»
Set oShell = CreateObject(«WScript.Shell»)
errPing = oShell.Run(«%comspec% /c ping.exe -n 2 « & strComputer & _
                     « | find.exe «»TTL=»»», 0 , True)
If errPing = 0 Then
?Ping успешный. Можно устанавливать ADSI- или WMI-соединение.
Else
?Ping неудачный. Целевой компьютер выключен или недоступен.
End If

Поделитесь материалом с коллегами и друзьями