编程语言

img iwebsms

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

发表于2004/10/6 20:53:00  4811人阅读

        '获得硬盘序列号

        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;

阅读全文
0 0

相关文章推荐

img
取 消
img