[morozov_s_v]

iMirRor iMirRor вне форума »

Я изменил скрипт под себя :
-----------------------------------------------------------------------
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)

WshNetwork.RemoveNetworkDrive "O:","true","true"
WshNetwork.MapNetworkDrive "O:","\\server2\test$\"+user, "false"
objReg.CreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##server2#test$#"+user
objReg.SetStringValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##server2#test$#"+user, "LabelFromReg", "Персональный диск"

WScript.Quit
-----------------------------------------------------------------------
но все равно пишет полный путь : petrov на "server2\test$" (O)