Visual Basic - Localizar un dato (Nº Serie, etc) unico del PC

Hola:
Estoy intentando buscar un codigo VB que me proporcione un dato unico de informacion del PC donde esta instalado el codigo.
Gracias.

Para sacar el número de serie del disco duro (p.ej. "c:\")

Private Sub Command1_Click()
Dim FSO As New FileSystemObject, dDrive As Drive
Set dDrive = FSO.Drives("C:\")
MsgBox dDrive.SerialNumber
End Sub

Necesitas incluir en Proyecto la referencia "Microsoft Scripting Runtime"

El codigo es muy bueno y sencillo Gracias.
Mi incognita ahora es:
El numero que me sale en el msgbox, a que esta vinculado exactamente, y si instalando este codigo en otro PC podria dar un numero igual.
Gracias. El codigo es muy bueno.