' Demo-Skript
' Thema: ADS-Verwaltung mit ADSI
' Autor: Holger Schwichtenberg
' Auszug aus dem Buch "Windows- und Backoffice-Scripting"
' erschienen bei Addison-Wesley im Jahr 2000

' ### Anlegen von Organisationseinheiten im Active Directory 

Dim OUListe ' Array der anzulegenden OUs
Dim objCon ' As IADsContainer
Dim objOU ' As IADsOU
Const CONTAINER = "LDAP://sonne2000/OU=It-Visions,dc=it-visions,dc=de"
Const MANAGER = "CN=HS,OU=IT-Visions,DC=IT-Visions,DC=de"
OUListe = Array("Einkauf", "Vertrieb", "Entwicklung", "Finanzen")
' -- Bindung an Container
Set objCon = GetObject(CONTAINER)
For Each ou In OUListe
    ' -- Erzeugung des neuen Benutzers
    Set objOU = objCon.create("organizationalunit", "ou=" & ou)
    ' -- Attribute setzen
    objOU.LocalityName = "Essen"
    objOU.Description = "www.IT-Visions.de"
    objOU.Put "ManagedBy", MANAGER
    objOU.SetInfo
    MsgBox "OU wurde angelegt:" & Chr(13) & objOU.ADsPath
Next