Ik gebruik een login script (WSH) waarbij wordt gekeken in welke groep een gebruiker zit. Aan de hand van die groep krijgt hij een aantal regels om z'n oren van het login script.
Nu ben ik al een tijdje aan het uitvogelen of dat niet op OU-niveau mogelijk is, maar ik kom er niet uit.
Even een klein stukje van de code:
Zoals je ziet gebruik ik een functies LoadNTGroups en InGroup om de groepsnaam te bepalen waar een gebruiker in zit, maar voor een OU kan ik deze maar niet vinden. Het is uiteindelijk de bedoeling dat alle gebruikers in/onder de OU én de onderliggende OU's worden getriggerd.
Iemand een idee?
Nu ben ik al een tijdje aan het uitvogelen of dat niet op OU-niveau mogelijk is, maar ik kom er niet uit.
Even een klein stukje van de code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
| Dim DomainName, Username
Dim WSHNetwork, WshShell
Dim oGroupList
Dim netDrives
Dim n
Set WSHNetwork = createObject("wscript.network")
Set oGroupList = CreateObject("Scripting.Dictionary")
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set Environment = wshshell.environment("Process")
UserName = Environment( "username" )
DomainName = Environment( "userdomain" )
Call LoadNTGroups(DomainName, Username)
'Group mapping...
If InGroup("groepnaam") Then
WSHNetwork.MapNetworkDrive "n:", "\\server\mapping"
End if
Sub LoadNTGroups(vDomainName, vUsername)
Dim oUser
Dim oGrp
Set oUser = GetObject("WinNT://" & vDomainName & "/" & vUsername)
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 |
Zoals je ziet gebruik ik een functies LoadNTGroups en InGroup om de groepsnaam te bepalen waar een gebruiker in zit, maar voor een OU kan ik deze maar niet vinden. Het is uiteindelijk de bedoeling dat alle gebruikers in/onder de OU én de onderliggende OU's worden getriggerd.
Iemand een idee?