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("\domainrootUsers" & UName) Then
Set objFolder = FSO.CreateFolder("\domainrootUsers" & UName)
End If
'==================================================
'Подключаем диск и даем ему имя
'==================================================
Network.RemoveNetworkDrive «Z:»
DiskPath = "\domainrootUsers" & UName
Network.MapNetworkDrive «Z:», diskpath
oShell.NameSpace(«z:»).Self.Name = «UsersFolder»