Тема: Помогите пожалуйста доработать скрипт для автонастройки 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
Заранее спасибо. Жду помощи.