'**********************************************************************************************
' Имя: OE_-_Compact_Check_Count.vbs
' Язык: VBScript
' Описание: Outlook Express - Compact_Check_Count
'	OE предлалает сжать папки в автоматическом режиме, основываясь на показаниях
'	счётчика запуска программы, который хранится по адресу в реестре:
'	HCKU\Identities\<ваш идентификатор>\Softaware\Microsoft\Outlook Express\5.0,
'	параметр Compack Check Count. Процесс сжатия папок может быть доглим, а если
'	вы случайно согласились его запустить, прерывать не рекомендуется во избежание
'	потери данных, поэтому может возникнуть желание отключить автосжатие.
'	Для отключения этого счетчика, необходимо исправить в параметр в рестре 
'	"CompactCheck Count" на 0.
'
' Полезные ссылки:
'	http://social.technet.microsoft.com/Forums/en-US/itproxpsp/thread/9c206033-d309-4f24-8018-ebbc3dff1abd/
'	http://grozmaster.nsk-info.ru/byt/print:page,1,15-kak-izbavitsya-ot-szhatiya-soobshhenij-v-outlook.html
'	http://itsovetov.net/kak-ubrat-avtoszhatie-papok-v-oe.html
'
' Дата: 2011.09.16
' Автор:
'**********************************************************************************************
Option Explicit
On Error Resume Next

Const Impersonate = "winmgmts:{impersonationLevel=impersonate}!\\"

Dim objWMIService, objOperatingSystem, objNetwork, objFSO
Dim colOperatingSystems
Dim strComputer, strSystemCaption, strSystemPack, strInfo 
Dim myShell, OE_ID, OE_ID2, p, n, itemtype

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Узнаем имя компьютера
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set objNetwork = WScript.CreateObject("WScript.Network")
If Err.Number <>  0  Then
	WScript.Echo Err.Number & " " & Err.Description
	WScript.Quit
End If
strComputer = objNetwork.ComputerName 

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Проверка версии ОС и установленого сервисного пакета.	
'Устанавливаем только на Microsoft Windows XP Professional с Service Pack 3
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set objWMIService = GetObject(Impersonate & strComputer & "\root\cimv2")
If Err.Number <>  0  Then
	WScript.Echo Err.Number & " " & Err.Description
	WScript.Quit
End If

Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    strSystemCaption = objOperatingSystem.Caption
    strSystemPack = objOperatingSystem.ServicePackMajorVersion
    Exit For
Next

strInfo = "ComputerName:" & strComputer & " OS:" & strSystemCaption & " " & _
" Service_Pack:" & strSystemPack
'WScript.Echo strInfo

If (InStr( 1 , strSystemCaption, "Microsoft Windows XP Professional") AND (strSystemPack = "3")) =  0  Then
    'WScript.Echo "Install only on Microsoft Windows XP Professional Service Pack 3"
    WScript.Quit
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''	
'Правим реестр, устанавливаем значение "Compact Check Count" в 0
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set myShell = CreateObject("WScript.Shell")

On Error Resume Next
OE_ID = "HKEY_CURRENT_USER\Identities\Default User ID"
OE_ID2 = myShell.RegRead(OE_ID)

p = "HKCU\Identities\" & OE_ID2 & "\Software\Microsoft\Outlook Express\5.0\"
p = p & "Compact Check Count"
itemtype = "REG_DWORD"
n = "0"

myshell.RegWrite p, n, itemtype