Visual Basic - Obtener un número unico de PC

Hola, necesito obtener un número diferente por PC, como pueda ser el número de procesador, disco duro, etc.
Si alguien me puede echar un cable se lo agradecería.
Muchas gracias de antemano

'Svr="nombre de servidor o maquina"
'unidad="unidad a verificar"
Private Sub ChequeoUNidad(Svr As String, Unidad As String)
On Error GoTo CtroLError
Dim fs, d, s As String, s1 As String, s2 As String, filsys As String, serie As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(Svr & Unidad))
serie = d.serialnumber
msgbox "Este es el numero de Serie: "& serie
Exit Sub
CtroLError:
MsgBox Err.Description
End Sub

SUERTE!!!!!!

Muchas gracias Juan José, creo que me puede servir, voy a probarlo.