الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

هل يمكن أن أسحب أسماء المستخدمين على الجهاز

مغلق
بدأه بن ملعاط في 8 ديسمبر 2007 · 6 رد · 703 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هل هناك طريقة لسحب أسماء مستخدمي نظام الويندوز بحيث أضعها في LISTBOX أو COMBOBOX

أنا أعرف أنه يمكن ارجاع اسم المستخدم الحالي عن طريق My.User.Name

لكن هل يمكن استرجاع بقية المستخدمين

وشكرا

اللهم اغفر لي و لوالدي و للمؤمنين يوم يقوم الحساب

لا إله إلا الله عدد ما كان و عدد ما يكون و عدد الحركات و السكون

#2

اخي الكريم

لقد وجدت شي طريقه قد تساعدك حيث عن طريقها استطعت اظهار جميع المستخدمين في الويندوز ولكن للاسف لكوني مازلت مبتدا لم اعرف طريقه لوضعها في الكمبوبوكس فجعلت اسماء اليوزر تظهر في مسج بوكس

وهذا الكود كاملا

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

لا تنسونا من الدعاء لوالدتي بالاجر و الشفاء

#3

شكرا اخي الكريم على هذا السؤال الذي جعلني ابحث لأتعلم اشياء جديده

هذا الكود الان جاهز و يقوم بتعبئة الكمبو بوكس باسماء جميع المستخدمين في النظام

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 في قائمة المراجع

لا تنسونا من الدعاء لوالدتي بالاجر و الشفاء

#4

أشكرك أخي الكريم على ردودك وعلى المعلومة القيمة التي أوردتها وأحب أن أنوه أن يجب أن تضيف المرجع System.Managment كما ذكرت للمشروع لأنني بين وبينك حست إلى أن وصلت.

شكرا مرة أخرى

تم تعديل هذه المشاركة بواسطة بن ملعاط في 10 ديسمبر 2007 في 12:54

اللهم اغفر لي و لوالدي و للمؤمنين يوم يقوم الحساب

لا إله إلا الله عدد ما كان و عدد ما يكون و عدد الحركات و السكون

#5

يا أخوان اضع المرجع

Imports System.Managment

ولكن يعطيني خط أخطر تحته اي يقصد خطا ولما اضع المؤشر علي يعطيني ان هذا المرجع غير موجود

#6

أخ abboppe ..

Solution Explorer > "Project name" > Right Click > Add Reference > .NET > Choose System.Managment > OK

ثم أضف المكتبة إلى الكود عن طريق Imports System.Managment

بالتوفيق

مقالاتي في VB.NET وبرامجي على موقعي الجديد :

#7

شكرا جزيلا أخ Fikou-sama وبارك الله على جهودك

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…