LDAP nach User durchsuchen

nefas83

Hi,
ich hab da ein kleines Problem und zwar versuch ich im AD per LDAP nach Usern zu suchen.

Es soll folgender maßen funktionieren:

Wenn ich den Nachname eingebe sollen alles User die den Namen haben oder enthalten aufeglistet werden mit sonstigen informationen.
wenn ich die den Username angeben soll der zugehörige User angezeigt werden genau so soll es möglich sein nach Telefonnummer oder Vorname zusuchen.

Leider kenne ich mich nicht ganz so gut mit LDAP aus.

ich hab dieses Script hier im englischen Forum gefunden.
Es bring mich schon mal so weit wenn ich den Username eingeben bekomm ich die Daten des Users. Aber jetzt möchte ich auch Suchen könnne.

Vielleicht kann mir ja einer helfen?

[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
DIM $unlock
DIM $mgrvalue
DIM $mgrsplit
DIM $manager
DIM $mgr
DIM $title
DIM $pwdexpires
$oMyError = ObjEvent("AutoIt.Error", "ComError")
$objRootDSE = ObjGet("LDAP://RootDSE")
$username = InputBox("Username","Please input a username:")
If @error Then
MsgBox(0, 'username', 'Username does not exist or not able to communicate with ' & @LogonDomain)
Else
; DNS domain name.
$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)
If @error Then
MsgBox(0, 'username', 'Username does not exist or not able to communicate with ' & @LogonDomain)
Else

Call ("Displayinfo")

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

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

Func Displayinfo()
GUICreate ( "Active Directory Information", 500, 600, 300, 300)

GUICtrlCreateLabel ("Username: ", 10, 10, 60, 20)
GUICtrlCreateLabel ("First Name: ", 10, 30, 60, 20)
GUICtrlCreateLabel ("Last Name: ", 200, 30, 60, 20)
GUICtrlCreateLabel ("Display Name: ", 10, 50, 100, 20)
GUICtrlCreateLabel ("Title: ", 10, 70, 100, 20)
GUICtrlCreateLabel ("Manager: ", 10, 90, 100, 20)
GUICtrlCreateLabel ("Description: ", 10, 150, 100, 20)
GUICtrlCreateLabel ("Office: ", 10, 190, 60, 20)
GUICtrlCreateLabel ("Department: ", 10, 250, 100, 20)
GUICtrlCreateLabel ("Telephone Number: ", 10, 290, 90, 40)
GUICtrlCreateLabel ("Mobile Number: ", 10, 320, 100, 20)
GUICtrlCreateLabel ("Home Number: ", 10, 350, 100, 20)
GUICtrlCreateLabel ("Email Address: ", 10, 370, 100, 20)
GUICtrlCreateLabel ("Logon Script: ", 10, 410, 100, 20)
GUICtrlCreateLabel ("Account:", 10, 430, 100, 20)
GUICtrlCreateLabel ("Number of bad logon attempts since last reset: ", 310, 420, 120, 40)
GUICtrlCreateLabel ("Password Last Changed: ", 10, 460, 100, 40)
GUICtrlCreateLabel ("90 Day Password Expiration: ", 10, 490, 100, 40)
GUICtrlCreateLabel ("Last Logon: ", 10, 540, 100, 20)