Отображение имени пользователя работающего на компьютере в сетевом окружении.

скрипт всзят с
http://www.networkdoc.ru/files/insop/whs/read.html?usernamescript.html

'Определяем значание поля Description (Описание) сервера
Set WshNetwork = CreateObject("WScript.Network")
On Error Resume Next
Path = WSHNetwork.ComputerName
Set objSysInfo = CreateObject("ADSystemInfo")
strComputerDN = objSysInfo.ComputerName
Set objComputer = GetObject("LDAP://" & strComputerDN)

'Исходя из этого назначаем выполнение скрипта
' В примере для серверов мы установили значение Description = "Сервер"
Select Case objComputer.Get("Description")
Case "Сервер"
' Скрипт не нужно выполнять, производим выход
Wscript.Quit
Case Else
'Скрипт нужен производим выполнение
' Определяем контекст пользователя в АД
Set WshNetwork = CreateObject("WScript.Network")
Path = WshNetwork.UserName
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUserDN)

' Остановка службы сервер для внесения данных о пользователе
Set objWMIService = GetObject("winmgmts:")
Set colSoftware = objWMIService.ExecQuery _
("Select * FROM Win32_Service WHERE Name ='Lanmanserver'" )
For Each objSoftware in colSoftware
objSoftware.StopService()
Next
' Внесение данных о пользователе в свойcтва компьютера
Set WshShell = Wscript.CreateObject("WScript.Shell")
Set WshNetwork = CreateObject("WScript.Network")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver ¬
\parameters\srvcomment", objUser.DisplayName

' Перезапуск службы сервер
Set objWMIService = GetObject("winmgmts:")
Set colSoftware = objWMIService.ExecQuery _
("Select * FROM Win32_Service WHERE Name ='Lanmanserver'" )
For Each objSoftware in colSoftware
objSoftware.StartService()
Next
End Select



В групповой политеке домена w2003 для всех пользователей при логоне применяю этот скрипт. Результата никакого.

Ключ не создается ! Уже на этом шаге

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver ¬
\parameters\srvcomment

Спецы в WHS (VBS) подскажите.

Проверяю на своем компе (админ. права есть)!