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

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





وجدت هذا الكود وتمت تجربته بنجاح، فقط غير الـ 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 


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