Hi,
ich glaub ich seh den Wald vor lauter Bäumen nicht...oder kapier einfach den Quelltext nicht.
Wahrscheinlich letzteres....
Gefundne hab ich das ion einem Thread hier und für meine Zwecke geändert.
Spoiler anzeigen
#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
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,
SetError($HexNumber)
Else
SetError(1)
EndIf
EndFunc
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?