| |
sheepz
Posts: 247
Score: 2
Joined: 3/17/2006
From: Riverside the 909s
Status: offline
|
you could try something like this: Set CurrentComputer = GetObject("LDAP://" & ADSysInfo.ComputerName) strGroups = LCase(Join(CurrentComputer.MemberOf)) 'Check membership Select Case GroupMember Case a = InStr(strGroup, HR) HRSub Case b = InStr(strGroup, SALES) SalesSub Case c = InStr(strGroup, MARKETING) MarketingSub End Select
|
|