建立組織單位

  • 發行項

現在您已擁有網域物件，您可以開始建立組織單位。 Fabrikam 有兩個部門：Sales 和 Production。 公司正計劃僱用兩名 Windows 2000 系統管理員來管理每個部門。 Joe Worden 是企業系統管理員，將會在 Fabrikam 網域下建立兩個新的組織單位。 藉由建立組織單位，Joe 可以將多個物件分組在一起，並讓其他人管理這些物件。 下列程式代碼範例會建立銷售組織單位 （OU）。

Dim dom as IADsContainer
Set dom = GetObject("LDAP://DC=Fabrikam,DC=Com")
Set salesOrg = dom.Create("organizationalUnit", "OU=Sales")
salesOrg.Put "description", "Sales Headquarter,SF"
salesOrg.Put "wwwHomePage", "https://fabrikam.com/sales"
salesOrg.SetInfo

IADsContainer.Create 方法會接受類別名稱和新對象的名稱。 此時物件不會認可至 Active Directory。 不過，您會在用戶端上有 ADSI/COM 物件參考。 使用此 ADSI 物件時，您可以使用 IADs.Put 方法來設定或修改屬性。 IADs.Put 方法接受屬性名稱和屬性的值。 不過，不會認可任何目錄;所有專案會在用戶端快取。 當您呼叫 IADs.SetInfo 方法時，變更會認可至目錄，在此情況下，物件建立和屬性修改。 這些變更是交易的，這表示您會看到新的 物件，其中包含您設定的所有屬性，或完全沒有物件。

您也可以巢狀組織單位。 下列程式代碼範例假設 Sales 部門會進一步劃分為東西部區域。

Set east = salesOrg.Create("organizationalUnit", "OU=East")
east.SetInfo

這也適用於西部區域。

若要直接系結至 Sales 組織中的東部區域，請指定辨別名稱。

Set east = GetObject("LDAP://OU=East,OU=Sales,DC=Fabrikam,DC=COM")
Debug.Print east.Get "description"
east.Put "wwwHomePage", "https://fabrikam.com/sales/east"

如果您已經系結至父物件 （Sales），您可以使用子對象的相對名稱，從父對象系結至子物件 （East）。

Set east = salesOU.GetObject("organizationalUnit", "OU=East")

若要確保已建立物件，請使用 Active Directory 使用者和電腦 MMC 嵌入式管理單元來檢視新的組織單位。

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