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.