Dim WSHShell
Dim strIdentite
Set WshShell = CreateObject("WScript.Shell")
strIdentite = WshShell.regread ("HKCU\Identities\Last User ID")
sCount = WshShell.regread("HKCU\Identities\" & strIdentite & "\Software\Microsoft\Outlook Express\5.0\Compact Check Count")
WshShell.regwrite "HKCU\Identities\" & strIdentite & "\Software\Microsoft\Outlook Express\5.0\Compact Check Count",0,"REG_DWORD"
msgbox "Reset Succesfully!" 
Set WshShell=Nothing