Public Class Lizenz
        Public Sub New()
            m_alID = New ArrayList
        End Sub
 
        Private m_alID As ArrayList
        Private Function Calculate_IDs() As String
            Dim ID As String
            Dim ProcClass As New ManagementClass("Win32_Processor")
            Dim Procs As ManagementObjectCollection = ProcClass.GetInstances()
            Dim Proc As ManagementObject
            For Each Proc In Procs
                ID &= Proc("ProcessorId").ToString() & _
                  System.Environment.NewLine
            Next Proc
 
            Dim DiskClass As New ManagementClass("Win32_LogicalDisk")
            Dim Disks As ManagementObjectCollection = DiskClass.GetInstances()
            Dim Disk As ManagementObject
            For Each Disk In Disks
                If Not Disk.Item("VolumeSerialNumber") Is Nothing AndAlso _
                   Disk.Path.RelativePath.IndexOf("""C:""") <> -1 Then
                    ID &= Disk.Item("VolumeSerialNumber").ToString() & _
                      System.Environment.NewLine
                End If
            Next Disk
            Return ID
        End Function
 
        Public Sub ID_Add()
            Dim ID As String = Calculate_IDs()
 
            If m_alID.IndexOf(ID) = -1 Then
                m_alID.Add(ID)
            End If
        End Sub
 
        Public Sub ID_Remove()
            Dim ID As String = Calculate_IDs()
            m_alID.Remove(ID)
        End Sub
 
        Public Function ID_Exists()
            Dim ID As String = Calculate_IDs()
 
            Return m_alID.IndexOf(ID) <> -1
        End Function
 
        Public Function ID_Clear()
            m_alID.Clear()
        End Function
End Class