Код:
const HKEY_CURRENT_USER = &H80000001
Здесь просто константа для ветки, где все эти настройки прописываются - оставляете как есть.
Код:
Set WSHNetwork = WScript.CreateObject("WScript.Network")
Объявляется переменная для работы с сетевыми ресурсами - оставляете как есть.
Код:
Set objReg = GetObject ("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
Объявляется переменная для работы с реестром - оставляете как есть.
Код:
On Error resume next
Если ошибка, не прерывать работу скрипта - оставляете как есть.
Код:
user = lcase(wshnetwork.username)
в переменной user - имя пользователя компьютера (в данном случае в нижнем регистре) - оставляете как есть
Код:
WshNetwork.RemoveNetworkDrive "Q:","true","true"
Отсоединяется диск Q, если он был подключен - оставляете как есть.
Код:
WshNetwork.MapNetworkDrive "Q:","\\trmsrv\Personals$\Dep\"+user,"false"
присоединяете Q к сетевому компьютеру (в данном случае на сервере trmsrv есть расшаренная папка Personals$ (знак доллара делает папку скрытой, когда расшариваете папку, добавьте к ее названию $ без пробела и ее не будет видно в проводнике), в ней подпапка Dep и в ней папки с именами всех пользователей (их логины). В Вашем случае нужно вместо "\\trmsrv\Personals$\Dep\" подставить свой путь, но внутри должны еще быть папки пользователей.
Код:
objReg.CreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##trmsrv#Personals$#Dep#"+user
Здесь создается ветка реестра c названием того пути, что был прописан строкой ранее. В вашем случае ##trmsrv#Personals$#Dep# заменяете на свой путь, как видите, здесь символ # заменяет \
Код:
objReg.SetStringValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##trmsrv#Personals$#Dep#"+user, "_LabelFromReg", "Персональный диск"
здесь создается параметр _LabelFromReg в созданой ранее ветке и ему присваивается название диска (здесь - "Персональный диск"). В вашем случае так же ##trmsrv#Personals$#Dep# меняете на свой путь. И если точно замените, то диск будет называться как напишите. В 2000 это не действует, а в XP и выше - работает
Код:
WScript.Quit
Это конец скрипта.
