01 2013 档案

摘要: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 阅读(600) 评论(0) 推荐(0)
摘要:http://blog.chinaunix.net/uid-20710081-id-3360235.html 阅读全文
posted @ 2013-01-07 10:28 Crazy Eric 阅读(248) 评论(0) 推荐(0)