Войти

Показать полную графическую версию : [решено] Подключение нескольких сетевых дисков одним скриптом


Himick_egor
26-05-2011, 16:47
Добрый день.
В соседней теме нашел скрипт для подключения сетевого диска

On Error Resume Next

Set objWshNetwork = CreateObject( "WScript.Network" )
Set objShell = CreateObject("Shell.Application")


MapDrive "X:", "\\files\files", "Базы"

Sub MapDrive(strDrive, strPath, strName)
On Error Resume Next
objWshNetwork.RemoveNetworkDrive strDrive, vbTrue, vbTrue
objWshNetwork.MapNetworkDrive strDrive, strPath
objShell.NameSpace(strDrive).Self.Name = strName
End Sub

скрипт работает, но хотелось бы чтобы он умел подключать сразу три или четыре сетевых дисков, можно ли такое организовать?

amel27
26-05-2011, 16:54
Himick_egor, продублируйте строку "MapDrive "X:", ..." для других значений буквы диска, пути и имени




© OSzone.net 2001-2012