mcafee导致notes8崩溃

显示全部楼层 · 发表于 2011-3-12 09:03:23

在前篇有说过mcafee的ncdaemon notes专用插件导致notes8.5崩溃的解决方案，这里给出一个初步的vbs解决方法

?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

'==========================================================================
'
' Source File
'
' Author: Puti
' Email:  linkanyway@gmail.com
'
' DATE  : 2011-03-08 星期二
'
' COMMENT:
'
'==========================================================================
Dim str_NotesProPath,str_NotesIniPath
Dim obj_fs
Dim iniFile
Set obj_shell=CreateObject("WScript.Shell")
str_NotesProPath=obj_shell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Lotus\Notes\Path")
str_NotesIniPath=str_NotesProPath&"notes.ini"
Set obj_fs=CreateObject("Scripting.FileSystemObject")
If (obj_fs.FileExists(str_NotesIniPath)) Then
'fs.CopyFile str_NotesIniPath,str_NotesProPath&"notesini.bak"&".ncdaemon"  '备份notes.ini
Set iniFile=obj_fs.OpenTextFile(str_NotesIniPath)
str=iniFile.ReadAll()
Set regex=New RegExp
regex.Pattern="EXTMGR_ADDINS=NCExtMgr\s"

replacedText=regex.Replace(str,"")
regex.Pattern="AddInMenus=.*NCMenu.*\s"
replacedText=regex.Replace(replacedText,"")
iniFile.Close()
set fs_newinit=obj_fs.CreateTextFile(str_NotesIniPath,True)
fs_newinit.Write(replacedText)
fs_newinit.Close()
Set obj_fs=Nothing

End If

[资讯] mcafee导致notes8崩溃