Verschieben vorhandener Benutzer in die Organisationseinheit
Wenn der Unternehmensadministrator Joe Worden die Windows NT 4.0-Domäne auf Active Directory aktualisiert, werden alle Benutzer und Gruppen zu den Benutzercontainern in der Domäne Fabrikam migriert. Joe kann diese Benutzer und Gruppen jetzt in die entsprechenden Organisationseinheiten verschieben. Ein Objekt kann auch mit ADSI zwischen verwandten Windows 2000 Domänen verschoben werden.
Im folgenden Codebeispiel verschiebt Joe "jeffsmith" in die Vertriebsorganisation.
Set usr = salesOU.MoveHere("LDAP://CN=jeffsmith,CN=Users,DC=fabrikam,DC=com", vbNullString)
Die IADsContainer.MoveHere-Methode verwendet den ADsPath des zu verschiebenden Objekts und den neuen Objektnamen (RDN). Um den gleichen Namen beizubehalten, können Sie NULL (vbNullString) für den bstrNewName-Parameter angeben. Um das Objekt beim Verschieben umzubenennen, geben Sie den neuen relativen Distinguished Name für den bstrNewName-Parameter an. Um jeffsmith beispielsweise in die Vertriebsorganisation zu verschieben und das Objekt "jeffsmith" in demselben Vorgang in "jeff smith" umzubenennen, _ würde Joe den folgenden Code ausführen:
Set usr = salesOU.MoveHere("LDAP://CN=jeffsmith,CN=Users,DC=Fabrikam,DC=com", "CN=jeff_smith")