function Main()
{
  try
  {
    // Создаем объект для работы с реестром
    var objShell = new ActiveXObject( "WScript.Shell" );
    // Выясняем параметры подключения к базе данных
    var ADOConnectionString =  "Provider = SQLOLEDB;"  +
                               "Integrated Security = SSPI;"  +
                               "Data Source = "  + objShell.RegRead(DatabaseParamsPath +  "Server" ) +  ";"  +
                               "Initial Catalog = "  + objShell.RegRead(DatabaseParamsPath +  "Database" ) +  ";" ;
    // Выясняем параметры для работы с почтой
    var ProfileName = objShell.RegRead(TransportParamsPath +  "ProfileName" );
    var MailServer = objShell.RegRead(TransportParamsPath +  "MailServer" );
    var MailBox = objShell.RegRead(TransportParamsPath +  "MailBox" );
    var DoneFolderName = objShell.RegRead(TransportParamsPath +  "DoneTracksFolder" );
  }
  catch (e)
  {
    // Проблемы с получением параметров
    WScript.Quit(- 1 );
  }
  try
  {
    // Создаем подключение к базе данных
    var objConnection = new ActiveXObject( "ADODB.Connection" );
    // Открываем соединение (подключаемся)
    objConnection.Open(ADOConnectionString);
    // Ждем  10  минут (при большом пакете это нормально), причем это именно CommandTimeout, а не ConnectionTimeout
    objConnection.CommandTimeout =  600 ;
  }
  catch (e)
  {
    // Проблемы с подключением к базе
    WScript.Quit(- 2 );
  }
  try
  {
    // Данные лежат в почтовом ящике
    var objMAPISession = new ActiveXObject( "MAPI.Session" );
// ВОТ ТАК ВСЕ РАБОТАЕТ...
      objMAPISession.Logon( "", "  ", false, true, 0 , false, MailServer + "\n" + MailBox); 
// А ТАК НЕТ !
    // Пытаемся подключиться к почтовому ящику (все установки из профиля)
//    objMAPISession.Logon(ProfileName); 
    // Смотрим данные в почте
    HandleIncomingMail(objConnection, objMAPISession, DoneFolderName);
    // Отключаемся (нормальным образом)
    objMAPISession.Logoff();
  }
    catch (e)
    {
      // Закрываем соединение с базой данных
      objConnection.Close();
      // Проблемы с подключением к почтовому ящику
      WScript.Quit(- 4 );
    }
  // Закрываем соединение с базой данных
  objConnection.Close();
  // Баста карапузики - кончилися танцы!
  WScript.Quit( 0 );
}