طریقه گرفتن شماره سریال هارد برای نوشتن قفل نرم افزاری...

[manitack]

سلام
کد برای مدل و سریال. دوستان اگر ایرادی میشناسند بفرمایند. با تشکر

Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
Dim wmi_HD As ManagementObject
For Each wmi_HD In searcher.Get
MsgBox(wmi_HD("Model").ToString & "---InterfaceType samtime with error:" & wmi_HD("InterfaceType").ToString)
Next
searcher = New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
For Each wmi_HD In searcher.Get
If wmi_HD("SerialNumber") Is Nothing Then
MsgBox("None serial")
Else
MsgBox("SerialNumber:" & wmi_HD("SerialNumber").ToString)
End If
Next