將現有使用者移至組織單位

當企業系統管理員 Joe Worden 將 Windows NT 4.0 網域升級至 Active Directory 時,所有使用者和群組都會移轉至 Fabrikam 網域中的 Users 容器。 Joe 現在可以將這些使用者和群組移至適當的組織單位。 您也可以使用 ADSI 在相關的 Windows 2000 網域之間移動物件。

在下列程式代碼範例中,Joe 會將 「jeffsmith」 移至 Sales 組織。

Set usr = salesOU.MoveHere("LDAP://CN=jeffsmith,CN=Users,DC=fabrikam,DC=com", vbNullString)

IADsContainer.MoveHere 方法會採用要移動之物件的 ADsPath,以及新的物件名稱 (RDN)。 若要保留相同的名稱,您可以為 bstrNewName 参數指定 NULLvbNullString)。 若要在移動物件時重新命名物件,請為 bstrNewName 參數指定新的相對辨別名稱。 例如,若要將 jeffsmith 移至銷售組織,並將 「jeffsmith」 物件重新命名為相同作業中的 「jeff_smith」,Joe 會執行下列程式代碼:

Set usr = salesOU.MoveHere("LDAP://CN=jeffsmith,CN=Users,DC=Fabrikam,DC=com", "CN=jeff_smith")

在組織單位中建立新使用者