no se ejecuta el centro de ayuda y soporte tecnico

14/09/2005 - 03:02 por la_griega | Informe spam
Despues de revisar la ayuda en linea no puedo encontrar la solucion a este
problema. cada vez que quiero ejecutar el centro de ayuda y soporte tecnico
no se abre como tampoco la informacion de sistema de herramientas de
sisitema. ya revice el registro y esta correcto y aparentemente no tiene
problemas, sigo sin poder solucionarlo, Alguien podría darme una manito con
este problema?
muchas gracias
 

Leer las respuestas

#1 Alezito [MS MVP]
14/09/2005 - 03:14 | Informe spam
Copia el siguiente texto en el Bloc de Notas y guardalo en el escritorio
como "fixwinxphelp.vbs" y ejecutalo:



'fixwinxphelp.vbs - Repairs the damage done by Toni Arts EasyCleaner
'© Doug Knox - - 9/19/2001
'This code may be freely distributed/modified
'Based on information provided by Bill James (http://www.billsway.com)

Option Explicit
On Error Resume Next

'Declare variables
Dim WSHShell, MyBox, p, p1, p2, p3, p4, q1, q2, q3, q4, t
Dim jobfunc

'Set the Windows Script Host Shell and assign values to variables
Set WSHShell = WScript.CreateObject("WScript.Shell")

p1 "HKEY_LOCAL_MACHINE\Software\CLASSES\TypeLib\{FC7D9E00-3F9E-11D3-93C0-00C04F72DAF7}\1
.0\0\win32\"
p2 "HKEY_LOCAL_MACHINE\Software\CLASSES\TypeLib\{FC7D9E00-3F9E-11D3-93C0-00C04F72DAF7}\1
.0\HELPDIR\"
p3 "HKEY_LOCAL_MACHINE\Software\CLASSES\TypeLib\{FC7D9000-3F9E-11D3-93C0-00C04F72DAF7}\1
.0\0\win32\"
p4 "HKEY_LOCAL_MACHINE\Software\CLASSES\TypeLib\{FC7D9000-3F9E-11D3-93C0-00C04F72DAF7}\1
.0\HELPDIR\"

q1=WSHShell.ExpandEnvironmentStrings("%WINDIR%")+"\PCHealth\HelpCtr\Binaries\HelpCtr.
exe\1"
q2=WSHShell.ExpandEnvironmentStrings("%WINDIR%")+"\PCHealth\HelpCtr\Binaries\HelpCtr.
exe\"
q3=WSHShell.ExpandEnvironmentStrings("%WINDIR%")+"\PCHealth\HelpCtr\Binaries\HelpCtr.
exe\2"
q4=WSHShell.ExpandEnvironmentStrings("%WINDIR%")+"\PCHealth\HelpCtr\Binaries\HelpCtr.
exe\"

'Describe the funtion of the script for a dialog box

jobfunc = "This VB Script has repaired the damage done"
jobfunc = jobfunc & vbCR & "when you ran EasyCleaner on your Windows® XP"
jobfunc = jobfunc & vbCR & "installation, by restoring the correct Registry"
jobfunc = jobfunc & vbCR & "values for Help and Support."

'This section writes the correct values to the Registry

WSHShell.RegWrite p1, q1
WSHShell.RegWrite p2, q2
WSHShell.RegWrite p3, q3
WSHShell.RegWrite p4, q4

t = "Confirmation"
MyBox = MsgBox (jobfunc, 4096, t)


Alejandro Curquejo MS MVP


"la_griega" wrote in message
news:
Despues de revisar la ayuda en linea no puedo encontrar la solucion a este
problema. cada vez que quiero ejecutar el centro de ayuda y soporte
tecnico
no se abre como tampoco la informacion de sistema de herramientas de
sisitema. ya revice el registro y esta correcto y aparentemente no tiene
problemas, sigo sin poder solucionarlo, Alguien podría darme una manito
con
este problema?
muchas gracias

Preguntas similares