Function Avaible(name) 'пингом проверяет доступность компьютера name в сети
On Error Resume Next
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select * from Win32_PingStatus where address = '"_
& name & "'")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
Avaible = False
WScript.Echo "Нет связи с IP:" + name
Else
Avaible = True
'MsgBox "Есть связь!"
WScript.Echo "Есть связи с IP:" + name
End If
Next
End function
WScript.Echo Avaible("Vasya")
WScript.Echo Avaible("192.168.100.28")
и сколько хочешь айпишников тесть
Закон Брукера: Даже маленькая практика стоит большой теории.