Видоизмененная проверка для Windows XP или Windows Server 2003
Dim oWMIService, colPings, oPing
?Переменная strComputer содержит имя или IP-адрес целевого компьютера.
strComputer = «192.168.1.100»
Set oWMIService = GetObject(«winmgmts:.
ootcimv2»)
Set colPings = oWMIService.ExecQuery _
    («Select * from Win32_PingStatus Where Address=?» & strComputer & «?«)
bPing = False
For Each oPing in colPings
  If oPing.StatusCode = 0 Then
    bPing = True
    Exit For
  End If
Next
If bPing Then
?Ping успешный. Можно устанавливать ADSI- или WMI-соединение.
Else
?Ping неудачный. Целевой компьютер выключен или недоступен.
End If

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