Показать полную графическую версию : Распознование группы пользователя...
DarckSol
02-12-2016, 14:12
Добрый день.
Делаю некий logon скрипт, столкнулся с необходимостью отсеивать юзеров по группам их принадлежностей... подскажите, как реализовать....
То есть смысл такой...
В зависимости от группы, в которой пользователь состоит, будут выполняться разные сценарии входа...
За ранее спасибо.
1) Проще отфильтровать политику по Security Filter
http://social.microsoft.com/Forums/getfile/45378/
Но обязательно прочитать, про нововедение в работе GPO - https://habrahabr.ru/post/304202/
2) whoami /groups - покажет к каким группам пренадлежит пользователь ( с помощью find/findstr производить поиск по группам и выполнение в for)
Проверка членства в группе (vbs)
Function CheckGroup (objGroups)
Dim objGroup, objMember
If Member = True Then
Exit Function
End If
On Error Resume Next
Set objGroup = GetObject("LDAP://CN=" & objGroups &",ou=Groups,dc=nameDC,dc=nameDC2")
objGroup.GetInfo
If Err.Number then
Member = False
Exit Function
End If
If objGroup.IsMember(objUser.ADsPath) Then
Member = True
Exit Function
End If
For Each objMember In objGroup.Members
If (LCase(objMember.Class) = "group") Then
objGroups = Replace(objMember.name,"CN=","")
CheckGroup objGroups
End If
Next
End Function
Вызывать:
Member = false
CheckGroup("need Group")
If Member then
call objWSH.Run....
filetxt.WriteLine.....
Else
filetxt.WriteLine....
End If
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.