05-08-2007, 02:23
|
|
\dev\null
|
|
חבר מתאריך: 08.11.02
הודעות: 11,379
|
|
אין מה להתקין זה לבצע רישום לקבצי מערכת שכנראה הרישום אליהם אבד,
קוד:
'----------------------------------------------------------------
'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
האפקט זהה, שים לב
|