Reorganisation

Die Vertriebsorganisation wurde in eine neue Organisation verschoben: "Sales and Support". Julie Bankert wurde zum Vice President gewählt und wird die neue Organisation leiten. Joe Worden, der Unternehmensadministrator, muss die Organisationseinheit Sales in eine neue Organisationseinheit (Sales and Support) verschieben.

Set dom = GetObject("LDAP://DC=Fabrikam,DC=COM")
Set salesSupport = dom.Create("organizationalUnit", "CN=Sales and Support")
Set sales = salesSupport.MoveHere("LDAP://OU=Sales,DC=Fabrikam,DC=COM", vbNullString)

Mit diesem Codebeispiel werden alle Objekte in der Vertriebsorganisationseinheit, einschließlich der untergeordneten Organisationseinheiten, in die neue Organisationseinheit verschoben.

Jetzt kann Joe Julie in die Organisationseinheit Sales and Support verschieben.

Set usr = salesSupport.MoveHere("LDAP://CN=Julie Bankert,OU=Sales,OU=Sales and Support,DC=Fabrikam,DC=COM")
usr.Put "title", "Vice President"
usr.SetInfo

Beachten Sie, dass der Direkte Manager-Berichtslink zwischen Julie Bankert und Chris Gray automatisch von Active Directory aktualisiert wird.

So erstellen Sie einen Active Directory-Bericht

  1. Öffnen Visual Basic Version 6.0, und wenn Sie zur Eingabe des Projekttyps aufgefordert werden, wählen Sie Data Project.

  2. Doppelklicken Sie Project Auf Datenumgebung1.

  3. Klicken Sie im Fenster Datenumgebung mit der rechten Maustaste auf das Verbindungsobjekt (Connection1), und wählen Sie Eigenschaften aus.

  4. Wählen OLE DB Anbieter für Microsoft Directory-Dienste aus, und klicken Sie auf Weiter.

  5. Wählen Sie Use Windows NT Integrated security (Integrierte NT-Sicherheit verwenden) aus, und klicken Sie auf OK. Dadurch wird ein Verbindungsobjekt erstellt.

  6. Klicken Sie erneut mit der rechten Maustaste auf das Fenster Datenumgebung, um Befehl hinzufügen auszuwählen. Klicken Sie mit der rechten Maustaste auf das Command1-Objekt, und wählen Sie Eigenschaften aus. Das folgende Dialogfeld Command1-Eigenschaften wird angezeigt.

    Command1-Eigenschaften (Dialogfeld)

  7. Klicken Sie auf SQL Option Anweisung, und geben Sie Folgendes ein:

    SELECT Name,telephoneNumber FROM 'LDAP://DC=Fabrikam,DC=com' WHERE objectCategory='Person' AND objectClass='user'

    Das Command-Objekt wird erstellt. Fügen Sie dem Bericht das Command-Objekt hinzu.

  8. Doppelklicken Sie im Fenster datenbericht1 Project Datenbericht.

  9. Ziehen Sie das Command1-Objekt aus dem Fenster DataEnvironment1 in den Abschnitt Detail im Fenster Datenbericht.

  10. Wählen Sie unter DataReport1 Properties (DataReport1-Eigenschaften) für DataSource im Pull-Downmenü die Option DataEnvironment1 und dann im Feld DataMember die Option Command1 aus.

  11. Klicken Sie im Projektfenster mit der rechten Maustaste auf Data Project, und wählen Sie DataProject Properties (DatenProjekteigenschaften) aus.

  12. Wählen Sie im Dialogfeld DataProject - Project Eigenschaften unter Startobjekt die Option DataReport1 aus dem Pull-Down-Menü aus. Klicken Sie zum Speichern auf OK.

  13. Kompilieren Das folgende Dialogfeld DataReport1 wird angezeigt.

    datareport1 (Dialogfeld)

Verbinden heterogener Daten