Option Explicit

"Konstanten – bitte anpassen!!!

Const CONTAINERNAME = „Marl“ " Computername oder Domänenname

Const ALTERNAME = „HolgerSchwichtenberg“

Const NEUERNAME = „HS“

"Notwendige Variablen deklarieren

Dim Container

"Zugriff auf Domain-Objekt

Set Container = GetObject(„WinNT://“ & CONTAINERNAME)

"MoveHere ausführen

Container.MoveHere _

„WinNT://“ & CONTAINERNAME & „/“ & ALTERNAME,NEUERNAME

"Meldung ausgeben

Wscript.Echo „Benutzer umbenannt!“