אין מה להתקין זה לבצע רישום לקבצי מערכת שכנראה הרישום אליהם אבד,

קוד:

'----------------------------------------------------------------
'Applies To   : Microsoft Windows XP
'Author       : Ramesh Srinivasan - Microsoft MVP (Windows Shell)
'Created on   : November 13, 2005
'Updated on   : August   23, 2006
'Description  : Fixes the OLE registration and other issues
'Homepage     : http://windowsxp.mvps.org
'More Info    : http://windowsxp.mvps.org/olereg.htm
'Requirement  : Needs Administrative privileges in Windows XP
'----------------------------------------------------------------

Option Explicit
Dim BaseKey, WshShell
Set WshShell = CreateObject("Wscript.Shell")
BaseKey = "HKCR\CLSID\{0000031A-0000-0000-C000-000000000046}\"

On Error resume Next

WshShell.RegWrite BaseKey, "ClassMoniker", "REG_SZ"
WshShell.RegWrite BaseKey & "InprocServer32\", "ole32.dll", "REG_SZ"
WshShell.RegWrite BaseKey & "ProgID\", "clsid", "REG_SZ"
WshShell.RegWrite "HKCR\CLSID\CLSID\", "{0000031A-0000-0000-C000-000000000046}", "REG_SZ"
WshShell.RUN ("regsvr32.exe mshtml.dll /i /s")
Wshshell.RUN ("regsvr32.exe jscript.dll /s")
Wshshell.RUN ("regsvr32.exe vbscript.dll /s")
Wshshell.RUN ("regsvr32.exe nusrmgr.cpl /s")
Wshshell.RUN ("regsvr32.exe ole32.dll /s")

MsgUser = Msgbox ("OLE registration fix completed", 4160, "OLE registration fix")
Set WshShell = Nothing

האפקט זהה, שים לב