'fixwinmehelp.vbs - Repairs the damage done by Toni Arts EasyCleaner
'© Doug Knox - 6/17/2001
'Based on information provided by Bill James (http://www.billsway.com)
'Downloaded from www.dougknox.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\{3E4C2A91-3891-11D3-85AE-00C04F610557}\1.0\0\win32\"
p4 = "HKEY_LOCAL_MACHINE\Software\CLASSES\TypeLib\{3E4C2A91-3891-11D3-85AE-00C04F610557}\1.0\HELPDIR\"

q1="C:\WINDOWS\PCHEALTH\HELPCTR\BINARIES\HELPCTR.EXE\1"
q2="C:\WINDOWS\PCHEALTH\HELPCTR\BINARIES\HELPCTR.EXE\"
q3="C:\WINDOWS\PCHEALTH\HELPCTR\BINARIES\HELPCTR.EXE\3"
q4="C:\WINDOWS\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 Win Me" 
jobfunc = jobfunc & vbCR & "installation, by restoring the correct Registry"
jobfunc = jobfunc & vbCR & "values for Windows Help."

'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)