to 2:
硬盘有个序列号:提取序列号就可以了;
Imports System.Management
Public Function getYJXX() As String
'cpu信息
Dim managementClass As New ManagementClass("Win32_Processor")
Dim managementObjectCollection As ManagementObjectCollection = managementClass.GetInstances '加入了一个实例
Dim managementObject As ManagementObject
For Each managementObject In managementObjectCollection '对加入的实例做引用
getYJXX = managementObject.Properties("ProcessorId").Value.ToString()
Next
End Function