LDAP Abfrage

    Hi,

    ich glaub ich seh den Wald vor lauter Bäumen nicht...oder kapier einfach den Quelltext nicht.
    Wahrscheinlich letzteres.... :whistling:

    Gefundne hab ich das ion einem Thread hier und für meine Zwecke geändert.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <Misc.au3>
    Const $ADS_NAME_INITTYPE_GC = 3
    Const $ADS_NAME_TYPE_NT4 = 3
    Const $ADS_NAME_TYPE_1779 = 1
    ; DNS domain name.
    $oMyError = ObjEvent("AutoIt.Error", "ComError")
    $objRootDSE = ObjGet("LDAP://RootDSE")
    $objTrans = ObjCreate("NameTranslate")
    $objTrans.Init ($ADS_NAME_INITTYPE_GC, "")
    $objTrans.Set ($ADS_NAME_TYPE_1779, @LogonDomain)
    $objTrans.Set ($ADS_NAME_TYPE_NT4, @LogonDomain & "\" & @UserName)
    $strUserDN = $objTrans.Get ($ADS_NAME_TYPE_1779)
    $UserObj = ObjGet("LDAP://" & $strUserDN)
    DIM $firstname = $UserObj.FirstName
    DIM $lastname = $UserObj.LastName
    DIM $IsAccountLocked = $UserObj.IsAccountLocked

    [/autoit] [autoit][/autoit] [autoit]

    MsgBox (0, "", "Test: "& $firstname & " " & $lastname &" " & $IsAccountLocked)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $UserObj = ""
    $oMyError = ObjEvent("AutoIt.Error", "")
    ;~ ;COM Error function
    Func ComError()
    If IsObj($oMyError) Then
    $HexNumber = Hex($oMyError.number, 8)
    SetError($HexNumber)
    Else
    SetError(1)
    EndIf
    EndFunc

    [/autoit]

    jetzt mal für mich doof... wie packe ich das alles in eine Function?

    Ich bräuchte das als Fuction die mir Name, Vorname und Konto gesperrt/nicht gesperrt zurückliefert.

    Hat jemand einen Denkanstoss für mich?