Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
On Error Resume Next
Set Network = WScript.CreateObject(«Wscript.network»)
Set oShell = CreateObject(«Shell.Application»)
Set FSO = CreateObject(«Scripting.FileSystemObject»)
'==================================================
'Создаем папку пользователю с именем его логина
'==================================================
UName = Network.UserName
If Not fso.FolderExists("\\domain\root\Users\" & UName) Then
Set objFolder = FSO.CreateFolder("\\domain\root\Users\" & UName)
End If
'==================================================
'Подключаем диск и даем ему имя
'==================================================
Network.RemoveNetworkDrive «Z:»
DiskPath = "\\domain\root\Users\" & UName
Network.MapNetworkDrive «Z:», diskpath
oShell.NameSpace(«z:\»).Self.Name = «UsersFolder»
WScript.Quit 
Опытные мелочи-3, или «Центральное Файлохранилище»