VBS проверка существования диска, VBS подключение сетевого диска

Автор: Admin

Дата:2013-03-06

' VBS скрипт

' Скрипт проверяет наличие сетевого диска и при его отсутствии подключает его

'Объявление переменных
Dim FSO,strDriveName
Dim objNetwork
Dim strLocalDrive, strRemoteShare, strUser, strPassw

'Создание объектов
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objNetwork = WScript.CreateObject("WScript.Network")

'Присваиваем значения переменным
strDriveName = "Y:"
strRemoteShare = "\\192.168.200.36\Share"
strUser = "domen\login"
strPassw = "passw"

if FSO.DriveExists(strDriveName) Then

'Выводим информацию на экран
WScript.Echo "Диск " & strDriveName & " уже подключен"

else

'Подключаем диск y:

objNetwork.MapNetworkDrive strDriveName, strRemoteShare, True, strUser, strPassw

'Вывод информации на экран:

WScript.Echo " Сетевой Диск: "& strDriveName & " Успешно подключен"

end if

Количество просмотров: 25667

Комментарии к статье: