Private Sub Win32_WindowsProductActivation(ByRef array As ArrayList)
        Const WMI_CLASS As String = "Win32_WindowsProductActivation"
        Dim setting As String
        Dim objCs As ManagementObjectSearcher = New ManagementObjectSearcher( _
          "SELECT * FROM " + WMI_CLASS)
        Dim newKey As String = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
        Try
            For Each objMgmt As ManagementObject In objCs.Get
                For Each pe As PropertyData In objMgmt.Properties
                    If Not objMgmt(pe.Name) Is Nothing Then
                        If TypeOf (objMgmt(pe.Name)) Is Array Then
                            For Each s_ As Object In objMgmt(pe.Name)
                                setting += (s_.ToString + ", ").ToString
                            Next
                        Else
                            setting = objMgmt(pe.Name).ToString()
                        End If
                        array.Add(pe.Name + " : " + setting)
                    End If
                Next
                objmgmt.InvokeMethod("SetProductKey",new Object() {newKey}
            Next
        Catch ex As Exception
            Throw New Exception("Fehler beim einlesen der WMI Klasse (" + _
              WMI_CLASS + ")!" + ControlChars.NewLine + ex.Message)
        End Try
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
            Dim arr As New ArrayList
            Me.Win32_WindowsProductActivation(arr)
            Me.ListBox1.Items.Clear()
            Me.ListBox1.Items.AddRange(arr.ToArray())
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
     End Sub