Guten Nabend allerseits
ja ich schon wieder "g"
Ich habe noch eine weitere Frage. Ich habe das Forum schon durchwühlt aber leider keine passende Antwort gefunden.
Ich habe ein VBS Scipt geschrieben welches mir aus einer Excel Tabelle heraus User in einer OU im AD anlegt und wollte dies nun erweitern das ich auch aus einer Excel Tabelle die User in einer OU im AD löschen kann.
ICh habe mir die Hilfe, Foren und Klassen/Objektinformation angeschaut aber ich schaffe es nicht mir die Syntax zum Löschen eines Users in einer OU zusammen zu setzen.
Ich habe hier zwar was gefunden mit dem es mit dem "net... Befehl" geht aber möchte dies über VBS in meinem Scipt haben und nicht erst eine .cmd ausführen lassen um dies zu erlediegen.
Ein Ansatz von mir war
Set adsNamenraum = GetObject("LDAP:")
Set adsContainer = adsNamenraum.openDSObject(strgPfad,strAdmin,pwd,0)
benutzername = objExcel.Cells(intRow, 2).Value
For Each Element In adsContainer
If element.class = "user" Then
If element.sAMAccountName = benutzername Then
element.delete
Der war aber glaube ich ziemlich daneben. Die zweite Variante die ich jetzt versuche ist
Dim ouo4, b4
Set ouo4 = GetObject("LDAP://" & server & "/ou=" & ou & ",ou=Benutzer,dc=rsb,dc=local")
Set b4 = ouo4.Delete _
("User", "cn=" & objExcel.Cells(intRow, 1).Value)
Hierbei komt aber die Fehlermeldung "Ein solches Objekt ist auf dem Server nciht vorhanden" aber dies kann nur mit der Syntax zu tun haben da ich mit dem fast gleichen Scipt mit der cCeat Funktion anstatt Delet auf dieser weise die user Anlege
Ich vermute mal das der Fehler darin liegt das er bei der Create Funktion den Classname haben will und bei der Delete SUB steht BstrClassName aber ich weiß nicht wo der unterschied liegt