[..] Convertir le visualbasic en autoit

[richie6700]

Bonjour,

Serait t-il possible de me convertir ce script en "autoit" :

► Afficher le texteVBS

option explicit

Sub Get_LDAP_Data()
    Dim con,rs,Com,strValue
    dim i,strMember,strGroup
    Set con = CreateObject("ADODB.Connection")
    con.provider ="ADsDSOObject"
    con.Properties("User ID") = "cn=UserID,o=AAA" ' specify your UserID and containter with AAA being the container
    con.Properties("Password") = "Password" ' specify your password
    con.open "Active Directory Provider"
    Set Com = CreateObject("ADODB.Command")
    Set Com.ActiveConnection = con

    'You have to specify your LDAP server and the container in the following line
    Com.CommandText ="select cn,member from 'LDAP://YourLdapServer.com/o=AAA' where objectClass = 'groupOfNames'"
    Set rs = Com.Execute

    strValue = "nds_group|&|member_id"

    do until rs.eof
        strGroup = rs("cn")
        strMember = rs("member")
                               
        If isarray(strMember) then
            for i=0 to ubound(strMember)
                strValue = strValue & vbcrlf & strGroup(0) & "|&|" & Friendly_Context(strMember(i))
            next
        end if
       
        rs.MoveNext
    loop
    wscript.echo strValue
    rs.Close

    con.Close
    Set rs = Nothing
    Set con = Nothing
End Sub

Function Friendly_Context(aryValue)
    dim i,strValue,aryValue2
    aryValue = split(aryValue,",")
   
    For i=0 to ubound(aryValue)
        aryValue2 = split(aryValue(i),"=")      
        if strValue = "" then
            strValue = aryValue2(1)
        else
            strValue = strValue & "." & aryValue2(1)
        end if      
    Next
   
    Friendly_Context = strValue
End Function

call Get_LDAP_Data()

Merci à vous

[flodiable]

Personnellement je ne connais pas le VBS mais si tu peut expliquer ce que tu veux faire avec on pourrait surement trouver une fonction ou réécrire un code!

[GaRydelaMer]

Bonsoir,


Voila vite traduit, mais je suis pas sur que tu obtiennes des valeurs.

► Afficher le texte

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()

Ici dans le code:
$strMember = $oRs.Fields("member").Value

Je suis pas sur que tu es un tableau avec un champ d'un RecordSet ADODB (voir mon tuto).

@Toi de tester et adapter ensuite ConsoleWrite()

[richie6700]

Merci à vous.

Ce que je veux faire est ici... mais personne n'a pu m'aidé
http://www.autoitscript.fr/forum/viewto ... f=3&t=7643