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