1

Тема: Помогите пожалуйста доработать скрипт для автонастройки Outlook 03

Приветствую друзья.

В общем проблема в следующем, есть скрипт, который автоматически настраивает учетную запись Outlook 2003 с возможностью настраивать учетку сразу на файл личных папок .PST, НО есть проблема в типе создаваемого файла .PST... Файл .PST создается с типом "Файл данных "Outlook 97-2002 (.pst)", что неудобно (файл имеет ограничение в размерах 2Gb).

Необходимо подправить скрипт таким образом, чтобы файл личных папок создавался с типом "Файл данных Outlook (.pst)"

Кусок скрипта:

Text = "Создать Личные папки и использовать их для доставки почты?"
    Title = "Внимание!"
    libWriteLog "Задан вопрос: ""Создать Личные папки и использовать их для доставки почты?"""
    Res3 = oWshShell.PopUp(Text, , Title, 32 + 4)
    Select Case Res3
    Case 6
        'Да
        libWriteLog "Пользователь ответил ДА"
        If libCheckCreateFolder("C:\WORK") <> 0 Then
            NewPSTPath = "%USERPROFILE%\local settings\application data\microsoft\outlook\" & ProfileName & ".pst"
            libWriteLog "Нет прав для создания папки в C:\WORK Создаем файл для Личной папки в: " & PSTPath
        Else
            NewPSTPath = "C:\WORK\" & ProfileName & ".pst"
        End If
        DefaultStore="Service2"
        PersFolderList=vbNewLine & " Service2=Unicode Personal Folders"
        PersFolderSet = "UniqueService=No" & vbNewLine &_
        " Name=Личные папки" & vbNewLine &_
        " PathToPersonalFolders=" & NewPSTPath & vbNewLine &_
        " EncryptionType=0x80000000"
            
        If oFSO.FileExists(sTmpDir & "\Outlook.prf") Then
            oFSO.DeleteFile sTmpDir & "\Outlook.prf", True
        End If
        Set oFileOutlookPRF = oFSO.OpenTextFile(sTmpDir & "\Outlook.prf", 2, True)
        oFileOutlookPRF.WriteLine(libReadInternalData("PRFFILE", true))
        oFileOutlookPRF.Close
        If libWriteReg("HKEY_CURRENT_USER\Software\Microsoft\Exchange\LogonDomain", "REG_SZ", "alpha")=0 Then libWriteLog "Успешно записан ключ HKEY_CURRENT_USER\Software\Microsoft\Exchange\LogonDomain = alpha"
        If libWriteReg("HKEY_CURRENT_USER\Software\Microsoft\Exchange\UserName", "REG_SZ", sUserName)=0 Then libWriteLog "Успешно записан ключ HKEY_CURRENT_USER\Software\Microsoft\Exchange\UserName = " & sUserName
        If libWriteReg("HKEY_CURRENT_USER\Software\Microsoft\Exchange\Client\Options\PickLogonProfile", "REG_SZ", 1) = 0 Then libWriteLog "Установлен запуск с выбором конфигурации=" & CurrentMode
        OutlookReRun
    ' Wscript.Sleep 7000
        Result = libPutUserRight(libExpandEnv((NewPSTPath)))
        libRun "reg", "DELETE " & Chr(34) & "HKCU\" & KeyPath & "BACKUP OF " & ProfileName & Chr(34) & " /f"
    Case 7        
        PersFolderSet = ""
        PersFolderList = ""
        If libWriteReg("HKEY_CURRENT_USER\Software\Microsoft\Exchange\LogonDomain", "REG_SZ", "alpha")=0 Then libWriteLog "Успешно записан ключ HKEY_CURRENT_USER\Software\Microsoft\Exchange\LogonDomain = alpha"
        If libWriteReg("HKEY_CURRENT_USER\Software\Microsoft\Exchange\UserName", "REG_SZ", sUserName)=0 Then libWriteLog "Успешно записан ключ HKEY_CURRENT_USER\Software\Microsoft\Exchange\UserName = " & sUserName
        If oFSO.FileExists(sTmpDir & "\Outlook.prf") Then oFSO.DeleteFile sTmpDir & "\Outlook.prf", True
        Set oFileOutlookPRF = oFSO.OpenTextFile(sTmpDir & "\Outlook.prf", 2, True, True)
        oFileOutlookPRF.WriteLine(libReadInternalData("PRFFILE", true))
        oFileOutlookPRF.Close
        If libWriteReg("HKEY_CURRENT_USER\Software\Microsoft\Exchange\Client\Options\PickLogonProfile", "REG_SZ", 1) = 0 Then libWriteLog "Установлен запуск с выбором конфигурации=" & CurrentMode
        OutlookReRun
        Wscript.Sleep 7000
        libRun "reg", "DELETE " & Chr(34) & "HKCU\" & KeyPath & "BACKUP OF " & ProfileName & Chr(34) & " /f"
    End Select

Заранее спасибо. Жду помощи.