Visual Basic - ¿como tomo el número de serie de un PC?

Hola muchachos (as),

Podrian ser tan amables de decirme ¿como tomo el número de serie de un PC y dejarlo en un archivo.txt?

Please!!!

Gracias.

No se exactamente a que número de serie te refieres, si te fijas en la registry en: HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
el valor ProductID podes sacar el número de serie de Windows o en HKEY_LOCAL_MACHINE\Hardware\Description tenés algunos valores que te pueden servir. Sino podes sacar también el número de serie de algún disco utilizando la propiedad SerialNumber con el objeto FileSystem.

Y como sería el código, si no es mucha la molestia,
o bién una URL que hable claro y de ejemplos de este Objeto

(FileSystem)

Gracias.

Para el número de serie del disco:

Dim fso As New FileSystemObject, drv As Drive, s As String
Set drv = fso.GetDrive(fso.GetDriveName("c:"))
s = drv.SerialNumber

Si pero tengo que definir el tipo de dato que es "filesystemobject",
por que me está dando un error....

¿o tengo que insertar algún componente?

Gracias.

Agregar la referencia "Microsoft Scripting Runtime"

Gracias, te agradesco cualquier cantidad tu ayuda!!!
me resultó todo.

:-)