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

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

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

الأساتذة الكرام ممكن طريقة ملأ كومبوبوكس بأسماء السيرفرات الموجودة على الجهاز أو على الشبكة

شكرا لكم

كود :

Imports System.Management

Imports System.Collections.Specialized

Imports System.DirectoryServices.ActiveDirectory

Imports System.DirectoryServices

  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

ألف شكر لكم أستاذ

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

djelloul

hminfo

djelloul