Extension d’ADSI

Avec le modèle d’extension ADSI, vous pouvez associer une classe de répertoire à votre propre objet COM. Du point de vue d’un programmeur ou d’un scripteur ADSI, l’extension fait partie intégrante d’ADSI. Par exemple, lorsqu’un nouvel employé rejoint Fabrikam, le Windows administrateur NT crée un objet utilisateur dans l’annuaire et l’administrateur de la paie devra configurer des entrées dans les systèmes de ressources humaines pour cet utilisateur. Avec une extension ADSI, ce processus peut être rationalisé en un seul script.

Dim usr
Dim sUserName

On Error Resume Next

sUserName = InputBox ("Enter the name of the user to add:")

Set usr = ou.Create("user", "CN=" & sUserName)

If Err.Number <> 0 Then
    WScript.Echo "An error has occurred. " & Err.Number
    Exit Sub 
End If

// Insert code to set some attributes

usr.SetInfo

If Err.Number <> 0 Then
    WScript.Echo "An error has occurred. " & Err.Number
    Exit Sub 
End If

usr.AddToPayroll  'this is a custom method from an ADSI Extension

If Err.Number <> 0 Then
    WScript.Echo "An error has occurred. " & Err.Number
    Exit Sub 
End If

Debug.Print "User: " & usr.Name & "has been created"

Pour plus d’informations, consultez Extensions ADSI.