Dim myShell, OE_ID, OE_ID2, OE_SA_Key, p, p1, t, p2, n, itemtype Set myShell = CreateObject("WScript.Shell") On Error Resume Next OE_ID = "HKEY_CURRENT_USER\Identities\Default User ID" OE_ID2 = myShell.RegRead(OE_ID) OE_SA_Key = "HKEY_CURRENT_USER\Identities\" & OE_ID2 & "\Software\Microsoft\Outlook Express\5.0\Compact Check Count" p1="HKEY_CURRENT_USER\Identities\" & OE_ID2 & "\Software\Microsoft\Outlook Express\5.0\Compact Check Count" p = "HKCU\Identities\" & OE_ID2 & "\Software\Microsoft\Outlook Express\5.0\" p = p & "Compact Check Count" itemtype = "REG_DWORD" n = "108" myshell. RegWrite p, n, itemtype t = "Set Compress Check Count back to default of 100" p2 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSaveSettings" itemtype = "REG_DWORD" n = "0" myShell.RegWrite p2, n, itemtype myshell.RegRead p1 & "" MsgBox "Compact Check Count has been reset to 100. Hit F5 to refresh", 4096,"Finished"