currentUser.memberOf, login script error 2

[jigga8517]

I am new to scripting and this forum, bear with me please. I am creating a login script for windows 2000 server.

--------
Set ADSysInfo = CreateObject("ADSystemInfo&quot
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)

'Next line gives me error
strGroups = LCase(Join(CurrentUser.MemberOf))
--------

Here's what I know:
- Join gives me type mismatch error when the user is a member of Domain user and only one other group.

- Join works when the user is a member of domain user and more than one other group.

Here's what I think: MemberOf attribute is returning a string when the member is part of only 1 group other than domain user. MemberOf attribute is returning an array when the member is part of more than 1 group other than domain user.

WHY????????? - Why does this attribute behave this way, and what can I do about it.

 

[jonscott8]

Welcome to ADSI. Your suspicions are correct, the MemberOf property (and Member property if it's a group) will return different datatypes, depending on the value. You'll need to first check the variable's subtype.

Sub WhatKindOfUser(oUser)
Select Case VarType(oUser.MemberOf)
Case 0
MsgBox "Member is in no groups"
Case 8
MsgBox "Member is in one group"
Case 8204
MsgBox "Member is in more than one group"
End Select
End Sub

You'll only be able to utilize the Join function when the Vartype function returns 8204, ie, an array of strings.

Also, see

http://support.microsoft.com/default.aspx?scid=kb;en-us;301916

Jon Hawkins

 

[jigga8517]

Thanks a lot Jon. I knew something was up, however I couldn't find any solid documentation.

Thanks again,
Jigar P.