*** задаем необходимые параметры:
* буква диска, заведомо не используемая для локальных дисков:
cLetterNetDrive = "X:"
* сетевое имя компьютера:
cRemoteComp = "Ladybug"
* подключаемая рабочая папка этого компьютера:
cWorkFolder = "MyProg"
* мия пользователя для сетевого входа:
cUserName = "User"
* пароль для сетевого входа:
cPassword = "password"

*** создаем скриптовый объект работы с сетью:
WshNetwork = CREATEOBJECT("WScript.Network")

*** на всякий случай проверяем, нет ли подключенного диска с такой же буквой,
*** если есть, можно в принципе его и использовать, на надежнее отключить (чтобы подключить затем именно нужный):
RemoveNetDrive()

*** подключаем диск с заданной буквой
WshNetwork.MapNetworkDrive(cLetterNetDrive, "\\"+cRemoteComp+"\"+WorkFolder, "false", cUserName, cPassword)

***
MESSAGEBOX("Диск "+cLetterNetDrive+" подключен!")
*** работаем с файлами сетевого диска

*** отключаем сетевой диск:
RemoveNetDrive()
MESSAGEBOX("Диск "+cLetterNetDrive+" удален!")

***********************
PROCEDURE RemoveNetDrive
colDrives = WSHNetwork.EnumNetworkDrives
IF colDrives.Count>0
  FOR i=0 TO colDrives.Count-1 STEP 2
    IF colDrives.Item(i)=cLetterNetDrive
      WSHNetwork.RemoveNetworkDrive(cLetterNetDrive, "true", "true")
    ENDIF
  ENDFOR 
ENDIF
ENDPROC 
***********************

*** создаем объект для работы с реестром:
oWshShell = CREATEOBJECT("Wscript.Shell")
*** параметр, отключающий видимость в проводнике какого-либо диска:
cPar = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives"
*** Список подставляемых чисел для скрытия соответствующих букв дисков:
*** A: 1, B: 2, C: 4, D: 8, E: 16, F: 32, G: 64, H: 128, I: 256, J: 512, K: 1024, L: 2048, M: 4096, N: 8192, O: 16384, P: 32768, 
*** Q: 65536, R: 131072, S: 262144, T: 524288, U: 1048576, V: 2097152, W: 4194304, X: 8388608, Y: 16777216, Z: 33554432,
*** Скрытие нескольких - сумма их чисел. Скрыть все диски: 67108863. Показать снова все: 0, либо удалить данный параметр.
*** Т.е. например, для скрытия диска X:
cVal = "8388608"
mcVal = "0"
*** если параметр отсутствует, генерируется ошибка, поэтому используем стандартную конструкцию обхода:
TRY
  *** чтение параметра:
  mcVal = oWshShell.RegRead(cPar)
  *** если параметр имеет другое значение, перезаписываем:
  IF mcVal#cVal
    RegWritePar()
  ENDIF 
CATCH 
  *** запись параметра:
  RegWritePar()
ENDTRY 

***********************
PROCEDURE RegWritePar
  oWshShell.RegWrite(cPar, cVal, "REG_DWORD")
  MESSAGEBOX("Для дальнейшей работы компьютер должен быть перезагружен!"+CHR(13)+;
     CHR(13)+"Закройте все программы и выполните перезагрузку!",0,"внимание!")
ENDPROC 
***********************