Imports System.Management
Public Class Form1
    Private objOS As ManagementObjectSearcher
    Private objCS As ManagementObjectSearcher
    Private objMgmt As ManagementObject

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        objOS = New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
        objCS = New ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem")
        Try
            For Each objMgmt In objOS.Get
                Debug.Print("Nome " & objMgmt("name").ToString())
                Debug.Print("Versione " & objMgmt("version").ToString())
                Debug.Print("Nome computer " & objMgmt("csname").ToString())
                Debug.Print("Directory windows " & objMgmt("windowsdirectory").ToString())
                Debug.Print("SerialNumber " & objMgmt("serialnumber").ToString())
            Next

            For Each objMgmt In objCS.Get
                Debug.Print("Produttore " & objMgmt("manufacturer").ToString())
                Debug.Print("Modello " & objMgmt("model").ToString())
                Debug.Print("Sistema " & objMgmt("systemtype").ToString())
                Debug.Print("Memoria fisica " & objMgmt("totalphysicalmemory").ToString())
            Next


        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub
End Class