AutoIt Français

Code : Tout sélectionner

Func Get_LDAP_Data()
    Dim con,rs,Com,strValue
    dim i,strMember,strGroup
    
    Local $oCon = ObjCreate("ADODB.Connection")
    With $oCon
        .provider = "ADsDSOObject"
        .Properties("User ID") = "cn=UserID,o=AAA" ; specify your UserID and containter with AAA being the container
        .Properties("Password") = "Password" ; specify your password
        .open("Active Directory Provider")
    EndWith
    
    Local $oCmd = ObjCreate("ADODB.Command")
    $oCmd.ActiveConnection = $oCon

    ; You have to specify your LDAP server and the container in the following line
    $oCon.CommandText = "SELECT cn, member FROM 'LDAP://YourLdapServer.com/o=AAA' WHERE objectClass = 'groupOfNames'"
    Local $oRs = $oCon.Execute

    Local $strValue = "nds_group|&|member_id"
    Local $strGroup = "", $strMember = ""
    While Not $oRs.EOF

        $strGroup = $oRs.Fields("cn").Value
        $strMember = $oRs.Fields("member").Value
                               
        If isarray($strMember) then
            for $i = 0 to ubound($strMember) - 1
                $strValue &= @crlf & $strGroup[0] & "|&|" & Friendly_Context($strMember[$i])
            next
        endif
       
        $oRs.MoveNext
    WEnd
    ConsoleWrite($strValue)
    $oRs.Close
    $oCon.Close
EndFunc

Func Friendly_Context($aryValue)
    dim $strValue, $aryValue2
    $aryValue = Stringsplit($aryValue, ",")
   
    For i = 0 to ubound(aryValue)
        $aryValue2 = Stringsplit($aryValue[$i], "=")      
        if $strValue = "" then
            $strValue = $aryValue2[1]
        else
            $strValue $=  "." & $aryValue2[1]
        endif      
    Next
   
    Return $strValue
EndFunc

Get_LDAP_Data()