25-07-23, 02:32 PM
السلام عليكم ورحمة الله
لعرض رقم البيوس من موجه الاوامر نكتب
النتيجة ستكون مثل
[attachment=29117]
في الفيجوال ستوديو نحصل على النتيجة بالشكل التالي
وارجوا الاستفادة للجميع
لعرض رقم البيوس من موجه الاوامر نكتب
كود :
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وارجوا الاستفادة للجميع
