[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
'=============================================================================

[semen77]

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

Я тестировал оба варианта на виртуалках с nat-ом
P.S.: а вот и ваш вариант:

Знаю, что проблема связана с трансляцией ICMP-пакетов, но может быть уже кто-то решил её?

[Iska]

semen77, ну, так дело ж не в NAT получается, а в непрохождении пакетов определённого вида, как Вы верно заметили. Пинайте своего администратора.

[semen77]

а в непрохождении пакетов определённого вида »

Это "стандартная болезнь" архитектуры NAT, которая умеет правильно транслировать только TCP и UDP пакеты.
Поэтому и спрашивал - может кто-то уже придумал "костыли"...