Dim xx As XNamespace = XNamespace.Get( _
          "http://www.microsoft.com/GroupPolicy/Settings")
        Dim gpt As XNamespace = XNamespace.Get( _
        "http://www.microsoft.com/GroupPolicy/Types")
 
        For Each xe As XElement In xDoc.Elements(xx + "GPO").Elements(xx + _
          "Identifier")
            Debug.WriteLine(xe.Element(gpt + "Identifier").Value)
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist