Licence key to vb project

''' <summary>
   ''' Uses WMI to find all ComputerSystemProduct UUIDs and returns them (concatenated) in a string.
   ''' In testing, this value appears to be unique for each machine.
   ''' </summary>
   ''' <returns></returns>
   ''' <remarks></remarks>
   Private Function GetComputerSystemProductUUID() As String
       Return GetManagementObject("UUID", "Win32_ComputerSystemProduct")
   End Function

   ''' <summary>
   ''' Uses WMI to pull properties (specified by the strPropery parm) from collections of management objects
   ''' and returns a concatenated string of all properties from all collections found on the machine.
   ''' </summary>
   ''' <param name="strProperty"></param>
   ''' <param name="strCollection"></param>
   ''' <returns></returns>
   ''' <remarks></remarks>
   Private Function GetManagementObject(ByVal strProperty As String, ByVal strCollection As String) As String
       Dim sb As New System.Text.StringBuilder
       Try
           'Use a ManagementObjectSearcher object to select a property from a collection
           Dim objSearcher As New ManagementObjectSearcher("SELECT " & strProperty & " FROM " & strCollection)
           Dim objCollection As ManagementObjectCollection = objSearcher.Get
           For Each objM As ManagementObject In objCollection
               For Each objP As PropertyData In objM.Properties
                   If objP.Value IsNot DBNull.Value Then
                       sb.Append(objP.Value) 'Concats together if there are multiple collections or properties
                   End If
               Next
           Next
           'Clean up objects
           objSearcher.Dispose()
           objCollection.Dispose()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

       Return sb.ToString
   End Function