Vbs es Visual Basic Script es parte de windows xp. Aqui dejo un par de scripts
Copiar en el bloc de notas y guardarlo con extencion .VBS
Habilita el Administrador de tareas y el registro de windows
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD"
WshShell.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
msgbox "Enable TaskMgr & Enable Registry Tools"Desabilita el administrador de tareas y el registro de windows
CitarDim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",1,"REG_DWORD"
WshShell.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
msgbox "Disable TaskMgr & Disable Registry Tools"
Cambia el numero de serie de xp
ON ERROR RESUME NEXT
if Wscript.arguments.count<1 then
Wscript.echo "Por Favor Ingrese Numero De Serie Valido"
Wscript.echo "Aplicacion Creada Por Gabriel | www.zer0zite.com.ar"
Wscript.echo "Forma Correcta de Usar: XpOriginal.vbs *****-*****-*****-*****"
Wscript.quit
end if
Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents\OOBETimer" 'delete OOBETimer registry value
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
result = Obj.SetProductKey (VOL_PROD_KEY)
if err <> 0 then
WScript.Echo Err.Description, "0x" & Hex(Err.Number)
Err.Clear
end if
Next