'fixwinxphelp.vbs - Repairs the damage done by Toni Arts EasyCleaner
'© Doug Knox - Modified 2-28-02 to account for XP over 2000 upgrades
'This code may be freely distributed/modified
'Based on information provided by Bill James (http://www.billsway.com)
'Traduit par ~Jean-Marc~ (http://perso.wanadoo.fr/doc.jm)

On Error Resume Next

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

'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\"
p5 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\HELPCTR.EXE\"

Set fso = CreateObject("Scripting.FileSystemObject")
Set q = fso.GetSpecialFolder(0)

q1 = q & "\PCHealth\HelpCtr\Binaries\HelpCtr.exe\1"
q2 = q & "\PCHealth\HelpCtr\Binaries\HelpCtr.exe\"
q3 = q & "\PCHealth\HelpCtr\Binaries\HelpCtr.exe\2"
q4 = q & "\PCHealth\HelpCtr\Binaries\HelpCtr.exe\"
q5 = q & "\PCHealth\HelpCtr\Binaries\HelpCtr.exe"

'Describe the function of the script for a dialog box

jobfunc = "Ce Script VBS répare les dommages qui ont été causés" 
jobfunc = jobfunc & vbCR & "par l'exécution d'EasyCleaner sur votre Windows® XP" 
jobfunc = jobfunc & vbCR & "en réparant les valeurs du registre associées"
jobfunc = jobfunc & vbCR & "au centre d'Aide et de 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
WSHShell.RegWrite p5, q5

t = "Fini !"
MyBox = MsgBox (jobfunc, 4096, t)