Visual Basic - Nombre del sistema operativo

De antemano agradezco por la ayuda que me brinden.

Necesito un código fuente que me permita ver que Sistema Operativo y en donde esta instalado en una PC.

Hay codigos que lo hacen con apis.. yo te tengo un truco que debe funcionar

Leer el registro de Windows.. el problema es que no en todos los windows esta donde mismo

Por ejemplo en Windows XP esta en :

hkey_local_machina/software/microsoft/windows nt/currentversion/productname

Como los anteriores Windows ya no se deben usar, ni idea tengo donde esta esa clave.. creo que en Windows 98 estaba en :

hkey_local_machine/software/microsoft/windows/currentversion y algo mas..

En Windows XP saco el directorio con :

Set El_Objeto = CreateObject("Scripting.Filesystemobject")
Windows = El_Objeto.getspecialfolder(0)
System = El_Objeto.getspecialfolder(1)
Set El_Objeto = Nothing

No se si funcione en versiones viejas

Este código no me ayudaria en mucho, por que necesito saber qué sistema operativo tengo instalado en mi maquina (9X, ME, 2000, XP), y la unidad y el directorio en donde esta instalado.