' Réinitialisation du compteur de compatage automatique dans Outlook Express.
' Effectue la modification sur la dernière identité utilisée.

' http://www.faqoe.com/



Dim WSHShell
Dim strIdentite

Set WshShell = CreateObject("WScript.Shell")

strIdentite = WshShell.regread ("HKCU\Identities\Last User ID")
WshShell.regwrite "HKCU\Identities\" & strIdentite & "\Software\Microsoft\Outlook Express\5.0\Compact Check Count",0,"REG_DWORD"
WshShell.Run "msimn.exe"

Set WshShell=Nothing