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.