Help& support wont work on xp, Need help with vdscript file!

[misenar]

I need help with using the script below! How do I use vdscipt? This script will apparently fix the problem I have with my help and support not opening, but I dont know how to use it?
Thanks in advance for any help given!



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

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&quot

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&quot
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
I was able to find the script below to fix my problem however I am not sure how to use it! Can someone please help me? And thanks in advance!


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)

 

[Kotaro24]

You should be able to paste this code into a text file, then rename the text file to have a .vbs extension, then double-click the file's icon to run it. If it worked, you'll get a message box saying "This VB Script has repaired the damage done".

 

[misenar]

Thanks for the above, I do have that right now, but it wont open, what program do i need to run a vbs file?

 

[Kotaro24]

It should always be available in Windows 2000 Pro and Windows XP (unless the service has been disabled). It's loaded when you upgrade Internet Explorer to 5.5 or 6.

If you are running Windows 95, you can download Windows Script Host 5.6 from the Microsoft Windows Script Technologies Web site (

http://msdn.microsoft.com/scripting).

 

[misenar]

I went to the site that you mentioned above and downloaded the script engine, I am running XP, and lost my search capabilitys as well as my system restore ability, with the script that posted in my first post, and with the help of Kotaro24 in his post above I was able to fix my problems, Thanks alot for your help!