Любой язык - Скрипт для мапинга сетевых дисков с условием

Любой язык - Скрипт для мапинга сетевых дисков с условием

Новый участник

Сообщения: 1
Благодарности: 0

Добрый день , уважаемы скриптовики . Помогите пожалуйста сделать скрипт , который мапил бы сетевой диск по следующему принципу
Если проходит пинг(192.168.1.3) сетевого ресурса , то мапит дискZ \\192.168.1.3\1C_base\7.7
Иначе когда сетевой ресурс отсутствует пинг не проходит , мапил бы другой сетевой диск Z: \\192.168.1.4\1С_base\7.7
В сети нашел VBS скрипт следующий
On Error Resume Next

Dim objNetwork, strDrive, objShell, objUNC
Dim strRemotePath, strDriveLetter, strNewName

strDriveLetter = "Z:"
strRemotePath = "\\192.168.1.3\1С_base\7.7"

mapped = false

Set objNetwork = CreateObject("WScript.Network")
Set oDrives=objNetwork.EnumNetworkDrives

For i = 0 to oDrives.Count - 1 Step 2
If oDrives.Item(i)=strDriveLetter Then mapped = true

Next
If mapped Then objNetwork.RemoveNetworkDrive strDriveLetter
If mapped Then objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
If Not mapped Then objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName

WScript.Quit

Но как сюда добавить проверку на условие ????

Отправлено: 14:36, 01-06-2013

Foreigner

Ветеран

Сообщения: 1758
Благодарности: 966

Профиль | Цитировать

Код:

@echo off

2>nul net use z: \\192.168.1.3\1C_base\7.7 /user:%computername%\<remoteuser> <remotepassword> || (

      net use z: \\192.168.1.4\1C_base\7.7 /user:%computername%\<remoteuser> <remotepassword>

)

Отправлено: 22:19, 01-06-2013 | #2