摘要: 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 阅读(560) 评论(0) 推荐(0) 编辑