[Iska]

, Anonymоus, чувствую себя тем неграмотным волком из анекдота про волка, лошадь и её задние копыта.

А хоть что говорит такой:

читать дальше »

Код:

Option Explicit

Dim objSWbemObjectEx

For Each objSWbemObjectEx In WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecQuery( _
	"SELECT * FROM Win32_PingStatus WHERE ADDRESS = '192.168.70.1'")
	
	With objSWbemObjectEx
		If Not IsNull(.StatusCode) Then
			If .StatusCode = 0 Then
				WScript.Echo .Address & vbTab & "On" & vbTab & "Response time: " & .ResponseTime & " ms"
			Else
				WScript.Echo .Address & vbTab & "Off" & vbTab & "Status code: " & .StatusCode
			End If
		Else
			WScript.Echo .Address & vbTab & "Not found"
		End If
	End With
Next

WScript.Quit 0

код (чтобы хоть немного представлять ситуацию, и как себя в ней вести)?