> Автор: kliff
> но какойто другой путь явно должон быть.
Другой путь - трясти админа, что-бы сетку настроил, или внятно объяснил из-за чего происходят проблемы и как их решать
1.
2.
3.
4.
5.
6.
7.
objPing2 = Getobject("winmgmts:")
objPing = objPing2.ExecQuery("select * from Win32_PingStatus where address = """ & sAddress & """")
For Each objStatus In objPing
If Isnull(objStatus.StatusCode) Or objStatus.StatusCode<> 0 Then
return False
End If
Next objStatus
Return True
Posted via ActualForum NNTP Server 1.4
