[نداء]

السلام عليكم أريد مساعدتكم في كود يعرض جميع user name الموجودين في الشبكة

[@@أبورائد@@]

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





وجدت هذا الكود وتمت تجربته بنجاح، فقط غير الـ IP باسم أو IP للسيرفر.
لا تنس إضافة المرجع التالي: System.DirectoryServices

PHP كود :

'' System.DirectoryServices :أضف المرجع التالي
'' Add reference: System.DirectoryServices

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim MachineName As String = "127.0.0.1"
        Dim Admins As New DirectoryServices.DirectoryEntry("WinNT://127.0.0.1/Administrators")

        Dim Members As Object = Admins.Invoke("Members", Nothing)
        For Each Member As Object In CType(Members, IEnumerable)
            Dim CurrentMember As New DirectoryServices.DirectoryEntry(Member)
            Me.ListBox1.Items.Add(CurrentMember.Name)
        Next

    End Sub
End Class 


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

[نداء]

شكرا جزيلا بس اني عندي سؤال هو كيف انضيف المرجع System.DirectoryServices :أضف المرجع التالي
'' Add reference: System.DirectoryServices

[@@أبورائد@@]

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





إضافة المرجع عن طريق القائمة Project ثم ...Add Reference




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

[@@أبورائد@@]

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






ملاحظة:

قم بتغيير Administrators إلى Users لعرض أسماء المستخدمين العاديين




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