[THIN] OT: VBScript - Nested Group
- From: "Luchette, Jon" <JLuchette@xxxxxxxxxxxxxxx>
- To: <thin@xxxxxxxxxxxxx>
- Date: Wed, 9 Aug 2006 10:01:08 -0400
hello,
can someone tell me how to list out all of the groups that I am a member
of, including groups that I belong to that are a member of or nested in
other groups in a vb script?
I have this so far, but it doesn't appear to be working correctly:
*********************************************************
Option Explicit
Dim fServer
Dim wshNet
Dim ADSysInfo
Dim CurrentUser
Dim strGroups
Dim GroupMember
Dim a,b,c,d
Const OfficeCitrixPolicy = "cn=Office Citrix Policy"
Const FiscalCitrixPolicy = "cn=Fiscal Citrix Policy"
Const ISCitrixPolicy = "cn=IS Citrix Policy"
Const ClinicalCitrixPolicy = "cn=Clinical Citrix Policy"
fServer = "\\appserver01"
Set wshNet = CreateObject("WScript.Network")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://"; & ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))
WScript.Echo(wshNet.Username & " " & strgroups)
GroupMember = True
Select Case GroupMember
Case a = InStr(strGroups, OfficeCitrixPolicy)
OfficeCitrixPolicysub
Case b = InStr(strGroups, ISCitrixPolicy)
ISCitrixPolicysub
Case c = InStr(strGroups, FiscalCitrixPolicy)
FiscalCitrixPolicysub
End Select
Sub OfficeCitrixPolicysub
WScript.Echo("made it to Office Group")
End Sub
Sub ISCitrixPolicysub
WScript.Echo("made it to IS Group")
End Sub
Sub FiscalCitrixPolicysub
WScript.Echo("made it to Fiscal Group")
End Sub
**********************************************************************
_______________________________________________
Jon Luchette
Emerson Hospital
Technology Specialist III
Work: 978-287-3369
Cell: 978-360-1379
jluchette@xxxxxxxxxxxxxxx
_______________________________________________
Other related posts:
