[Petya V4sechkin]

winder, если скриптом .vbs, то можно так:

Код:

Dim WshShell, D, U
Set WshShell = WScript.CreateObject("WScript.Shell")

D = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName")
U = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName")

If D = "YOUR_DOMAIN" Then
  WshShell.Run "%ComSpec% /C Net LocalGroup Administrators " & D & "\" & U & " /Add & Net LocalGroup Администраторы " & D & "\" & U & " /Add", 0, True
End If

Скрипт вставлять в Конфигурацию компьютера -> Конфигурацию Windows -> Сценарии.
Недостатки:

1. юзер получает права только при следующем включении компьютера (или после перезагрузки);
2. скрипт из "Конфигурации компьютера" при перелогинивании не выполняется (т. е. нужно перезагрузиться или выключить/включить).