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

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



ملأ كومبوبوكس بأسماء السيرفرات - djelloul - 11-07-15

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

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

شكرا لكم


RE: ملأ كومبوبوكس بأسماء السيرفرات - hminfo - 11-07-15

كود :
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



RE: ملأ كومبوبوكس بأسماء السيرفرات - djelloul - 13-07-15

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