写了个获取硬盘使用时间的，顺便分享下。。。

'突然要用到就写了下。。
'只有一个硬盘的测试通过，多硬盘就不知道什么情况了。。
'需要以管理员身份运行。。
'代码中为了防止百度吞缩进用了全角空格，自己替换回去。。
For Each i In GetObject("WinMGMTS:\\.\root\WMI") _
　.ExecQuery("Select * from MSStorageDriver_ATAPISmartData")
　s=i.VendorSpecific
　h=s(68)*256+s(67)
　Msgbox "硬盘通电时间："&h&"小时（"&h\24&"天）"
Next