[djelloul]

السلام عليكم ورحمة الله تعالى وبركاته

رجاءا كنت مصطب win xp على الجهاز وكنت أملآ كومبوبوكس بأسماء السيرفرات بهذا الكود

كود :

       Dim root As New DirectoryEntry("WinNT:")
       Dim parent As DirectoryServices.DirectoryEntries
       parent = root.Children
       Dim d As DirectoryEntries = parent
       For Each complist As DirectoryEntry In parent
           For Each c As DirectoryEntry In complist.Children
               If (c.Name <> "Schema") Then
                   ComboBox1.Items.Add(c.Name)
               End If
           Next
       Next

لكن وبعد أن غيرت إلى win7 أصبح هذا الكود لا يشتغل فما المطلوب من فضلكم؟
ألف شكر