URGENTE

Comprando otro

Saludos de Fuents. Treejays


"Juan Manuel Esparza" escribió en el mensaje
news:00b101c35520$fc1d5100$

Extravie el serial de mi win 98, donde lo puedo
recuperar???????

abre el fichero SYTEM.DAT oculto en la carpeta WINDOWS y bisca PRODUCTKEY

Saludos de Fuents. Treejays


"Ramón Sola" escribió en el mensaje
news:
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>
Un saludo...

Ramón Sola @ Málaga.España

Deja de tocar la gaita si quieres escribirme. ;-)))
Dame un tablero de dos metros de anchor. (anchura)


¡Oh, pero si es un mensaje de Juan Manuel Esparza
()
que decía...!

Extravie el serial de mi win 98, donde lo puedo
recuperar???????