Print out security group

Print out security group

#-----------------------------
# Save the following as sec_grp.vb
#-----------------------------
For Each strGroup In objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN

Select Case strGroupName
Case "Group A"
Case "Group B"
End Select
Next