Foro de elhacker.net

Dim wshShell, RegKey
Set wshShell = Wscript.CreateObject("Wscript.Shell")


RegKey = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\"
wshShell.regWrite RegKey & "ProcessorNameString", "Intel(R) Atom(TM) CPU  Z3735F @ 1.86GHz", "REG_SZ"
RegKey = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\1\"
wshShell.regWrite RegKey & "ProcessorNameString", "Intel(R) Atom(TM) CPU  Z3735F @ 1.86GHz", "REG_SZ"
RegKey = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\2\"
wshShell.regWrite RegKey & "ProcessorNameString", "Intel(R) Atom(TM) CPU  Z3735F @ 1.86GHz", "REG_SZ"
RegKey = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\3\"
wshShell.regWrite RegKey & "ProcessorNameString", "Intel(R) Atom(TM) CPU  Z3735F @ 1.86GHz", "REG_SZ"


Set objWshell = Nothing

Wscript.Quit

Secuencia de comandos:
c: ..............
linea: 6
caracter: 1
error: Raiz no valida en la clave de registro
"HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\ProcessorNameString".
Codigo: 80070005
Origen: WshShell.RegWrite

[HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor]

Allí veras una o varias subclaves numeradas de acuerdo a cuantos núcleos tenga tu microprocesador.
Para cambiar los datos que se muestran en Propiedades del sistema, en cada clave de las numeradas tienes que dar dos clics en el valor ProcessorNameString y escribir el nombre de la CPU que desees.
Aquí tienes ejemplos de micros que puedes poner:

"Intel(R) Core(TM) i5 CPU 750 @ 2.67GHz"
"Intel(R) Core(TM) i7 CPU 950 @ 2.67GHz"

[b]Este cambio no ofrece ningún peligro para tu sistema.[/b]

[b]Lograr que el sistema no altere los datos en el inicio[/b]

Cuando reinicies Windows borrará la información que escribiste y restablecerá los valores originales. 
Para lograr que se mantenga tu información tienes que hacer un pequeño script y copiarlo a la carpeta de Inicio para cada vez que inicie el sistema se escriba de nuevo la información que especifiques en el registro.
A continuación el código del script, [b]tienes que copiarlo al bloc de notas y guardarlo con cualquier nombre pero con la extensión de archivo .vbs[/b]
Tienes que modificar en el código lo que te pongo en negrita, si tu micro tiene un solo núcleo puedes quitar la linea 6 y 7, si tiene cuatro núcleos adiciónale dos líneas mas, todo lo que vayas a cambiar tienes que guiarte por la información en tu registro.
Antes de hacer cualquier cambio da un clic derecho en la clave CentralProcessor y expórtala para que puedas restaurar en caso de cualquier problema.

Dim wshShell, RegKey
Set wshShell = Wscript.CreateObject("Wscript.Shell")

RegKey = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\"
wshShell.regWrite RegKey & "ProcessorNameString", "Nombre de CPU", "REG_SZ"
RegKey = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\1\"
wshShell.regWrite RegKey & "ProcessorNameString", "Nombre de CPU", "REG_SZ"

Set objWshell = Nothing
Wscript.Quit

[b]Por si les interesa:[/b]
Mostrar tus datos propios en la ficha de OEM en Propiedades del sistema

Para que se muestren los datos que tu decidas, como tu sitio web, direccion web, nombre de compañia, logo, etc. en información del sistema en la ficha OEM, puedes escribirlos manualmente o hacer un pequeño script copiando el código que te muestro más abajo, , pegándolo en el bloc de notas, escribiendo en el tus propios datos y guardarlo con el nombre [b]oem.reg[/b], al dar dos clics en él se agregará la información al registro.
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]
"Model"="Tus datos"
"Manufacturer"="Tus datos"
"SupportHours"="Horario"
"SupportPhone"="Numero de teléfono"
"SupportURL"="URL de tu pagina web"
"LogoOLD"="Ruta al logo_120x120.bmp"
"Logo"="Ruta al logo.bmp

Secuencia de comandos:  C:..................
Linea: 5
Carácter: 1
Error: Raíz no válida en la clave del registro
HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\ProcessorNameString".
Código: 80070005
Origen: WshShell.RegWrite

Dim wshShell, RegKey
Set wshShell = Wscript.CreateObject("Wscript.Shell")

 RegKey = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\"
wshShell.regWrite RegKey & "ProcessorNameString", "Cambio de informacion", "REG_SZ"
RegKey = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\1\"
wshShell.regWrite RegKey & "ProcessorNameString", "Cambio de informacion", "REG_SZ"
RegKey = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\2\"
wshShell.regWrite RegKey & "ProcessorNameString", "Cambio de informacion", "REG_SZ"
 RegKey = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\3\"
wshShell.regWrite RegKey & "ProcessorNameString", "Cambio de informacion", "REG_SZ"

Set objWshell = Nothing
Wscript.Quit

@echo off

FOR %%X IN ("C:\Windows\System\nombredelarchivo.exe") DO rundll32 shell32.dll,ShellExec_RunDLL %%X