Newsgroup: it.comp.os.win.xp
Titolo: Guida Windows

Non mi funziona più "La guida in Linea" di WinXP... cosa può essere? Non mi
sembra che l'abbia cancellata... può essere che dipenda da qualche servizio
che ho disabilitato? Grazie!


Verifica nei Servizi (in Gestione Computer) se il servizio Guida in linea e
supporto tecnico sia avviato.
Ciao
--
_______________________
Microsoft® Technical Advice
 news://
news.microsoft.com
http://support.microsoft.com

 linea e supporto tecnico sia avviato.
Si, è avviato! Cos'altro può essere??!


Ricopio la soluzione fornita da > 1sb <:
copia il listato qua sotto, incollalo in un nuovo documento di testo e
salvalo con nome quellochevuoitu.vbs
Poi cliaccaci sopra e, come per incanto, la tua guida funzionerà
nuovamente.
-------------- copia da qui -------------------------
'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")
p1 =
"HKEY_LOCAL_MACHINE\Software\CLASSES\TypeLib\{FC7D9E00-3F9E-11D3-93C0-00
C04F72DAF7}\1.0\0\win32\"
p2 =
"HKEY_LOCAL_MACHINE\Software\CLASSES\TypeLib\{FC7D9E00-3F9E-11D3-93C0-00
C04F72DAF7}\1.0\HELPDIR\"
p3 =
"HKEY_LOCAL_MACHINE\Software\CLASSES\TypeLib\{FC7D9000-3F9E-11D3-93C0-00
C04F72DAF7}\1.0\0\win32\"
p4 =
"HKEY_LOCAL_MACHINE\Software\CLASSES\TypeLib\{FC7D9000-3F9E-11D3-93C0-00
C04F72DAF7}\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)
---------------- a qui -----------------------------
Ciao.

 Ricopio la soluzione fornita da > 1sb <:
Ho provato, mi da un mex di errore che dice:
Riga: 15
Carattere: 5
Errore: Errore di sintassi
Codice: 800A03EA
Origine: Errore di compilazione Microsoft VBScript
che fare?


Probabilmente non devi andare a capo dopo p1=, p2=, p3=, p4=.
Ciao.

 nuovamente.
Perfetto, hai risolto anche il mio problema, in effetti uno dei SW che ho
installato ultimamente sul mio sistema è proprio EasyCleaner. Ieri ho
provato a far girare il .VBS e come per magia ora vedo ancora il manuale.
Stasera proverò a vedere se è proprio EasyCleaner che lo disabilita.
Grazie ancora, Mario
--------------------------------
Inviato via 
http://usenet.libero.it

 Probabilmente non devi andare a capo dopo p1=, p2=, p3=, p4=.
Grazie dell'aiuto, ora funge tutto! Grazie ancora!