ISRAPDA

Код: Выделить всё

'fixwinxphelp.vbs - Repairs the damages of Windows XP Help and Supprort Center
'Based on information provided by Bill James 
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

WshShell.Run("helpctr -regserver")

Set Wshshell = Nothing

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