[Iska]

Потому что этот, так же как и, просто CMD-команда: Код: ping www.google.com Не будут корректно работать если ОС находится за NAT-ом. »

Почему Вы так решили?

P.S. Лучше использовать такой код:

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

Код:

Option Explicit

If IsConnected("www.google.com") Then
	' Place your code here…
End If

WScript.Quit 0
'=============================================================================

'=============================================================================
Function IsConnected(strAddress)
	Dim objSWbemObjectEx
	
	IsConnected = False
	
	For Each objSWbemObjectEx In GetObject( _
		"winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery( _
		"SELECT * FROM Win32_PingStatus WHERE Address = '" & strAddress & "'")
		
		With objSWbemObjectEx
			If Not IsNull(.StatusCode) And .StatusCode = 0 Then
				IsConnected = True
			End If
		End With
		
		Exit For
	Next
	
	Set objSWbemObjectEx = Nothing
End Function
'=============================================================================