Имя пользователя:
Пароль:
 

Название темы: Групповые политики
Показать сообщение отдельно

Аватара для Dennis

Старожил


Сообщения: 323
Благодарности: 4

Профиль | Отправить PM | Цитировать


Данная тема уже обсуждалась.

Цитата:
Я сделал групповую политику на группу
Групповая политика применяется к объекту Контейнер или политики по умолчанию, которые трогать лишний раз не рекомендуется.

Создаешь скрипт VBS и применяешь следующий код для проверки в какой группе пользователь.
Sub LoadNTGroups(vDomainName, vUserName)
Dim oUser
Dim oGrp
Dim t

On Error Resume Next
t = true
While t
Set oUser = GetObject("WinNT://" & vDomainName & "/" & vUserName)
If Err Then
Err.Clear
WScript.Sleep 1000
Else
t = False
End If
Wend
oGroupList.CompareMode = vbTextCompare
For Each oGrp In oUser.Groups
oGroupList(oGrp.Name) = True
Next
End Sub

Function InGroup(sGroup)
InGroup = oGroupList.Exists(sGroup)
End Function



Как другой вариант, можно определить политику и в безопасности удалить "прошедшие проверку" и добавить вашу группу.

-------
Dennis


Отправлено: 13:19, 28-01-2005 | #6

Название темы: Групповые политики