Erstellen einer Organisationseinheit

  • Artikel

Nachdem Sie nun über das Domänenobjekt verfügen, können Sie mit dem Erstellen von Organisationseinheiten beginnen. Fabrikam hat zwei Divisionen: Vertrieb und Produktion. Das Unternehmen plant, zwei Windows 2000-Administratoren für die Verwaltung jeder Division einzustellen. Joe Worden als Unternehmensadministrator erstellt zwei neue Organisationseinheiten unter der Domäne Fabrikam. Durch das Erstellen einer Organisationseinheit kann Joe mehrere Objekte gruppieren und eine andere Person diese Objekte verwalten lassen. Im folgenden Codebeispiel wird die Sales Organizational Unit (OU) erstellt.

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

Die IADsContainer.Create-Methode akzeptiert den Klassennamen und den Namen des neuen Objekts. An diesem Punkt wird das Objekt nicht in Active Directory committet. Sie verfügen jedoch über einen ADSI/COM-Objektverweis auf dem Client. Mit diesem ADSI-Objekt können Sie Attribute mithilfe der IADs.Put-Methode festlegen oder ändern. Die IADs.Put-Methode akzeptiert den Attributnamen und den Wert des Attributs. Dennoch wird nichts an das Verzeichnis gebunden; Alles wird auf dem Client zwischengespeichert. Wenn Sie die IADs.SetInfo-Methode aufrufen, werden die Änderungen , in diesem Fall die Objekterstellung und Attributänderung, in das Verzeichnis committet. Diese Änderungen werden durchgeführt. Dies bedeutet, dass entweder das neue Objekt mit allen von Ihnen festgelegten Attributen oder gar kein Objekt angezeigt wird.

Sie können auch Organisationseinheiten schachteln. Im folgenden Codebeispiel wird davon ausgegangen, dass die Division Sales weiter in die Regionen Ost und West unterteilt ist.

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

Dies gilt auch für die Region West.

Geben Sie den distinguished-Namen an, um eine direkte Bindung an die Region "Osten" im sales organization zu binden.

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"

Wenn Sie bereits an das übergeordnete Objekt (Sales) gebunden haben, können Sie eine Bindung an das untergeordnete Objekt (East) aus dem übergeordneten Objekt mithilfe des relativen Namens des untergeordneten Objekts herstellen.

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

Um sicherzustellen, dass die Objekte erstellt wurden, verwenden Sie das Active Directory-Benutzer und -Computer MMC-Snap-In, um die neuen Organisationseinheiten anzuzeigen.

Verschieben vorhandener Benutzer in die Organisationseinheit