https://msdn.microsoft.com/en-us/library/aa394493(v=vs.85).aspx
参考：
http://bbs.csdn.net/topics/340250062
http://download.csdn.net/detail/u010242952/7614539
Imports System
Imports System.Management
Imports System.Windows.Forms
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim searcher As New ManagementObjectSearcher( _
"root\WMI", _
"SELECT * FROM MSStorageDriver_ATAPISmartData")
For Each queryObj As ManagementObject In searcher.Get()
Dim arrVendorSpecific As Byte() = queryObj("VendorSpecific")
MsgBox("Temperature = " & arrVendorSpecific(115))
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
End Try
End Sub
End Class