منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعبئة كومبوبوكس بأسماء السيرفرات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : تعبئة كومبوبوكس بأسماء السيرفرات (/showthread.php?tid=15339)

تعبئة كومبوبوكس بأسماء السيرفرات - djelloul - 04-04-16

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

رجاءا كنت مصطب 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 أصبح هذا الكود لا يشتغل فما المطلوب من فضلكم؟
ألف شكر