Přidání organizační jednotky do domény

Funkce:
V deklarační části formuláře zapište:

Private Function AddOU(ByVal OUName As String, _
Optional Description As String) As Boolean

   'PARAMETRY: OUName -- jméno organizační jednotky
   'Description (Optional) -- Popis organizační jednotky

   'POŽADAVKY: ADSI, LDAP provider. Uživatel
   'musí mít práva pro přidání organizační jednotky


   Dim oRoot As IADs
   Dim oContainer As IADsContainer
   Dim oOrgUnit As IADsOU

   Dim sDomain As String

   On Error GoTo ErrHandler:

   Set oRoot = GetObject("LDAP://rootDSE")

   'Zjištění aktuální domény
   sDomain = oRoot.Get("defaultNamingContext")
   Set oContainer = GetObject("LDAP://" & sDomain)

   'Vytvoření nové OU
   Set oOrgUnit = oContainer.Create("organizationalUnit", "OU=" & OUName)
   If Trim(Description) <> "" Then oOrgUnit.Description = Description

   'Uložení
   oOrgUnit.SetInfo
   AddOU = True

ErrHandler:
   Set oOrgUnit = Nothing
   Set oContainer = Nothing
   Set oRoot = Nothing

End Function

Příklad volání:
AddOU "IT", "Oddělení informačních technologií"

Zpět

Autor: The Bozena