Login | |
|
 |
RE: Logon script for Active directory. code not working - 1/9/2008 6:22:26 AM
|
|
 |
|
| |
dm_4ever
Posts: 2641
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline
|
MemberOf will not see the default group which is probably "Domain Users"....this only leaves this other group....so it will not be seen as an array, but a string Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) If IsArray(CurrentUser.MemberOf) Then strGroups = LCase(Join(CurrentUser.MemberOf)) Else strGroups = LCase(CurrentUser.MemberOf) End If
_____________________________
dm_4ever My philosophy: K.I.S.S - Keep It Simple Stupid Read Me: http://www.visualbasicscript.com/m_24727/tm.htm Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm
|
|
| |
|
|
|
|
|