[решено] Нужно закрыть доступ на удаленный рабочий стол

snark · Конфигурация компьютера

И русскоязычный вариант: https://social.technet.microsoft.com...rum=ws2008r2ru

Цитата:

'

Код:

скрипт перебирает группы безопасности текущего пользователя 
'и если группа равна "Администраторы домена" запускает explorer
'если по завершению перебора никаких программ не запущено, терминальная сессия автоматически завершается
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objSysInfo = CreateObject("ADSystemInfo")
strComputer = "."
strUserDN = objSysInfo.userName
strCmd = "%systemroot%\explorer.exe"
Set UserObj = GetObject("LDAP://" & strUserDN)
For Each GroupObj In UserObj.Groups
	GroupName = Replace(GroupObj.Name, "CN=", "")
	If GroupName = "Администраторы домена" Then 
		WshShell.Run strCmd,,False
		WScript.Quit
	End If
Next

и поставил чтобы параметры клиента перекрывались параметрами сервер.