看看下面的帖子,希望对你有帮助.http://expert.csdn.net/Expert/topic/1206/1206758.xml?temp=.1883966
http://expert.csdn.net/Expert/topic/1515/1515981.xml?temp=.5800897

解决方案 »

  1.   

    Public Function ListMemberFromGroup(ByVal strFullServerName As String, ByVal strGroupName As String, ByVal strDomainName As String, Optional ByVal strHeader As String = "crbjl_") As Variant
    Dim objGroup As IADsGroup
    Dim objContainer As IADsContainer
    Dim objUser As IADsUser
    Dim strGroupNameString, TempString As String
    'init member's count
    MemberCount = 0
    MemberDisplayName = ""
    strGroupNameString = strHeader & strGroupNameOn Error GoTo ErrHandler_LM1
    Set objGroup = GetObject("LDAP://" + strFullServerName + "/CN=" & strGroupNameString & ",CN=Users," + strDomainName)On Error GoTo ErrHandler_LM2
    For Each objUser In objGroup.Members
        TempString = TempString & Right(objUser.Name, Len(objUser.Name) - 3) & "~"
        MemberDisplayName = MemberDisplayName & objUser.FullName & "~"
        MemberCount = MemberCount + 1
    NextIf TempString <> "" Then
       ListMemberFromGroup = Left(TempString, Len(TempString) - 1)
    Else
       ListMemberFromGroup = -1
    End IfSet objGroup = Nothing
    Set objUser = Nothing
    Set objContainer = Nothing
    Exit FunctionErrHandler_LM1:
    ListMemberFromGroup = -2
    Set objGroup = Nothing
    Set objUser = Nothing
    Set objContainer = Nothing
    Exit FunctionErrHandler_LM2:
    ListMemberFromGroup = -3
    Set objGroup = Nothing
    Set objUser = Nothing
    Set objContainer = Nothing
    Exit FunctionEnd Function