系统帮助打不开

我的系统帮助打不开，提示：xxx服务未打开。
我尝试打开“help and support”服务提示：某些服务或xx未打开
于是我打开help and support的依存服务remote procedure call重启后
help and support可以打开，但按下F1后只有漏斗出现一下然后消失没有其他反应

造成这个问题主要是以下几中可能:

第一:使用优化大师以后[帮助和支持中心]不能使用 但在[运行]中输入msconfig后仍然可以打开[系统配置实用程序]
那么把以下文字复制到TXT中，然后保存为vbs文件（文件类型菜单选择所有文件，然后文件名加.vbs后缀），双击运行，然后重启动

---------------------------------

'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 ([url]http://www.billsway.com)[/url]



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\"



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\"



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