Active Directory Funktionen - Neue Version 1.5.0.0 freigegeben!

water eventuell solltest du den ersten post noch ändern

aktuell steht da noch die überschrift : Active Directory Funktionen - Neue Version 1.4.0.0 freigegeben!

gruß gmmg

Hi,
ich habe folgendes Scenario und hoffe das ihr mir dabei helfen könnt.

Wir haben eine Produktionsnetz und ein Entwicklernetz.
Momentan haben beide Netze den gleichen Computernamen aufbau. Pxxxxx
Nun möchten wir ganz gerne die P-Namen im E-Netz auf Exxxxx umbenennen.
Ich denke am Client selber sollte dies relativ schnell machbar sein. Doch in der AD stehe ich noch auf dem Schlauch.

Ich habe daher gegoogled und bin in diesem Thread gelandet.

Weiterführend habe ich dann _AD_RenameObject gesehen und dachte das dies ja helfen würde. Doch soweit ich das jetzt verstanden habe, kann ich da nur User Objecte umbennenen. Ist dies korrekt?

Gibt es evtl. mit den vorhandenen Scriptbausteinen eine möglichkeit den Computernamen abzuändern?

Vielen Dank für eure Mühen

crdy

oh... ich hab da was überlesen gehabt...

in _AD_SamAccountNameToFQDN steht ja das für Computername das $ zeichen mitgegeben werden muss...

e.g. Global $IObject = GuiCtrlCreateInput(_AD_SamAccountNametoFQDN(@UserName)
wird zu
Global $IObject = GuiCtrlCreateInput(_AD_SamAccountNametoFQDN(@ComputerName & "$")

Dann klappts auch mit dem Nachbarn.

danke für die Hilfe.

Gruß

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!

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!

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

danke

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

hi walter,

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

Danke!

die telefonnummer ist ja ein attribute was zum user gehört!
hast du nur die telefonnummer oder auch den namen, eventuell aus einer anderen liste?

mit dem ADSI Editor die Attribute auslesen ...

Beispiel "telephoneNumber"

$aProperties = _AD_GetObjectProperties($sSamAccountName)
; _ArrayDisplay($aProperties, "Active Directory Functions - Example 1 - Properties for user '" & @UserName & "'")

For $x = 1 to $aProperties[0][0]
If $aProperties[$x][0] = ""telephoneNumber"l" then $telefonl = $aProperties[$x][1]
If $aProperties[$x][0] = "cn" then $name_cn = $aProperties[$x][1]
Next

gruß gmmg

hi gmmg,

danke, ich habe nur die telefonnummer

lg

da müsstest du ja jeden User im AD durchgehen und die _AD_GetObjectProperties($sSamAccountName) zur Telefonnummer abfragen oder falls die User alle in einer Gruppe sind, diese auslesen und den abgleich machen ..

beispiel zu _AD_GetObjectsInOU , kann aber sein, dass es an die neue AD Funktion angepast werden muss ...

$aObjects = _AD_GetObjectsInOU("OU=User,OU="&$aOUs[$x]&",DC=konzern,DC=de", "(&(objectcategory=person)(objectclass=user)(mail=*)(|(userAccountControl=512)(msExchHideFromAddressLists="")(msExchHideFromAddressLists=FALSE)(userAccountControl=66048)))", 2, "name,department,company,createTimeStamp")

$aObjects = _AD_GetObjectsInOU("OU=User,OU="&$aOUs[$x]&",DC=Konzern,DC=de", "(&(objectcategory=person)(objectclass=user)(mail=*)(|(userAccountControl=512)(msExchHideFromAddressLists="")(msExchHideFromAddressLists=FALSE)(userAccountControl=66048)))", 2, "name,description,company");"name,department,company")

AD User aus einer bestimmten Gruppe auslesen ...

gruß gmmg

#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