Active Directory Attribute kopieren

Hallo zusammen,

hat jemand vielleicht ein bereits fertiges Script um im Active Directory von allen Benutzern, in meinem Beispiel, den Wert aus dem Feld "Telefonnummer" beim selben Benutzer in das Feld "Faxnummer" zu kopieren? Ganz egal ob es ein bereits fertiges Programm kann oder sich das Vorhaben per Script erledigen läßt.

Bereits Danke für jede Hilfe und Gruß,
olley

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 120649

Url: https://administrator.de/forum/active-directory-attribute-kopieren-120649.html

Ausgedruckt am: 22.12.2024 um 21:12 Uhr

7 Kommentare

Neuester Kommentar

Hallo Olley,

kein fertiges Script, aber die ds-Befehle können das.
dsget, dsquery, dsmod, usw.

Vielleicht willst Du Dir die Mühe selber machen.

Gruss,
Destry

Huhu ... das sind immer die Tollsten ...

:D

Machen lassen und dann auf der Arbeit sagen ... ich hab da was erstellt xD

Hallo,

ich hätte sowas anzubieten, da müsstest du aber bis morgen warten, bis ich wieder auf der Arbeit bin.
Wenn ich dann noch dran denke kann ich es mal Posten
Hoff nur mal dass ricardo net recht hat

MfG Sebastian

Hier also der Code.
Sollte ohne Anpassungen funktionieren.
Den Code hab ich mir aus verschiedenen Quellen im Internet zusammenkopiert, ist also net ganz original von mir

Dim objFSO, objUser
Dim adoCommand, adoConnection, strBase, strFilter, strAttributes
Dim objRootDSE, strDNSDomain, strQuery, adoRecordset 

'Erzeugen eines FSO  
set objFSO = CreateObject("Scripting.FileSystemObject")  

' ADO Objecte erzeugen  
set adoCommand = CreateObject("ADODB.Command")  
set adoConnection = CreateObject("ADODB.Connection")  
adoConnection.Provider = "ADsDSOObject"  
adoConnection.Open("Active Directory Provider")  
adoCommand.ActiveConnection = adoConnection

' Gesamte Domain durchsuchen  
set objRootDSE = GetObject("LDAP://RootDSE")  

strDNSDomain = objRootDSE.Get("defaultNamingContext")  
strBase = "<LDAP://" & strDNSDomain & ">"  

' Filter für die Suche  
strFilter = "(&(objectCategory=person)(objectClass=user))"'   

strAttributes = "distinguishedName"  
  
' LDAP Suchstring erzeugen  
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"  
adoCommand.CommandText = strQuery
adoCommand.Properties("Page Size") = 100  
adoCommand.Properties("Timeout") = 30  
adoCommand.Properties("Cache Results") = False  

' Query ausführen  
set adoRecordset = adoCommand.Execute
        
adoRecordset.MoveFirst()
    Do Until adoRecordset.EOF

			set objUser = getObject("LDAP://" & adoRecordset.Fields("distinguishedName").Value)  
			objUser.Facsimiletelephonenumber = objUser.telephonenumber
			objUser.setInfo
            adoRecordset.MoveNext()

    Loop

Grüße

Hey,

super ich danke euch vielmals.
Achso und nein, ich habe nicht vor mich mit der Arbeit anderer wichtig zu machen

Ich dachte nur falls jemand bereits was hat wäre es nett ein wenig Zeit zu sparen.

Das Script funktioniert tadellos, danke dir SuperMari0.

VG, olley