منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

djelloul