VBS获取硬盘序列号

使用VBS调用WMI获取硬盘序列号,没什么技术含量,核心是Win32_PhysicalMedia类。

把以下代码,保存为扩展名是vbs的文件中

复制代码
'SerialNumber
'By Demon
'http://demon.tw
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMedia",,48)

Dim objItem 'as Win32_PhysicalMedia
For Each objItem in colItems
    WScript.Echo "SerialNumber: " & objItem.SerialNumber
Next
复制代码

参考链接:http://msdn.microsoft.com/en-us/library/windows/desktop/aa394346%28v=vs.85%29.aspx

 

出处:http://demon.tw/programming/vbs-harddisk-serialnumber.html

posted on   jack_Meng  阅读(436)  评论(0编辑  收藏  举报

相关博文:
阅读排行:
· DeepSeek “源神”启动!「GitHub 热点速览」
· 微软正式发布.NET 10 Preview 1:开启下一代开发框架新篇章
· C# 集成 DeepSeek 模型实现 AI 私有化(本地部署与 API 调用教程)
· DeepSeek R1 简明指南:架构、训练、本地部署及硬件要求
· NetPad:一个.NET开源、跨平台的C#编辑器
历史上的今天:
2017-03-31 XML数据库的尝试
2017-03-31 问世间情为何物,直教人生死相许 -- 用代码告诉你同生共死才是爱
2016-03-31 数据结构与算法分析视频教程全集

导航

< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8
点击右上角即可分享
微信分享提示

喜欢请打赏

扫描二维码打赏

支付宝打赏

主题色彩