windows me

con tu permiso me quedo una copia de esto, muy util a la hora de sobre
escribir instalaciones de windows cuando los clientes no recuerdan donde
dejaron los manuales ni las cajitas ni lso cds :)

PD: no sabia que los attachaments no eran vistos desde la web :(


"Ramón Sola [MVP Windows Client]" escribió
en el mensaje news:
¿Todavía puedes arrancar ese Windows ME? Entonces lee esto:
Está en el registro de Windows, en el valor ProductKey de la clave
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion.
Si no te sientes cómodo dentro del Regedit o temes que puedas alterar algo
sin querer, tienes dos opciones:
1) Un script VB que puedes ejecutar dentro de Windows y que te mostraría la
clave de instalación en una ventana.
2) Un fichero .bat que se puede usar desde Windows y desde DOS (mediante
disco de inicio) y que muestra algunas cadenas encontradas en el registro
con los nombres ProductKey y ProductId; el primer ProductKey es el que vale.

Ambos ficheros están incluidos en el ZIP adjunto (no lo verás si accedes al
grupo vía web) pero, aun siendo redundante, voy a pegar su contenido. Ojo,
la línea que sigue a "regedit /e..." en el .bat es "pause", no "HKEY...".

<pego fichero="prodkey.bat">
::ProdKey.bat - Get Win9x product key from Registry. If
::use from a startup floppy is desired, you will need to add
::this file to startup floppy along with Find.exe from
::the C:\Windows\Command folder and C:\WINDOWS\REGEDIT.EXE.
::Boot with startup floppy, then type "prodkey" (no quotes).
::Bill James - - rev 13 Jan 2000
@echo off
::Watch out for line wrap on the next line!
regedit /e c:\~prodkey
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
pause
find /i "productkey" < c:\~prodkey
find /i "productid" < c:\~prodkey
del c:\~prodkey
</pego>

<pego fichero="productkey.vbs">
Option Explicit:Dim ws, boxtitle, regkey1, cdkey, vbCR, boxtext, MyBox
vbCR = Chr(13)
Set ws = WScript.CreateObject("WScript.Shell")
boxtitle = "Windows instalado (95/98/ME)"
regkey1 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\"
cdkey = ws.RegRead(regkey1 & "ProductKey")
boxtext = "Número de serie: " & vbCR & vbCR
MyBox = MsgBox(boxtext & cdkey, 4160, boxtitle)
</pego>

Ramón Sola, Málaga (España) / MVP Windows - Shell/User
(yanoseashooligan -> yahoo)
Procuro que los consejos y procedimientos que doy sean válidos y
seguros desde una perspectiva técnica. No obstante, no asumiré
ninguna responsabilidad si alguien pone en práctica lo dicho.

Es bien sabido que fue claudio [] quien escribió el
mensaje
news:c72101c3ee9c$7d764e40$:

se me perdio el codigo de identificacion de windows como
lo puedo averiguar