script เอาไว้สำหรับ reset ค่า Compact Check Count เพื่อไม่ให้ Outlook Express ถามให้ Compact ตอนที่ออกจากโปรแกรม
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Identities"
oReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrKeys
For Each strKey In arrKeys
strKeyPath = "Identities\" & strKey & "\Software\Microsoft\Outlook Express\5.0"
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath, "Compact Check Count", 0
Next
Tuesday, December 1, 2009
Subscribe to:
Posts (Atom)