28-05-19, 03:20 AM
كود جلب السيريال الخاص بالمذر بورد :
PHP كود :
Dim query As String = "Select SerialNumber From Win32_BaseBoard"
Using mbs As ManagementObjectSearcher = New ManagementObjectSearcher(query)
For Each mo As ManagementObject In mbs.Get
For Each pd As PropertyData In mo.Properties
' should be only one'
If pd.Name = "SerialNumber" Then
' value is object, test for Nothing'
If pd.Value IsNot Nothing Then
TextBox1.Text = pd.Value.ToString
End If
Exit For
End If
Next
Next
End Using
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
