[elgokr]

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

ارفق لكم سورس كود مع البرنامج

لعرض اسماء الاجهزة بالشبكة المحلية

اليكم صورة ايقونة البرنامج مع عرض شكل القائمة

الاكواد المستخدمة

يتم استدعاء

كود :

Imports System.DirectoryServices

ويتم جلب ذلك الملف من خلال References

من ثم داخل الـ Form1_Load

كود :

Dim GrtName_ As New Threading.Thread(AddressOf GetNetworkComputers)
       GrtName_.IsBackground = True
       GrtName_.Start()

ثم يتم اضافة عدد 2 Sub

كود :

Private Sub AddListBoxItem(ByVal s As String)
       ListBox1.Items.Add(s)
   End Sub

كود :

Private Sub GetNetworkComputers()
       Dim alWorkGroups As New ArrayList
       Dim de As New DirectoryEntry

       de.Path = "WinNT:"
       For Each d As DirectoryEntry In de.Children
           If d.SchemaClassName = "Domain" Then alWorkGroups.Add(d.Name)
           d.Dispose()
       Next

       For Each workgroup As String In alWorkGroups

           de.Path = "WinNT://" & workgroup
           For Each d As DirectoryEntry In de.Children

               If d.SchemaClassName = "Computer" Then

                   Dim del As UpdateDelegate = AddressOf AddListBoxItem
                   Me.Invoke(del, d.Name)

               End If

               d.Dispose()

           Next
       Next
   End Sub

السورس (2015)

تحياتى للجميع

وتمنياتى لكم كل التوفيق