摘要:
MsgValue = ""Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")'获取硬盘序列号Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMedia", , 48)For Each objItem In colItemsMsgValue = MsgValue & vbCrLf & "硬盘 = " & objItem.SerialNum 阅读全文
posted @ 2013-01-30 14:09
Crazy Eric
阅读(597)
评论(0)
推荐(0)

浙公网安备 33010602011771号