Geen Helpfunctie

[lima]

Bovenstaande helpknop is morsdood. Systeemherstel is helaas geen optie meer

.

Waarschijnlijk een DLL overschreven, hoe fix ik dit weer?

 

[m@rio]

Misschien easycleaner gebruikt?

Probeer dit eens: http://www.dougknox.com/xp/scripts_desc/fixwinxphelp.htm

 

[lima]

Inderdaad, gebruik Easycleaner regelmatig. Dat VBS script klinkt me niet veilig in de oren, kan dat zomaar uitgevoerd worden?

 

[m@rio]

Hij is al regelmatig voorbij gekomen en geen klachten gehad.

Je mag zelf beslissen of je het wilt gebruiken

 

[lima]

Ik heb dan wel een klacht helaas

 

[m@rio]

Wil je dit bestand hebben dien je even je virusscanner uit te schakelen.

En mocht je het na het ophalen nog niet vertrouwen kun je de vbs file eerst openen in kladblok o.i.d om te zien wat het doet

 

[lima]

'fixwinxphelp.vbs - Repairs the damage done by Toni Arts EasyCleaner
'© Doug Knox - Modified 3/25/02 to account for XP over 2000 upgrades
'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")

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)

Ik verleng mijn Norton abbo niet voor niets dus volg ik trouw de aanwijzigingen op.
Bovenstaande is voor mij niet te begrijpen, jouw misschien Mario

 

[m@rio]

Wat het scriptje doet is de instellingen in het register aanpassen die easycleaner om zeep heeft geholpen

 

[lima]

Mario sorry voor mijn achterdocht maar het is gefixt.
Vele malen dank

 

[m@rio]

Graag gedaan

 

[gezina]

Goed teken dat je Norton reageert, in dit geval, zoals M@rio aangeeft, kan dit geen kwaad. Op deze site -> http://www.kellys-korner-xp.com/xp_tweaks.htm staan handige tweakjes. Bovenaan die site staat een uitleg wat betreft deze tweakjes: NOTE: "If your anti-virus software warns you of a "malicious" script, this is normal if you have "Script Safe" or similar technology enabled. These scripts are not malicious, but they do make changes to the System Registry."

De tip van M@rio is ook een VB Script en doet hetzelfde als wat ik hierboven beschrijf. Deze tweakjes worden vaak op Helpmij als tip gegeven.