منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الحصول على سيريال البيوس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : الحصول على سيريال البيوس (/showthread.php?tid=46626)

الحصول على سيريال البيوس - ابو محمد محمد محمد - 25-07-23

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


لعرض رقم البيوس من موجه الاوامر نكتب

كود :
wmic bios get serialnumber

النتيجة ستكون مثل

[attachment=29117]

في الفيجوال ستوديو نحصل على النتيجة بالشكل التالي

كود :
Imports System.Management

 Dim q As New SelectQuery("Win32_bios")
 Dim search As New ManagementObjectSearcher(q)
 Dim info As New ManagementObject

 For Each info In search.Get
   MessageBox.Show("Serial Number: " & info("serialnumber").ToString & vbNewLine & vbNewLine & "Bios Version: " & info("version").ToString)
 Next


وارجوا الاستفادة للجميع

RE: الحصول على سيريال البيوس - atefkhalf2004 - 29-07-23

بعد اذنك يظهر خطا
حتي بعد استيراد system.managment

RE: الحصول على سيريال البيوس - atefkhalf2004 - 11-08-23

لم يرد الفاضل صاحب الموضوع
او
اي زميل اخر

RE: الحصول على سيريال البيوس - Taha Okla - 11-08-23

الكود شغال 100% على كافة اصدارات VS وبدون مشاكل

ولكن ربما لم يخطر ببالك أنه يجب عليك أن تقوم بإضافة المكتبة المرجعية الخاصة بـ
 System.Management 
من Add Reference

RE: الحصول على سيريال البيوس - atefkhalf2004 - 12-08-23


الخطا مازال موجود

RE: الحصول على سيريال البيوس - Taha Okla - 12-08-23

المكتبة التي اضفتها ليست المكتبة المطلوبة

لاحظ أنها تبدأ بالمسار System
يعني المكتبة من الدوت نت (FrameWork) وليس المكتبات القديمة

RE: الحصول على سيريال البيوس - atefkhalf2004 - 13-08-23

اساتذة افاضل
تمام
شكرا