Beiträge von Herbert

ich stelle mich an der stelle ziemlich unbeholfen dar,..

ich mache das sicher falsch, weil ich den code nicht verstehe
via regex muss er das ja vorher auf zahlen reduzieren (+ und () ) entfernen,.. und dann vergleichen.

#include <AD.au3>
#include <File.au3>


; Open Connection to the Active Directory
_AD_Open()
If @error Then Exit MsgBox(16, "Active Directory Example Skript", "Function _AD_Open encountered a problem. @error = " & @error & ", @extended = " & @extended)


Global $aObjects[1][1]
Global $sOU = "" ; Search all OUs
$aObjects = _AD_GetObjectsInOU($sOU, "(&(objectcategory=person)(objectclass=user)(name=*))", 2, "sAMAccountName,telephoneNumber")
If @error > 0 Then
    	MsgBox(64, "Active Directory Functions - Example 1", "No OUs could be found")
Else
;~ 	_ArrayDisplay($aObjects, "Active Directory Functions")
EndIf
; Close Connection to the Active Directory
_AD_Close()
; Array bearbeiten
For $i = 1 to $aObjects[1][0]
If $aObjects[$i][2] = "+49 (089) 1234-1234" Then
; Benutzer verarbeiten
_ArrayDisplay($aObjects[$i][1], "Active Directory Functions")
Endif
Next

mir arrays kenne ich mich nicht aus ,.. ubound und sowas ist das? ok aber danke

Danke!

so eine letzte Bitte, falls das möglich ist:

Die Telefonnummern im AD unter "telephoneNumber" sind im deutschen Format d.h. +49 (89) 1234-1234
Die Nummer, die ich aber vergleiche lautet 498912341234

d.h. regex .. geht das direkt bei der Abfrage?

#include <AD.au3>
#include <File.au3>




; Open Connection to the Active Directory
_AD_Open()
If @error Then Exit MsgBox(16, "Active Directory Example Skript", "Function _AD_Open encountered a problem. @error = " & @error & ", @extended = " & @extended)


;~ Global $sGivenName = "john"
;~ Global $sSN = "doe"
Global $sTelephone = "49 (211) 1111111"
Global $aObjects[1][1]
Global $sOU = "" ; Search all OUs


;~ $aObjects = _AD_GetObjectsInOU($sOU, "(&(SN=" & $sSN & ")(Givenname=" & $sGivenName & "))", 2, "sAMAccountName")


$aObjects = _AD_GetObjectsInOU($sOU, "(&(objectcategory=person)(objectclass=user)(telephoneNumber=" & $sTelephone & "))", 2, "sAMAccountName")


If @error > 0 Then
	MsgBox(64, "Active Directory Functions - Example 1", "No OUs could be found")
Else
;~ 	_ArrayDisplay($aObjects, "Active Directory Functions")
;~ ConsoleWrite($aObjects[1])
ConsoleWrite($aObjects)
EndIf


; Close Connection to the Active Directory
_AD_Close()

so?

Bekommen kein Ergebnis

hi gmmg,

danke, ich habe nur die telefonnummer

lg

hi walter,

hast du mir noch einen tipp, wie ich anhand der telefonnummer den sAMAccountName herausbekomme?

Danke!

danke

jetzt fehlt mir nur noch ip, an der sich der mitarbeiter zuletzt angemeldet hat bzw. der rechnername

Zitat

"Was ich noch sagen wollte: Diese Abfrage ist natürlich nicht eindeutig, d.h. es können mehrere Ergebnisse zurcükgegeben werden. Du must also sicherstellen, dass Du den richtigen Usernamen verwendest."

das habe ich gesehen, ich würde gerne von dem ersten ergebnis den namen in die zwischenablage kopieren... (das _ArrayDisplay benötige ich nicht)
d.h. ohne [1] HansDampf ,.. nur HansDampf

habe es so gelöst:

Zitat

#include <AD.au3>

; Open Connection to the Active Directory
_AD_Open()
If @error Then Exit MsgBox(16, "Active Directory Example Skript", "Function _AD_Open encountered a problem. @error = " & @error & ", @extended = " & @extended)

Global $sGivenName = "Doe"
Global $sSN = "John"
Global $aObjects[1][1]
Global $sOU = "" ; Search all OUs

$aObjects = _AD_GetObjectsInOU($sOU, "(&(SN=" & $sSN & ")(Givenname=" & $sGivenName & "))", 2, "sAMAccountName")
If @error > 0 Then
MsgBox(64, "Active Directory Functions - Example 1", "No OUs could be found")
Else
_ArrayToClip($aObjects)

$sData = ClipGet()
local $DataNeu = StringTrimLeft($sData,2)
;~ ConsoleWrite($DataNeu)
ClipPut($DataNeu)

EndIf
_AD_Close()

Alles anzeigen

Zitat von water

Sowas?

[autoit]

#include

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

; Open Connection to the Active Directory
_AD_Open()
If @error Then Exit MsgBox(16, "Active Directory Example Skript", "Function _AD_Open encountered a problem. @error = " & @error & ", @extended = " & @extended)

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

Global $sGivenName = "Jon"
Global $sSN = "Doe"
Global $aObjects[1][1]
Global $sOU = "" ; Search all OUs

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

$aObjects = _AD_GetObjectsInOU($sOU, "(&(SN=" & $sSN & ")(Givenname=" & $sGivenName & "))", 2, "sAMAccountName")
If @error > 0 Then
MsgBox(64, "Active Directory Functions - Example 1", "No OUs could be found")
Else
_ArrayDisplay($aObjects, "Active Directory Functions")
EndIf

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

; Close Connection to the Active Directory
_AD_Close()

[/autoit]

Alles anzeigen

Super! Genial,..
Eventuell brauche ich nochmal hilfe,..aber vielen Dank!

Hallo liebe AutoItler,

via AD würde ich gerne folgende Infos herausfinden:

Anhand des Nachnamen und Vornamen den AD Namen auslesen (Logon Name)

Vielen Dank!