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í"
|