Outlook Express壓縮計數器清零

今天無意中看到一篇懸賞文章，關于Outlook Express使用超過100次之後就會提示壓縮，然後如果壓縮就會進入漫長的壓縮等待過程，如果中途出現問題後果就。。。

根據作者的提示“Outlook Express提示要壓縮郵件是在啟動Outlook Express 100次後，可以修改以下系統資料庫鍵值來取消壓縮郵件提示：HKEY_CURRENT_USER\Identities\{B1A23E35-A22F-4D01-B97C-69D8D9EDE22C}\Software\Microsoft\Outlook Express\5.0\Compact Check Count

修改成十進值的1後就沒有提示了（其中紅色部分不同作業系統或者不同版本該值是變化的）”，既然和系統資料庫有關，那麼制作一個控制該鍵值的腳本就可以了，然後輕按兩下或設定計劃任務或放到組政策中開機執行就自己看着辦了。

腳本代碼如下，複制另存為vbs格式

On Error Resume Next

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "Identities"

oReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrStrings

For i=0 To UBound(arrStrings)

strValueName = "Compact Check Count"

strkeypath1 = "Identities\" & arrStrings(i) & "\Software\Microsoft\Outlook Express\5.0"

oReg.GetDWORDValue HKEY_CURRENT_USER, strkeypath1, strValueName, dwValue

Next

If dwValue >=1 then

strnewdwValue = 0

oReg.SetDWORDValue HKEY_CURRENT_USER, strkeypath1, strValueName, strnewdwValue

End If

本文轉自yangye1985 51CTO部落格，原文連結：http://blog.51cto.com/yangye/583869，如需轉載請自行聯系原作者