PC Serial Number

PC Serial Number è una applicazione console che consente di ricavare velocemente alcuni dati sull’hardware della macchina, come:

• Produttore
• Modello
• Codice modello
• Numero di serie
• Caption
• Descrizione
• SKU Number
• UUID

PC Serial Number è un programma realizzato in VB.NET, non necessita di installazione, ed è liberamente scaricabile ed utilizzabile per fini non commerciali su piattaforma Windows XP e Windows 7.

Se ti piace questa applicazione, o se desideri segnalare problemi o suggerimenti all’autore lascia un commento.

Codice

' ----------------------------------
' File:           modMain.vb
' Progetto:       PcSerialNumber
' Autore:         Andrea Weichbrodt
' Web:            www.weichbrodt.it
' Creato il:      16/06/2010
' Modificato il:  14/03/2011
' ----------------------------------

Imports System.Management

Module modMain

   Sub Main()

      ' Recupera informazioni sul sistema attraverso le query WMI
      ' Aggiungere al progetto un riferimento all'assembly System.Management
      
      Console.Title = "PC Serial Number"
      Console.WriteLine("-----------------------------------------------------")
      Console.WriteLine("PC Serial Number - " & My.Application.Info.Copyright)
      Console.WriteLine("-----------------------------------------------------")

      Try
         Dim cerca As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_ComputerSystemProduct")
         For Each risultato As ManagementObject In cerca.Get()
            Console.WriteLine("Produttore:      {0}", risultato("Vendor"))
            Console.WriteLine("Modello:         {0}", risultato("Version"))
            Console.WriteLine("Codice Modello:  {0}", risultato("Name"))
            Console.WriteLine("Numero di Serie: {0}", risultato("IdentifyingNumber"))
            Console.WriteLine("Caption:         {0}", risultato("Caption"))
            Console.WriteLine("Descrizione:     {0}", risultato("Description"))
            Console.WriteLine("SKU Number:      {0}", risultato("SKUNumber"))
            Console.WriteLine("UUID:            {0}", risultato("UUID"))
         Next
      Catch errore As ManagementException
         Console.WriteLine("Errore durante la ricerca dei dati WMI:")
         Console.WriteLine(errore.Message)
      End Try

      Console.WriteLine("-----------------------------------------------------")
      Console.WriteLine("Premi un tasto per uscire...")
      Console.ReadKey()

   End Sub

End Module

Download

File	Descrizione	Dimensione del file	Download
PcSerialNumber	PC Serial Number	5 KB	838