Erweitern von ADSI

Mit dem ADSI-Erweiterungsmodell können Sie Ihrem eigenen COM-Objekt eine Verzeichnisklasse zuordnen. Aus der Perspektive eines ADSI-Programmierers oder Skriptautors wird die Erweiterung zu einem integralen Bestandteil von ADSI. Wenn beispielsweise ein neuer Mitarbeiter Fabrikam beitritt, erstellt der Windows NT-Administrator ein Benutzerobjekt im Verzeichnis, und der Gehaltsabrechnungsadministrator muss einige Einträge in den Personalsystemen für diesen Benutzer einrichten. Mit einer ADSI-Erweiterung kann dieser Prozess in einem einzigen Skript optimiert werden.

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"

Weitere Informationen finden Sie unter ADSI-Erweiterungen.