Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   Распознование группы пользователя... (http://forum.oszone.net/showthread.php?t=321371)

DarckSol 02-12-2016 14:12 2692335

Распознование группы пользователя...
 
Добрый день.
Делаю некий logon скрипт, столкнулся с необходимостью отсеивать юзеров по группам их принадлежностей... подскажите, как реализовать....
То есть смысл такой...
В зависимости от группы, в которой пользователь состоит, будут выполняться разные сценарии входа...
За ранее спасибо.

Kazun 02-12-2016 14:22 2692340

1) Проще отфильтровать политику по Security Filter


Но обязательно прочитать, про нововедение в работе GPO - https://habrahabr.ru/post/304202/

2) whoami /groups - покажет к каким группам пренадлежит пользователь ( с помощью find/findstr производить поиск по группам и выполнение в for)

Nand 03-12-2016 09:37 2692501

Проверка членства в группе (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


Время: 22:31.

Время: 22:31.
© OSzone.net 2001-