vb读取计算机,VB获取电脑机器码

Private Shared Function GetHWInfo() As String

Dim sCpuID As String =

Dim sDiskID As String =

Dim cpu As System.Management.ManagementObjectSearcher

Dim disk As System.Management.ManagementObjectSearcher

Dim obj As System.Management.ManagementObject

cpu = New System.Management.ManagementObjectSearcher(SELECT * FROM Win32_Processor)

For Each obj In cpu.Get

Try

sCpuID = obj(ProcessorID)

Exit For

Catch ex As Exception

End Try

Next

disk = New System.Management.ManagementObjectSearcher(SELECT * FROM Win32_DiskDrive)

For Each obj In disk.Get

Try

sDiskID = obj(Signature)

Exit For

Catch ex As Exception

End Try

Next

Return sCpuID & sDiskID

End Function

取消

评论