Set WshShell = WScript.CreateObject ("WScript.Shell")
str1="HKCU\Identities\"
str2=str1+wshShell.RegRead(str1+"Default User ID")+"\Software\Microsoft\Outlook Express\5.0\Compact Check Count"
str3=wshShell.RegWrite(str2,"0","REG_DWORD")
WshShell.Run("Outlook_Express.lnk") 
//met dank aan Sjaak, die het gemaakt heeft.