06-05-13, 11:35 AM
06-05-13, 12:06 PM
السلام عليكم ورحمة الله وبركاته
وجدت هذا الكود وتمت تجربته بنجاح، فقط غير الـ 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
السلام عليكم ورحمة الله وبركاته
06-05-13, 12:24 PM
شكرا جزيلا بس اني عندي سؤال هو كيف انضيف المرجع System.DirectoryServices :أضف المرجع التالي
'' Add reference: System.DirectoryServices
'' Add reference: System.DirectoryServices
06-05-13, 12:38 PM
السلام عليكم ورحمة الله وبركاته
إضافة المرجع عن طريق القائمة Project ثم ...Add Reference
السلام عليكم ورحمة الله وبركاته
06-05-13, 12:46 PM
السلام عليكم ورحمة الله وبركاته
ملاحظة:
قم بتغيير Administrators إلى Users لعرض أسماء المستخدمين العاديين
السلام عليكم ورحمة الله وبركاته