Löschen eines Computer Objects im AD

  • VB.NET
  • .NET (FX) 4.0

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von v-go.

    Löschen eines Computer Objects im AD

    Hallo Leute,

    hat jemand kurz eine Eingabe für mich, wie man Comptuer Objects im Active Directory via VB.net löschen kann?

    Bin für jede Hilfe dankbar,

    Danke,
    LG :thumbup:

    Servus

    siehe stackoverflow.com/questions/79…e-directory-using-c-sharp

    Beispiel ist zwar C#, aber das sollte bei den paar Zeilen kein Problem sein

    C#-Quellcode

    1. ​
    2. /* Retreiving RootDSE infos
    3. */
    4. string ldapBase = "LDAP://WM2008R2ENT:389/";
    5. string sFromWhere = ldapBase + "rootDSE";
    6. DirectoryEntry root = new DirectoryEntry(sFromWhere, "dom\\jpb", "PWD");
    7. string defaultNamingContext = root.Properties["defaultNamingContext"][0].ToString();
    9. /* Retreiving the computer to remove
    10. */
    11. sFromWhere = ldapBase + defaultNamingContext;
    12. DirectoryEntry deBase = new DirectoryEntry(sFromWhere, "dom\\jpb", ".biènèsph^r^.1966");
    14. DirectorySearcher dsLookForDomain = new DirectorySearcher(deBase);
    15. dsLookForDomain.Filter = "(&(cn=MACHSUPR))"; // MACHSUPR is the computer to delete
    16. dsLookForDomain.SearchScope = SearchScope.Subtree;
    17. dsLookForDomain.PropertiesToLoad.Add("cn");
    18. dsLookForDomain.PropertiesToLoad.Add("distinguishedName");
    20. SearchResultCollection srcComputer = dsLookForDomain.FindAll();
    22. foreach (SearchResult aComputer in srcComputer)
    23. {
    24. /* For each computer
    25. */
    26. DirectoryEntry computerToDel = aComputer.GetDirectoryEntry();
    27. computerToDel.DeleteTree();
    28. computerToDel.CommitChanges();
    29. }
    Die deutsche Sprache ist Freeware, du kannst sie benutzen, ohne dafür zu bezahlen. Sie ist aber nicht Open Source, also darfst du sie nicht verändern, wie es dir gerade passt.

    Danke vielmals für diesen Sourcecode. Habe in mal durch einen Converter gebügelt. Sieht soweit gut aus:

    VB.NET-Quellcode

    1. Function delete_ad_object()
    2. Dim ldapBase As String = LDAP://PATH/
    3. Dim sFromWhere As String = ldapBase & "rootDSE"
    5. Dim root As New DirectoryEntry(sFromWhere, "dom\jpb", "PWD")
    6. Dim defaultNamingContext As String = root.Properties("defaultNamingContext")(0).ToString()
    7. ' Retreiving the computer to remove
    9. sFromWhere = ldapBase & defaultNamingContext
    10. Dim deBase As New DirectoryEntry(sFromWhere, "dom\jpb", ".biènèsph^r^.1966")
    11. Dim dsLookForDomain As New DirectorySearcher(deBase)
    12. dsLookForDomain.Filter = "(&(cn=MACHSUPR))"
    13. ' MACHSUPR is the computer to delete
    14. dsLookForDomain.SearchScope = SearchScope.Subtree
    15. dsLookForDomain.PropertiesToLoad.Add("cn")
    16. dsLookForDomain.PropertiesToLoad.Add("distinguishedName")
    17. Dim srcComputer As SearchResultCollection = dsLookForDomain.FindAll()
    19. For Each aComputer As System.IO.SearchResult In srcComputer
    21. Dim computerToDel As DirectoryEntry = aComputer.GetDirectoryEntry()
    23. computerToDel.DeleteTree()
    24. computerToDel.CommitChanges()
    25. Next
    26. End Function


    Allerdings bekomme ich bei

    VB.NET-Quellcode

    1. For Each aComputer As System.IO.SearchResult In srcComputer

    den Fehler: "Fehler 28 "System.IO.SearchResult" ist in diesem Kontext nicht zugreifbar, da es sich um "Friend" handelt."

    Verstehe die Aussage der Fehlermeldung nicht, was muss ich stattdessen verwenden?

    Lg,

    Dann setzte doch mal einen Breakpoint am Anfang der Function und gehe Schrittweise durch.

    Ich kann das leider nicht testen denn auf der Arbeit habe ich keine Berechtigung dazu und Zuhause kein AD
    Die deutsche Sprache ist Freeware, du kannst sie benutzen, ohne dafür zu bezahlen. Sie ist aber nicht Open Source, also darfst du sie nicht verändern, wie es dir gerade passt.

    Achso,. ja kann man nichts machen.

    --> Ich kann es nicht schrittweise durchgehen, da ich breits beim Versuch das Teil zu debuggen die Fehlermeldung bei "For Each aComputer As System.IO.SearchResult In srcComputer" bekomme. Diese lautet wie in Post #3 ""Fehler 28 "System.IO.SearchResult" ist in diesem Kontext nicht zugreifbar, da es sich um "Friend" handelt."

    v-go schrieb:

    die Fehlermeldung bei "For Each aComputer As System.IO.SearchResult In srcComputer" bekomme

    Du hast doch bestimmt Option Infer On.
    Dann reicht auch For Each aComputer In srcComputer
    Im Zweifel kannst du innerhalb der Schleife casten.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende