[решено] Подключение нескольких сетевых дисков одним скриптом

Добрый день.
В соседней теме нашел скрипт для подключения сетевого диска

Код:

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

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