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

Set WshNetwork = CreateObject("WScript.Network")
'Создание объекта типа Network  Set Drives = WshNetwork.EnumNetworkDrives
c = 0	'Пременная проверки на наличие хотя бы одного сетевого диска!
i = 0    While i <= Drives.Count-1	'Проверка на наличие сетевых диков
c = 1 'MsgBox " У вас есть сетевой диск " & Drives.Item(i) & " - " & Drives.Item(i+1) i = i+2 Wend if c=0 then
'MsgBox "Нет ни одного подключенного диска"
'MsgBox "Попытка подключить сетевой диск"    	'Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "Z:", "\\Имясервера\имя папки"
End if

Добавить комментарий