通过WMI获得硬盘和CPU的物理序列号

最新推荐文章于 2023-03-15 21:17:08 发布
最新推荐文章于 2023-03-15 21:17:08 发布
阅读量276 收藏
点赞数
原文链接：http://www.cnblogs.com/qiaoxing/archive/2006/02/18/333020.html
版权
''获得硬盘序列号


Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")



Dim Uint32 As UInt32


For Each cmicWmiObj As ManagementObject In cmicWmi.Get


Uint32 = cmicWmiObj("signature")


Next


TextBox1.Text = Uint32.ToString




''获得CPU序列号


Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor")



Dim Uint32 As String


For Each WmiObj As ManagementObject In Wmi.Get


Uint32 = WmiObj("ProcessorId")


Next


TextBox1.Text = Uint32



''获得硬盘总容量


Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")



Dim Uint64 As UInt64


For Each WmiObj As ManagementObject In Wmi.Get


Uint64 = WmiObj("size")


Next


TextBox1.Text = Uint64.ToString


首先，引用System.Management；然后在代码中Imports System.Management；

转载于:https://www.cnblogs.com/qiaoxing/archive/2006/02/18/333020.html

weixin_34268310
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
获取硬盘序列号、获取CPU编号、获取BIOS编号的原始代码
11-27
获取硬盘序列号、获取CPU编号、获取BIOS编号的原始代码
c语言获取 CPU序列号(CPUID) 硬盘序列号 （vs2010工程）支持64位编译
10-09
获取CPU序列号 硬盘序列号 vs2010工程 支持64位
c 易语言 cpu序列号,易语言汇编取CPU序列号
weixin_29001423的博客
05-22 785
.版本 2.程序集 程序集1.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行.局部变量 a, 整数型a ＝ 取启动时间 ()输出调试文本 (汇编_取CPU序列号 ())输出调试文本 (“用时：” ＋ 到文本 (取启动时间 () － a))a ＝ 取启动时间 ()输出调试文本 (系统_取CPU序列号 ())输出调试文本 (“用时：” ＋ 到文本 (取启动时间 () － a))返回...
C++ /MFC 获取硬盘序列号，获取主机名字
Nick_H 的专栏
11-02 1772
获取硬盘序列号 GetVolumeInformation("C:",NULL,MAX_PATH,&Serial,&Length,NULL,NULL,MAX_PATH); 文件服务器 在资源管理器的时候是\\IP\ShareName，所以应该是"\\\\IP\\ShareName" 获得主机名 char szhostname[128]; if (...
通过WMI获得硬盘和CPU的物理序列号（VB.net）
iwebsms的专栏
10-06 5471
        获得硬盘序列号        Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")         Dim Uint32 As UInt32        For Each cmicWmiObj As ManagementOb
wmi方式获取逻辑驱动器对应的物理硬盘及硬盘序列号
09-24
主要用于wmi方式获取c盘序列号，多用于生成硬件识别码，wmi可以获取很多设备信息，可以扩展到其他设备。但是wmi速度慢，而且有一定的局限性，有些环境获取不了，比如虚拟机。另一种更底层的方式是使用...
获取硬盘和CPU物理序列号VB.NET源码
08-24
通过WMI获取硬盘型号、物理序列号及CPU的序列号，VB.NET2008通过，对实现软件注册会有帮助
获取 硬盘物理序列号 获得唯一硬盘序列号 唯一标识 纯API方法，没有DLL，没有控件，另外给出了WMI方法的结果作为比较
05-30
2.使用说明：打开程序后，点按钮后，三个TEXTBOX分别显示全球唯一标识的硬盘物理序列号、WMI方法获取的硬盘序列号、WMI方法获取的CPU序列号 3.WMI方法被很多人诟病，有说读不出来什么的，我测试了几台机器确实有读不...
WMI-64- c语言 获取 CPU序列号 CPUID，硬盘序列号 支持64位编译
08-14
在资源已在项目使用，所以分享给需要的小伙伴。代码清晰，可以直接移植到其它项目中。
通过WMI获取根据盘符获取U盘物理序列号.docx
11-11
。。。
VB取得CPU序列号 取得CPU序列号
04-12
VB取得CPU序列号 取得CPU序列号 VB取得CPU序列号 取得CPU序列号
VB.NET获取硬件序列号(CPU，主板硬盘等)
08-22
VB.NET获取计算机硬件序列号，内置示例获取 CPU，主板号，和硬盘
vb.net源码获取硬盘id硬盘序列号和cpuid
02-26
vb.net源码获取硬盘序列号 cpuid 用来加密你的软件
vb.net 获取硬盘序列号
02-24
vb.net 获取硬盘序列号
VB.NET 获取主板和CPU序列号
qq_38679844的博客
09-12 1045
VB.NET获取主板和CPU序列号
vb获取cpuid 硬盘物理序列号和逻辑盘序列号 的方法
热门推荐
志超的专栏
07-13 1万+
vb获取硬盘物理序列号和逻辑盘序列号
Windows查询计算机设备序列号、MAC地址和硬盘序列号
李文韬的博客
03-15 6854
搜索cmd，以管理员身份打开命令提示符，使用命令提示符获取计算机设备序列号、MAC地址和硬盘序列号
windows10如何查看硬盘序列号
XYH_78的博客
09-01 2301
windows10如何查看硬盘序列号
vb 获取计算机序列号,VB.net获取CPU与硬盘物理序列号与容量的实例
weixin_39637924的博客
07-26 1529
在.net中要取得 CPU与硬盘物理序列号与容量我们会用到方法ManagementObjectSearcher了，下面我给大家来举几个实现。首先，引用System.Management；然后在代码中Imports System.Management；以下功能主要依靠wmi实现获得硬盘序列号 代码如下 复制代码 Dim cmicWmi As New System....
delphi7 wmi 硬盘序列号
最新发布
07-07
Delphi7是一款强大的集成开发环境（IDE），其中包含了用于创建Windows应用程序的工具和组件。WMI（Windows Management Instrumentation）可以帮助开发人员在Windows操作系统中获取和管理各种系统信息。 要获取硬盘序列号，我们可以使用Delphi7提供的WMI组件。首先，我们需要在项目中导入WMI组件。 在Delphi7的主菜单中，选择"Component"->"Import ActiveX Control"，然后在弹出的对话框中找到并选中"WMI Scripting Library"，点击"Install"按钮进行安装。 安装完毕后，我们可以在工具栏中看到WMI组件的图标。我们可以通过拖拽该图标到窗体上，或者在代码中创建一个TWMIScriptControl组件的实例。 下面是一段示例代码，用于获取硬盘序列号： ```delphi procedure TForm1.Button1Click(Sender: TObject); var WMIService: Variant; DiskDriveItems, DiskDrive: Variant; i: Integer; SerialNumber: String; begin WMIService := CreateOleObject('WbemScripting.SWbemLocator').ConnectServer('.', 'root\CIMv2', '', '', '', '', 0, nil); DiskDriveItems := WMIService.ExecQuery('SELECT * FROM Win32_DiskDrive'); for i := 0 to DiskDriveItems.Count - 1 do begin DiskDrive := DiskDriveItems.ItemIndex[i]; SerialNumber := DiskDrive.SerialNumber; // 获取硬盘序列号 ShowMessage('硬盘' + IntToStr(i+1) + '序列号：' + SerialNumber); end; end; ``` 上述代码中，我们首先建立了一个WMIService对象，用来连接WMI服务。然后，我们执行了一个WQL查询，选择Win32_DiskDrive类中的所有项。接着，我们遍历查询结果，获取每个硬盘的序列号，并显示在消息框中。 这样，我们就可以通过Delphi7的WMI组件获取硬盘序列号了。记得在运行程序时以管理员身份运行，以避免获取受限信息的问题。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值