Mit Excel und der AD-PoSh AD-Benutzer umbenennen – @YusufsDirectoryBlog.onmicrosoft.com

Hin und wieder kommt es vor, dass man den Benutzeranmeldenamen mehrerer Domänen-Benutzer ändern muss. Da sich die Domänen-Benutzer mit dem „Benutzeranmeldenamen“ oder mit dem „Benutzeranmeldenamen (Prä-Windows 2000)“ anmelden können, müssen beim ändern des Benutzeranmeldenamen die Werte in den beiden Attributen userPrincipalName (kurz, UPN) und sAMAccountName geändert werden. Bei wenigen Benutzern lassen diese sich recht einfach händisch ändern. Doch wie sieht es mit hunderten oder >1.000 Benutzern aus?!

Diese Aufgabe lässt sich einfach und State of the Art mit Excel und der AD-PowerShell lösen! Die Basisdaten kann man sich recht simpel in eine CSV-Datei, die sich wiederum in Excel importieren lässt, aus dem AD exportieren. Dazu eignen sich CSVDE und die AD-PowerShell. Wie man einen Export (und Import) mit CSVDE oder der AD-PowerShell durchführen kann, zeigt dieser Artikel:

Massenimporte- und -exporte mit CSVDE und der AD-PowerShell durchführen

Die Excel-Datei könnte beispielsweise folgendermaßen aussehen:

Danach lässt sich der userPrincipalName sowie sAMAccountName mit dem folgenden AD-PowerShellskript ändern.

######################################################

#

# AD-PowerShell Skript zum umbenennen von AD-Benutzer.

# Mit diesem Skript wird der sAMAccountName, userPrincipalName

# und das Attribut name umbenannt

#

# Von: Yusuf Dikmenoglu 04/2011

#

# http://blog.dikmenoglu.de

#

######################################################
clear
# Excel Einstellungen

$excel = New-Object -ComObject Excel.Application # create base object

$excel.visible = $false

$wb = $excel.workbooks.open(“C:\Tools\Benutzernamen.xls”)

$ws1 = $wb.Worksheets.item(1)  
# Programmbeginn

$count = 5

for ($index = 2; $index -lt $count; $index++) {

    Write-Host $index

    $loginAlt = $ws1.Cells.Item($index,6).text.trim()

    $loginNeu = $ws1.Cells.Item($index,10).text.trim()

    $aduser = Get-ADUser $loginAlt | ForEach-Object {

        $ws1.Cells.Item($index,4) = $_.givenname

        $ws1.Cells.Item($index,3) = $_.surname

        $pricipalname = $loginNeu + “@Domäne.de”

        Set-ADUser -Identity $loginAlt -SamAccountName $loginNeu -UserPrincipalName $pricipalname

        Rename-ADObject -Identity $loginAlt -NewName $loginNeu     # Funktioniert nur, wenn das Attribut “name” gleich “sAMAccountName” ist

        

    }

}
$wb.save()

$wb.Close()

$excel.Quit()

Weitere Informationen:
Die Active Directory-Attribute hinter den Feldnamen
Die AD Management Gateway Services für Windows Server 2003 und Windows Server 2008
LDIFDE – LDAP Data Interchange Format Data Exchange