I've been beating on this script for the past day and am getting some
very odd results. I'm pulling a users' group associations from AD and
matching it to a known group so I can map drives accordingly. I am
pulling the group names easily enough but I can't seem to get a match.
I am printing out the value of the groups string and the group match
string but I always get a 0 from InStr. Can someone tell me what I'm
doing wrong here?
When debugging the print out of strGroup is always
"cn=owners,cn=users,dn=domain,dn=com"
and OWNERS_GROUP is always "cn=users"
I can't figure out why I can't match OWNERS_GROUP to part of the string
in strGroups...
TIA
Dim objNetwork, objUser, CurrentUser, strGroup, GroupList, colGroups
Dim OWNERS_GROUP, STAFF_GROUP
OWNERS_GROUP = "cn=owners"
STAFF_GROUP = "cn=staff"
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.UserName)
colGroups = CurrentUser.memberOf
If IsEmpty(colGroups) Then
strGroups = ""
ElseIf TypeName(colGroups) = "String" Then
strGroups = LCase(colGroups)
Else
strGroups = LCases(Join(colGroups))
End If
'WScript.Echo " Groups: "& strGroups
'WScript.Echo " Groups Str: "& OWNERS_GROUP
'GroupList = "" & CurrentUser.MemberOf
'Response.Write GroupList
'strGroups = LCase(Join(GroupList))
pos=InStrRev(strGroup, OWNERS_GROUP)
WScript.Echo " Pos: "& pos
' Extra code just to add a message box
'WScript.Echo " Launch Explorer, check: "& strDriveLetter
If InStrRev(strGroup, STAFF_GROUP) Then
wshNetwork.MapNetworkDrive "s:", "\\server\public"
ElseIf InStrRev(strGroup, OWNERS_GROUP) Then
wshNetwork.MapNetworkDrive "o:", "\\server\private"
wshNetwork.MapNetworkDrive "s:", "\\server\public"
End If