通过WMI获得硬盘和CPU的物理序列号(VB.net)

   '获得硬盘序列号
        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;
 
阅读更多
上一篇DiskSerial.DLL使用及编程语言中如何调用及模块化
下一篇vb.net下根据查询条件动态改变水晶报表中的饼图效果
想对作者说点什么? 我来说一句

WMI方式获取硬盘序列号VBS脚本

2010年06月30日 980B 下载

没有更多推荐了,返回首页

关闭
关闭