通过WMI获得硬盘Id和CPU的物理序列号网卡的Mac地址
2011-02-01 09:18
567 查看
获得硬盘序列号Mac
Private Function GetMac() As String '获取第一个mac的id
Dim MC As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim MOC As ManagementObjectCollection
MOC = MC.GetInstances()
Dim Mac As String
For Each WmiObj As ManagementObject In MOC
If WmiObj("IPEnabled") Then
If Mac <> "" Then
Mac = Mac + " @ "
End If
Mac = Mac + CStr(WmiObj("MACAddress"))
Exit For
End If
Next
If Mac = "" Then
Mac = "error"
End If
Return Mac
End Function
获得硬盘序列号
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;
Private Function GetMac() As String '获取第一个mac的id
Dim MC As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim MOC As ManagementObjectCollection
MOC = MC.GetInstances()
Dim Mac As String
For Each WmiObj As ManagementObject In MOC
If WmiObj("IPEnabled") Then
If Mac <> "" Then
Mac = Mac + " @ "
End If
Mac = Mac + CStr(WmiObj("MACAddress"))
Exit For
End If
Next
If Mac = "" Then
Mac = "error"
End If
Return Mac
End Function
获得硬盘序列号
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;
相关文章推荐
- 通过WMI获得硬盘和CPU的物理序列号(VB.net)
- 通过WMI获得硬盘和CPU的物理序列号(VB.net)
- 通过WMI获得硬盘和CPU的物理序列号
- 通过WMI获得硬盘和CPU的物理序列号
- 通过WMI获得硬盘和CPU的物理序列号(VB.net)
- 通过WMI获得硬盘和CPU的物理序列号
- 通过WMI获得硬盘和CPU的物理序列号(VB.net)
- 通过WMI获得硬盘和CPU的物理序列号(VB.net)
- 通过WMI获取网卡MAC地址、硬盘序列号、主板序列号、CPU ID、BIOS序列号
- 通过WMI获取网卡MAC地址、硬盘序列号、主板序列号、CPU ID、BIOS序列号
- 通过WMI获取网卡MAC地址、硬盘序列号、主板序列号、CPU ID、BIOS序列号
- C#应用:获取cpu序列号,硬盘ID,网卡MAC地址[编程联盟]
- 获取cpu序列号,硬盘ID,网卡MAC地址(转载)
- 基于硬件指纹的软件加密和注册技术--获取硬盘物理序列号、CPU序列号、网卡MAC地址、BIOS序列号、主板序列号
- 获取cpu序列号,硬盘ID,网卡MAC地址-老童
- 基于硬件指纹的软件加密和注册技术--获取硬盘物理序列号、CPU序列号、网卡MAC地址、BIOS序列号、主板序列号
- 通过WMI获取网卡MAC地址、硬盘序列号、主板序列号、CPU ID、BIOS序列号
- (转)通过WMI获取网卡MAC地址、硬盘序列号、主板序列号、CPU ID、BIOS序列号
- unity3d 获取cpu序列号,硬盘ID,网卡MAC地址等硬件可用于加密
- C#应用:获取cpu序列号,硬盘ID,网卡MAC地址