Ожидание подключение сетевого диска.
 

Здравствуйте.
Суть проблемы:
Есть два компьютера в сети которые находятся в разных местах (например Комп1 и Комп2). Комп1 имейт сетевой диск на Ком2. Но если первый загрузился Комп2 то Комп1 не видит сетевой диск. Я написал скрипт который через каждые 10 мин. создает сетевой диск, но когда Комп2 выключен он естественно пишит ошибку.
Так вот мне надо создать такой скрипт который постоянно проверял Комп2 в сети или нет, и когда он в сети то производил подключение сетевого диска.
Если можете подскажите.

gary5555, используйте Wbem класс «Win32_PingStatus». Примеры использования класса на форуме: «Win32_PingStatus» - Поиск в разделах - Компьютерный форум OSzone.net.

Спасибо, все что надо нашел, написал вот такой вот скрипт, работает:

iPing = Ping("192.168.2.5")

If iPing=0 Then
Set objNetwork = CreateObject("WScript.Network")
Set oDrives=objNetwork.EnumNetworkDrives
mydrv = "Z:"
mapped = false
myshare = "\\192.168.2.5\GenericPressRoot"
For i = 0 to oDrives.Count - 1 Step 2
' WScript.Echo "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i+1)
If oDrives.Item(i)=mydrv Then mapped = true
Next
'WScript.echo "mapped = " & mapped
If Not mapped Then objNetwork.MapNetworkDrive mydrv, myshare
Else

End If

Function Ping (strTarget)
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & strTarget & "'")

For Each objPing in colPings
Ping = objPing.StatusCode
Next
End Function

Вот только еще хочу сделать пинг не разовый а несколько раз и исходя из полученных данных делать подключение сетевого диска.

Уберите условие:
Вставьте перед мапированием диска бесконечный цикл опроса:
Скрипт будет до бесконечности «стучать» каждые 15 секунд по указанному адресу, пока не достучится.

Супер! Спасибо Все работает как надо!