+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=8805)
مساعدة في كود يعرض اسماء المستخدمين في الشبكة - نداء - 06-05-13
السلام عليكم أريد مساعدتكم في كود يعرض جميع user name الموجودين في الشبكة
مساعدة في كود يعرض اسماء المستخدمين في الشبكة - @@أبورائد@@ - 06-05-13
السلام عليكم ورحمة الله وبركاته
وجدت هذا الكود وتمت تجربته بنجاح، فقط غير الـ 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
شكرا جزيلا بس اني عندي سؤال هو كيف انضيف المرجع System.DirectoryServices :أضف المرجع التالي
'' Add reference: System.DirectoryServices
مساعدة في كود يعرض اسماء المستخدمين في الشبكة - @@أبورائد@@ - 06-05-13
السلام عليكم ورحمة الله وبركاته
إضافة المرجع عن طريق القائمة Project ثم ...Add Reference
السلام عليكم ورحمة الله وبركاته
مساعدة في كود يعرض اسماء المستخدمين في الشبكة - @@أبورائد@@ - 06-05-13
السلام عليكم ورحمة الله وبركاته
ملاحظة:
قم بتغيير Administrators إلى Users لعرض أسماء المستخدمين العاديين
السلام عليكم ورحمة الله وبركاته