Hi there....
For make software Activation-code we need A unique ID Like CPU(Processor)-ID
Reference:
System.Management
Namespaces:
Imports System.Management Imports Microsoft.Win32
GetProcessInfo() Method:
Private Sub GetProcInfo() Dim wmi As ManagementClass Dim Mobjs As ManagementObjectCollection Dim CPUID As String Dim CPUType As String wmi = New ManagementClass("Win32_Processor") Mobjs = wmi.GetInstances() For Each Mobj As ManagementObject In Mobjs CPUType = Mobj("Name") Debug.WriteLine(CPUType.ToString) CPUID = Mobj("ProcessorID") Debug.WriteLine(CPUID.ToString) Next Mobjs.Dispose() wmi.Dispose() End Sub
Top comments (0)