Alla fine ho scritto questo codice che credo posso funzionare solo una domanda a questo punto... se ci sono 2 hard disk nel pc come faccio a prendere le informazioni dell'hd sul quale gira il programma? io penso che questi dati possano bastare per una prima parte di codice, poi realizzerò l'altra parte (la più difficile e delicata credo) l'algoritmo! fiducioso nel saggio consiglio che mi dai ciaouz

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_BIOS")
Dim search2 As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
Dim search3 As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
Dim search4 As New ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem")
Dim info As ManagementObject
Dim txt As String
For Each info In search.Get()
txt = (info("SerialNumber").ToString()).Trim()
TextBox1.Text = "BIOS Serial Number: " & txt & ControlChars.NewLine
Next
'
'
'Informazioni sul processore
For Each info In search2.Get()
'
' Seriale del processore
txt = (info("ProcessorID").ToString()).Trim()
TextBox1.Text += "Processore ID: " & txt & ControlChars.NewLine
'
' Nome del processore
txt = info("Name").ToString()
Do
txt = txt.Replace(" ", " ")
Loop While (txt.IndexOf(" ") <> -1)
TextBox1.Text += "Nome processore: " & txt & ControlChars.NewLine
Next
For Each info In search3.Get()
If info("SerialNumber") Is Nothing Then
txt = "Non presente"
Else
txt = info("SerialNumber").ToString()
txt = txt.Trim
End If
TextBox1.Text += "Hard disk S/N: " & txt & ControlChars.NewLine
Next
For Each info In search4.Get()
'
' Fabbrica costruttrice PC
txt = (info("Manufacturer").ToString()).Trim()
TextBox1.Text += "Fabbrica costruttrice PC: " & txt & ControlChars.NewLine
'
' Modello PC
txt = info("Model").ToString()
Do
txt = txt.Replace(" ", " ")
Loop While (txt.IndexOf(" ") <> -1)
TextBox1.Text += "Modello PC: " & txt & ControlChars.NewLine
Next
End Sub