outlook 自动配置脚本

《outlook 自动配置脚本》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Outlook自动配置脚本 目前有这样一个客户需求：在一期项目当中，客户端不加入域，但要求配置并使用客户端的Outlook。由于客户端数量较大（大约1200个），手工配置太繁琐，工作量也非常巨大，因此写了一个Outlook客户端配置脚本，顺便提供大家一个参考。1、我们需要有一个Outlook配置文件（PRF文件），此配置文件的生成及具体参数请参考http://technet.microsoft.com/zh-cn/library/cc179062(TechNet.10).aspx2、执行写好的脚本将配置文件导入并配置

2、Outlook客户端即可（PRF配置文件需要与脚本在同一目录，并在脚本中指定PRF文件的名称）3、脚本内容'===================================================================''VBScriptSourceFile  ''NAME:BillyFu''AUTHOR:Outlook配置脚本-Outlook_Profile_Config''DATE  :2008/7/14'''========================================

3、===========================ONERRORRESUMENEXTConstOFFICE11_PATH="C:ProgramFilesMicrosoftOfficeOffice11"ConstOFFICE12_PATH="C:ProgramFilesMicrosoftOfficeOffice12"dimstrUserNamedimintOfficeVerdimstrOfficePathstrUserName=""intOfficeVer=""strOfficePath=""strUs

4、erName=InputBox("请输入您在域中的用户帐号,格式如：BillyFu","Outlook配置脚本")  IfstrUserName=""Then    Msgbox"取消Outlook配置！"Else    whileintOfficeVer=""  intOfficeVer=InputBox("请输入您本机安装的Outlook版本号:2007或2003，其他版本不支持","Outlook配置脚本","2003")    ifintOfficeVer=""then      Msgbox"Outlook

5、设置取消！"      intOfficeVer="error"  else      ifintOfficeVer<>"2007"AndintOfficeVer<>"2003"Then    intOfficeVer=""      else    ifintOfficeVer="2007"then        strOfficePath=OFFICE12_PATH    else        strOfficePath=OFFICE11_PATH    endif    strOfficePath=Input

6、Box("请确定您本机安装的Outlook路径","Outlook配置脚本",strOfficePath)      CallInstallOutlookProfile      endif  endif      WendEndIfsubInstallOutlookProfile    ModifyPRFFile    DimWshShell    SetWshShell=Wscript.CreateObject("Wscript.Shell")      DimstrPath    strPath=WScript

7、.ScriptFullName      strPath=Left(strPath,InstrRev(strPath,""))&"OutlookProfile1.PRF"'指定OutlookPRF配置文件      dimstrCmd    strCmd=""""&strOfficePath&"outlook.exe""/importprf"""&strPath&""""      WshShell.RunstrCmd,1,falseendsubsubModifyPRFFile  ConstForReading=

8、1,ForWriting=2,ForAppending=8  ConstTristateUseDefault=-2,TristateTrue=-1,TristateFalse=0  DimstrCon  Dimfso,f1,f2,ts  Setfso=CreateObject("Scripting.FileSystemObject")  Set