هل هناك طريقة لسحب أسماء مستخدمي نظام الويندوز بحيث أضعها في LISTBOX أو COMBOBOX
أنا أعرف أنه يمكن ارجاع اسم المستخدم الحالي عن طريق My.User.Name
لكن هل يمكن استرجاع بقية المستخدمين
وشكرا
هل هناك طريقة لسحب أسماء مستخدمي نظام الويندوز بحيث أضعها في LISTBOX أو COMBOBOX
أنا أعرف أنه يمكن ارجاع اسم المستخدم الحالي عن طريق My.User.Name
لكن هل يمكن استرجاع بقية المستخدمين
وشكرا
اللهم اغفر لي و لوالدي و للمؤمنين يوم يقوم الحساب
لا إله إلا الله عدد ما كان و عدد ما يكون و عدد الحركات و السكون
اخي الكريم
لقد وجدت شي طريقه قد تساعدك حيث عن طريقها استطعت اظهار جميع المستخدمين في الويندوز ولكن للاسف لكوني مازلت مبتدا لم اعرف طريقه لوضعها في الكمبوبوكس فجعلت اسماء اليوزر تظهر في مسج بوكس
وهذا الكود كاملا
Public Class Form1
Dim userReturn As Management.ManagementObjectCollection
Dim userSearch As Management.ManagementObjectSearcher
Dim localuser As Management.ManagementObject
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
userSearch = New Management.ManagementObjectSearcher("Select * from Win32_useraccount")
userReturn = userSearch.Get
For Each localuser In userReturn
Dim strOut As String
strOut = String.Format("Name {0} ", localuser("Name"))
MsgBox(strOut)
Next
End Sub
End Classلا تنسونا من الدعاء لوالدتي بالاجر و الشفاء
شكرا اخي الكريم على هذا السؤال الذي جعلني ابحث لأتعلم اشياء جديده
هذا الكود الان جاهز و يقوم بتعبئة الكمبو بوكس باسماء جميع المستخدمين في النظام
Public Class Form1
Dim userReturn As Management.ManagementObjectCollection
Dim userSearch As Management.ManagementObjectSearcher
Dim localuser As Management.ManagementObject
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
userSearch = New Management.ManagementObjectSearcher("Select * from Win32_useraccount")
userReturn = userSearch.Get
For Each localuser In userReturn
Dim strOut As String
strOut = String.Format(localuser("Name"))
ComboBox1.Items.Add(strOut)
Next
End Sub
End Classحيث الفورم يحتوي على Button1 و ComboBox1 وعند الضغط على الزر يعبأ الكمبو بوكس بالاسماء
ملاحظة لا بد من اضافه مكتبة system.Management في قائمة المراجع
لا تنسونا من الدعاء لوالدتي بالاجر و الشفاء
أشكرك أخي الكريم على ردودك وعلى المعلومة القيمة التي أوردتها وأحب أن أنوه أن يجب أن تضيف المرجع System.Managment كما ذكرت للمشروع لأنني بين وبينك حست إلى أن وصلت.
شكرا مرة أخرى
تم تعديل هذه المشاركة بواسطة بن ملعاط في 10 ديسمبر 2007 في 12:54
اللهم اغفر لي و لوالدي و للمؤمنين يوم يقوم الحساب
لا إله إلا الله عدد ما كان و عدد ما يكون و عدد الحركات و السكون
يا أخوان اضع المرجع
Imports System.Managment
ولكن يعطيني خط أخطر تحته اي يقصد خطا ولما اضع المؤشر علي يعطيني ان هذا المرجع غير موجود
أخ abboppe ..
Solution Explorer > "Project name" > Right Click > Add Reference > .NET > Choose System.Managment > OK
ثم أضف المكتبة إلى الكود عن طريق Imports System.Managment
بالتوفيق
مقالاتي في VB.NET وبرامجي على موقعي الجديد :
شكرا جزيلا أخ Fikou-sama وبارك الله على جهودك
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…