{"id":443,"date":"2011-11-08T15:50:20","date_gmt":"2011-11-08T20:50:20","guid":{"rendered":"http:\/\/www.anthonyreinke.com\/?p=443"},"modified":"2018-05-07T20:49:48","modified_gmt":"2018-05-08T02:49:48","slug":"automating-a-new-email-profile","status":"publish","type":"post","link":"https:\/\/anthonyreinke.com\/index.php\/2011\/11\/08\/automating-a-new-email-profile\/","title":{"rendered":"Automating a New Email Profile"},"content":{"rendered":"

I have been helping a company move to a new cloud based email system. \u00a0They needed to update everyone’s mail profile. \u00a0In this follow VBScript, it builds a .prf file to be imported in with the correct fields for the user and servers. \u00a0Near the top of the script there is a section to be filled out by a person that knows the Exchange environment, Exchange Administrator.<\/p>\n

‘ Define our servers and paths\u00a0<\/em><\/span><\/address>\n
strProxy = “” <\/em><\/span>
\n strAutoDiscoverProxy = “” <\/em><\/span>
\n strProfileName = “” <\/em><\/span>
\n strHomeServer = “” <\/em><\/span>
\n strRPCProxyPrincipalName = “”<\/em><\/span><\/address>\n
\u00a0<\/address>\n

The script will ask the user their primary email address. \u00a0For the company I was helping out they had multiple email domains so we needed them to select their primary. \u00a0It then will ask them to confirm what they typed.<\/p>\n

SetupNewOutlook<\/a><\/span><\/p>\n

#####################################<\/p>\n

‘++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++<\/span>
\n ‘ Add email profile for Another Exchange Provider<\/span>
\n ‘++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++<\/span>
\n Option Explicit<\/span>
\n On Error Resume Next’ Declare our varibles<\/span>
\n Dim template, strInput, intAnswer, strProxy, strAutoDiscoverProxy, strProfileName, strHomeServer, strRPCProxyPrincipalName’ Define our servers and paths \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Examples<\/span>
\n strProxy = “” \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 ‘ strProxy = “webmail.yourdomain.com”<\/span>
\n strAutoDiscoverProxy = “” \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0‘ strAutoDiscoverProxy = “https:\/\/webmail.yourdomain.com\/autodiscoverproxy\/autodiscover.xml” <\/span>
\n strProfileName = “” \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 ‘ strProfileName = “New Cloud Email” <\/span>
\n strHomeServer = “” \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 ‘ strHomeServer = “MyExchangeServer” <\/span>
\n strRPCProxyPrincipalName = “” \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0‘ strRPCProxyPrincipalName = “msstd:webmail.yourdomain.com”‘ This loop section is here to have the user verify their email address<\/span>
\n ‘ Starting the Loop. This will loop from this point until the answer is Yes<\/span>
\n Do Until intAnswer = vbYes<\/span>‘ Asking the user their primary email address<\/span>
\n strInput = UserInput( “Please enter your primary email address:” )<\/span><\/p>\n

‘ This is asking the user to confirm their primary email address<\/span>
\n intAnswer = _<\/span>
\n Msgbox(“Completing reconfiguration of Outlook for email address: ” & strInput & vbCr & “This is correct?”, _<\/span>
\n vbYesNo, “Confirm Email Address”)<\/span><\/p>\n

‘ This will loop the script back to the start of the Loop function. If the user click<\/span>
\n ‘ Yes, then the function will exit the loop. If the user answered No, the function will<\/span>
\n ‘ start over and prompt the user for their primary email address.<\/span>
\n Loop<\/span><\/p>\n

Function UserInput( myPrompt )<\/span>
\n ‘ This function prompts the user for some input.<\/span>
\n ‘ When the script runs in CSCRIPT.EXE, StdIn is used,<\/span>
\n ‘ otherwise the VBScript InputBox( ) function is used.<\/span>
\n ‘ myPrompt is the the text used to prompt the user for input.<\/span>
\n ‘ The function returns the input typed either on StdIn or in InputBox( ).<\/span>
\n ‘ Written by Rob van der Woude<\/span>
\n ‘ http:\/\/www.robvanderwoude.com<\/span>
\n ‘ Check if the script runs in CSCRIPT.EXE<\/span>
\n If UCase( Right( WScript.FullName, 12 ) ) = “\\CSCRIPT.EXE” Then<\/span>
\n ‘ If so, use StdIn and StdOut<\/span>
\n WScript.StdOut.Write myPrompt & ” “<\/span>
\n UserInput = WScript.StdIn.ReadLine<\/span>
\n Else<\/span>
\n ‘ If not, use InputBox( )<\/span>
\n UserInput = InputBox( myPrompt )<\/span>
\n End If<\/span>
\n End Function<\/span><\/p>\n

template = “;Automatically generated PRF file” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “; **************************************************************” & VbCrLF &_<\/span>
\n “; Section 1 – Profile Defaults” & VbCrLF &_<\/span>
\n “; **************************************************************” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[General]” & VbCrLF &_<\/span>
\n “Custom=1” & VbCrLF &_<\/span>
\n “ProfileName=Cloud Email” & VbCrLF &_<\/span>
\n “DefaultProfile=No” & VbCrLF &_<\/span>
\n “OverwriteProfile=No” & VbCrLF &_<\/span>
\n “ModifyDefaultProfileIfPresent=FALSE” & VbCrLF &_<\/span>
\n “BackupProfile=No ” & VbCrLF &_<\/span>
\n “DefaultStore=Service1” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “; **************************************************************” & VbCrLF &_<\/span>
\n “; Section 2 – Services in Profile” & VbCrLF &_<\/span>
\n “; **************************************************************” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[Service List]” & VbCrLF &_<\/span>
\n “ServiceX=Microsoft Outlook Client” & VbCrLF &_<\/span>
\n “ServiceEGS=Exchange Global Section” & VbCrLF &_<\/span>
\n “Service1=Microsoft Exchange Server” & VbCrLF &_<\/span>
\n “ServiceEGS=Exchange Global Section” & VbCrLF &_<\/span>
\n “Service2=Outlook Address Book” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “;***************************************************************” & VbCrLF &_<\/span>
\n “; Section 3 – List of internet accounts” & VbCrLF &_<\/span>
\n “;***************************************************************” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[Internet Account List]” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “;***************************************************************” & VbCrLF &_<\/span>
\n “; Section 4 – Default values for each service.” & VbCrLF &_<\/span>
\n “;***************************************************************” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[ServiceX]” & VbCrLF &_<\/span>
\n “CachedExchangeMode=0x00000002” & VbCrLF &_<\/span>
\n “CachedExchangeSlowDetect=TRUE” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[ServiceEGS]” & VbCrLF &_<\/span>
\n “CachedExchangeConfigFlags=0x00000100” & VbCrLF &_<\/span>
\n “MailboxName=” & strInput & VbCrLF &_<\/span>
\n “HomeServer=” & strHomeServer & VbCrLF &_<\/span>
\n “RPCoverHTTPflags=0x002f” & VbCrLF &_<\/span>
\n “RPCProxyServer=” & strProxy & VbCrLF &_<\/span>
\n “RPCProxyPrincipalName=msstd:” & strRPCProxyPrincipalName & VbCrLF &_<\/span>
\n “RPCProxyAuthScheme=0x0001” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[Service1]” & VbCrLF &_<\/span>
\n “OverwriteExistingService=No” & VbCrLF &_<\/span>
\n “UniqueService=No” & VbCrLF &_<\/span>
\n “MailboxName=” & strInput & VbCrLF &_<\/span>
\n “HomeServer=” & strHomeServer & VbCrLF &_<\/span>
\n “AccountName=Microsoft Exchange Server” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “;***************************************************************” & VbCrLF &_<\/span>
\n “; Section 5 – Values for each internet account.” & VbCrLF &_<\/span>
\n “;***************************************************************” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “;***************************************************************” & VbCrLF &_<\/span>
\n “; Section 6 – Mapping for profile properties” & VbCrLF &_<\/span>
\n “;***************************************************************” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[Microsoft Exchange Server]” & VbCrLF &_<\/span>
\n “ServiceName=MSEMS” & VbCrLF &_<\/span>
\n “MDBGUID=5494A1C0297F101BA58708002B2A2517” & VbCrLF &_<\/span>
\n “MailboxName=PT_STRING8,0x6607” & VbCrLF &_<\/span>
\n “HomeServer=PT_STRING8,0x6608” & VbCrLF &_<\/span>
\n “OfflineAddressBookPath=PT_STRING8,0x660E” & VbCrLF &_<\/span>
\n “OfflineFolderPath=PT_STRING8,0x6610” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[Exchange Global Section]” & VbCrLF &_<\/span>
\n “SectionGUID=13dbb0c8aa05101a9bb000aa002fc45a” & VbCrLF &_<\/span>
\n “MailboxName=PT_STRING8,0x6607” & VbCrLF &_<\/span>
\n “HomeServer=PT_STRING8,0x6608” & VbCrLF &_<\/span>
\n “RPCoverHTTPflags=PT_LONG,0x6623” & VbCrLF &_<\/span>
\n “RPCProxyServer=PT_UNICODE,0x6622” & VbCrLF &_<\/span>
\n “RPCProxyPrincipalName=PT_UNICODE,0x6625” & VbCrLF &_<\/span>
\n “RPCProxyAuthScheme=PT_LONG,0x6627” & VbCrLF &_<\/span>
\n “CachedExchangeConfigFlags=PT_LONG,0x6629” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[Microsoft Mail]” & VbCrLF &_<\/span>
\n “ServiceName=MSFS” & VbCrLF &_<\/span>
\n “ServerPath=PT_STRING8,0x6600” & VbCrLF &_<\/span>
\n “Mailbox=PT_STRING8,0x6601” & VbCrLF &_<\/span>
\n “Password=PT_STRING8,0x67f0” & VbCrLF &_<\/span>
\n “RememberPassword=PT_BOOLEAN,0x6606” & VbCrLF &_<\/span>
\n “ConnectionType=PT_LONG,0x6603” & VbCrLF &_<\/span>
\n “UseSessionLog=PT_BOOLEAN,0x6604” & VbCrLF &_<\/span>
\n “SessionLogPath=PT_STRING8,0x6605” & VbCrLF &_<\/span>
\n “EnableUpload=PT_BOOLEAN,0x6620” & VbCrLF &_<\/span>
\n “EnableDownload=PT_BOOLEAN,0x6621” & VbCrLF &_<\/span>
\n “UploadMask=PT_LONG,0x6622” & VbCrLF &_<\/span>
\n “NetBiosNotification=PT_BOOLEAN,0x6623” & VbCrLF &_<\/span>
\n “NewMailPollInterval=PT_STRING8,0x6624” & VbCrLF &_<\/span>
\n “DisplayGalOnly=PT_BOOLEAN,0x6625” & VbCrLF &_<\/span>
\n “UseHeadersOnLAN=PT_BOOLEAN,0x6630” & VbCrLF &_<\/span>
\n “UseLocalAdressBookOnLAN=PT_BOOLEAN,0x6631” & VbCrLF &_<\/span>
\n “UseExternalToHelpDeliverOnLAN=PT_BOOLEAN,0x6632” & VbCrLF &_<\/span>
\n “UseHeadersOnRAS=PT_BOOLEAN,0x6640” & VbCrLF &_<\/span>
\n “UseLocalAdressBookOnRAS=PT_BOOLEAN,0x6641” & VbCrLF &_<\/span>
\n “UseExternalToHelpDeliverOnRAS=PT_BOOLEAN,0x6639” & VbCrLF &_<\/span>
\n “ConnectOnStartup=PT_BOOLEAN,0x6642” & VbCrLF &_<\/span>
\n “DisconnectAfterRetrieveHeaders=PT_BOOLEAN,0x6643” & VbCrLF &_<\/span>
\n “DisconnectAfterRetrieveMail=PT_BOOLEAN,0x6644” & VbCrLF &_<\/span>
\n “DisconnectOnExit=PT_BOOLEAN,0x6645” & VbCrLF &_<\/span>
\n “DefaultDialupConnectionName=PT_STRING8,0x6646” & VbCrLF &_<\/span>
\n “DialupRetryCount=PT_STRING8,0x6648” & VbCrLF &_<\/span>
\n “DialupRetryDelay=PT_STRING8,0x6649” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[Personal Folders]” & VbCrLF &_<\/span>
\n “ServiceName=MSPST MS” & VbCrLF &_<\/span>
\n “Name=PT_STRING8,0x3001” & VbCrLF &_<\/span>
\n “PathToPersonalFolders=PT_STRING8,0x6700 ” & VbCrLF &_<\/span>
\n “RememberPassword=PT_BOOLEAN,0x6701” & VbCrLF &_<\/span>
\n “EncryptionType=PT_LONG,0x6702” & VbCrLF &_<\/span>
\n “Password=PT_STRING8,0x6703” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[Unicode Personal Folders]” & VbCrLF &_<\/span>
\n “ServiceName=MSUPST MS” & VbCrLF &_<\/span>
\n “Name=PT_UNICODE,0x3001” & VbCrLF &_<\/span>
\n “PathToPersonalFolders=PT_STRING8,0x6700 ” & VbCrLF &_<\/span>
\n “RememberPassword=PT_BOOLEAN,0x6701” & VbCrLF &_<\/span>
\n “EncryptionType=PT_LONG,0x6702” & VbCrLF &_<\/span>
\n “Password=PT_STRING8,0x6703” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[Outlook Address Book]” & VbCrLF &_<\/span>
\n “ServiceName=CONTAB” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[LDAP Directory]” & VbCrLF &_<\/span>
\n “ServiceName=EMABLT” & VbCrLF &_<\/span>
\n “ServerName=PT_STRING8,0x6600” & VbCrLF &_<\/span>
\n “UserName=PT_STRING8,0x6602” & VbCrLF &_<\/span>
\n “UseSSL=PT_BOOLEAN,0x6613” & VbCrLF &_<\/span>
\n “UseSPA=PT_BOOLEAN,0x6615” & VbCrLF &_<\/span>
\n “DisableVLV=PT_LONG,0x6616” & VbCrLF &_<\/span>
\n “DisplayName=PT_STRING8,0x3001” & VbCrLF &_<\/span>
\n “ConnectionPort=PT_STRING8,0x6601” & VbCrLF &_<\/span>
\n “SearchTimeout=PT_STRING8,0x6607” & VbCrLF &_<\/span>
\n “MaxEntriesReturned=PT_STRING8,0x6608” & VbCrLF &_<\/span>
\n “SearchBase=PT_STRING8,0x6603” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[Microsoft Outlook Client]” & VbCrLF &_<\/span>
\n “SectionGUID=0a0d020000000000c000000000000046” & VbCrLF &_<\/span>
\n “FormDirectoryPage=PT_STRING8,0x0270” & VbCrLF &_<\/span>
\n “WebServicesLocation=PT_STRING8,0x0271” & VbCrLF &_<\/span>
\n “ComposeWithWebServices=PT_BOOLEAN,0x0272” & VbCrLF &_<\/span>
\n “PromptWhenUsingWebServices=PT_BOOLEAN,0x0273” & VbCrLF &_<\/span>
\n “OpenWithWebServices=PT_BOOLEAN,0x0274” & VbCrLF &_<\/span>
\n “CachedExchangeMode=PT_LONG,0x041f” & VbCrLF &_<\/span>
\n “CachedExchangeSlowDetect=PT_BOOLEAN,0x0420” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[Personal Address Book]” & VbCrLF &_<\/span>
\n “ServiceName=MSPST AB” & VbCrLF &_<\/span>
\n “NameOfPAB=PT_STRING8,0x001e3001” & VbCrLF &_<\/span>
\n “Path=PT_STRING8,0x001e6600” & VbCrLF &_<\/span>
\n “ShowNamesBy=PT_LONG,0x00036601” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “; ************************************************************************” & VbCrLF &_<\/span>
\n “; Section 7 – Mapping for internet account properties. DO NOT MODIFY.” & VbCrLF &_<\/span>
\n “; ************************************************************************” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[I_Mail]” & VbCrLF &_<\/span>
\n “AccountType=POP3” & VbCrLF &_<\/span>
\n “;— POP3 Account Settings —” & VbCrLF &_<\/span>
\n “AccountName=PT_UNICODE,0x0002” & VbCrLF &_<\/span>
\n “DisplayName=PT_UNICODE,0x000B” & VbCrLF &_<\/span>
\n “EmailAddress=PT_UNICODE,0x000C” & VbCrLF &_<\/span>
\n “;— POP3 Account Settings —” & VbCrLF &_<\/span>
\n “POP3Server=PT_UNICODE,0x0100” & VbCrLF &_<\/span>
\n “POP3UserName=PT_UNICODE,0x0101” & VbCrLF &_<\/span>
\n “POP3UseSPA=PT_LONG,0x0108” & VbCrLF &_<\/span>
\n “Organization=PT_UNICODE,0x0107” & VbCrLF &_<\/span>
\n “ReplyEmailAddress=PT_UNICODE,0x0103” & VbCrLF &_<\/span>
\n “POP3Port=PT_LONG,0x0104” & VbCrLF &_<\/span>
\n “POP3UseSSL=PT_LONG,0x0105” & VbCrLF &_<\/span>
\n “; — SMTP Account Settings —” & VbCrLF &_<\/span>
\n “SMTPServer=PT_UNICODE,0x0200” & VbCrLF &_<\/span>
\n “SMTPUseAuth=PT_LONG,0x0203” & VbCrLF &_<\/span>
\n “SMTPAuthMethod=PT_LONG,0x0208” & VbCrLF &_<\/span>
\n “SMTPUserName=PT_UNICODE,0x0204” & VbCrLF &_<\/span>
\n “SMTPUseSPA=PT_LONG,0x0207” & VbCrLF &_<\/span>
\n “ConnectionType=PT_LONG,0x000F” & VbCrLF &_<\/span>
\n “ConnectionOID=PT_UNICODE,0x0010” & VbCrLF &_<\/span>
\n “SMTPPort=PT_LONG,0x0201” & VbCrLF &_<\/span>
\n “SMTPUseSSL=PT_LONG,0x0202” & VbCrLF &_<\/span>
\n “ServerTimeOut=PT_LONG,0x0209” & VbCrLF &_<\/span>
\n “LeaveOnServer=PT_LONG,0x1000” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[IMAP_I_Mail]” & VbCrLF &_<\/span>
\n “AccountType=IMAP” & VbCrLF &_<\/span>
\n “;— IMAP Account Settings —” & VbCrLF &_<\/span>
\n “AccountName=PT_UNICODE,0x0002” & VbCrLF &_<\/span>
\n “DisplayName=PT_UNICODE,0x000B” & VbCrLF &_<\/span>
\n “EmailAddress=PT_UNICODE,0x000C” & VbCrLF &_<\/span>
\n “;— IMAP Account Settings —” & VbCrLF &_<\/span>
\n “IMAPServer=PT_UNICODE,0x0100” & VbCrLF &_<\/span>
\n “IMAPUserName=PT_UNICODE,0x0101” & VbCrLF &_<\/span>
\n “IMAPUseSPA=PT_LONG,0x0108” & VbCrLF &_<\/span>
\n “Organization=PT_UNICODE,0x0107” & VbCrLF &_<\/span>
\n “ReplyEmailAddress=PT_UNICODE,0x0103” & VbCrLF &_<\/span>
\n “IMAPPort=PT_LONG,0x0104” & VbCrLF &_<\/span>
\n “IMAPUseSSL=PT_LONG,0x0105” & VbCrLF &_<\/span>
\n “; — SMTP Account Settings —” & VbCrLF &_<\/span>
\n “SMTPServer=PT_UNICODE,0x0200” & VbCrLF &_<\/span>
\n “SMTPUseAuth=PT_LONG,0x0203” & VbCrLF &_<\/span>
\n “SMTPAuthMethod=PT_LONG,0x0208” & VbCrLF &_<\/span>
\n “SMTPUserName=PT_UNICODE,0x0204” & VbCrLF &_<\/span>
\n “SMTPUseSPA=PT_LONG,0x0207” & VbCrLF &_<\/span>
\n “ConnectionType=PT_LONG,0x000F” & VbCrLF &_<\/span>
\n “ConnectionOID=PT_UNICODE,0x0010” & VbCrLF &_<\/span>
\n “SMTPPort=PT_LONG,0x0201” & VbCrLF &_<\/span>
\n “SMTPUseSSL=PT_LONG,0x0202” & VbCrLF &_<\/span>
\n “ServerTimeOut=PT_LONG,0x0209” & VbCrLF &_<\/span>
\n “CheckNewImap=PT_LONG,0x1100” & VbCrLF &_<\/span>
\n “RootFolder=PT_UNICODE,0x1101” & VbCrLF &_<\/span>
\n VbCrLF &_<\/span>
\n “[INET_HTTP]” & VbCrLF &_<\/span>
\n “AccountType=HOTMAIL” & VbCrLF &_<\/span>
\n “Account=PT_UNICODE,0x0002” & VbCrLF &_<\/span>
\n “HttpServer=PT_UNICODE,0x0100” & VbCrLF &_<\/span>
\n “UserName=PT_UNICODE,0x0101” & VbCrLF &_<\/span>
\n “Organization=PT_UNICODE,0x0107” & VbCrLF &_<\/span>
\n “UseSPA=PT_LONG,0x0108” & VbCrLF &_<\/span>
\n “TimeOut=PT_LONG,0x0209” & VbCrLF &_<\/span>
\n “Reply=PT_UNICODE,0x0103” & VbCrLF &_<\/span>
\n “EmailAddress=PT_UNICODE,0x000C” & VbCrLF &_<\/span>
\n “FullName=PT_UNICODE,0x000B” & VbCrLF &_<\/span>
\n “Connection Type=PT_LONG,0x000F” & VbCrLF &_<\/span>
\n “ConnectOID=PT_UNICODE,0x0010” & VbCrLF<\/span><\/p>\n

Dim objShell, fso<\/span>
\n Set objShell = WScript.CreateObject(“WScript.Shell”)<\/span>
\n Set fso = CreateObject(“Scripting.FileSystemObject”)<\/span><\/p>\n

‘Check for valid windows version<\/span>
\n If Not CheckWindowsVersion Then<\/span>
\n ExitWithError(“UnsupportedVersion”)<\/span>
\n End If<\/span><\/p>\n

‘Get Outlook Path<\/span>
\n Dim outlookPath <\/span>
\n outlookPath = GetOutlookPath<\/span>
\n If outlookPath = “” Then<\/span>
\n ExitWithError(“OutlookNotFound”)<\/span>
\n End If<\/span><\/p>\n

‘Check that Outlook does not running<\/span>
\n Dim answer<\/span>
\n Do While True<\/span>
\n If CheckOutlookIsRunning Then<\/span>
\n answer = MsgBox(GetString(“OutlookIsRunning”), vbRetryCancel ,GetString (“MessageCaption”))<\/span>
\n If answer = vbCancel Then<\/span>
\n WScript.Quit<\/span>
\n End If<\/span>
\n Else<\/span>
\n Exit Do<\/span>
\n End If<\/span>
\n Loop<\/span><\/p>\n

‘Adjust Outlook registry settings<\/span>
\n AdjustSettings<\/span><\/p>\n

‘ Configure Autodiscover for Custom email address<\/span>
\n Dim customEmail<\/span>
\n customEmail = “”<\/span><\/p>\n

If customEmail <> “” Then<\/span>
\n ConfigureAutodiscover customEmail<\/span>
\n End If<\/span><\/p>\n

‘Create temporary file for Outlook profile<\/span>
\n Dim tempFile, tempFileName<\/span>
\n tempFileName = GetTempFileName<\/span>
\n If Err.Number <> 0 Then<\/span>
\n ExitWithError(“ProfileCreateError”)<\/span>
\n End If<\/span>
\n Set tempFile = fso.CreateTextFile(tempFileName, true, true)<\/span>
\n If Err.Number <> 0 Then<\/span>
\n ExitWithError(“ProfileCreateError”)<\/span>
\n End If<\/span><\/p>\n

‘Write profile to file<\/span>
\n tempFile.Write(template)<\/span>
\n If Err.Number <> 0 Then<\/span>
\n ExitWithError(“ProfileWriteError”)<\/span>
\n End If<\/span>
\n tempFile.Close<\/span><\/p>\n

‘Start Outlook<\/span>
\n objShell.Exec(outlookPath + ” \/importprf “”” + tempFileName + “”””)<\/span><\/p>\n

Function CheckWindowsVersion<\/span><\/p>\n

On Error Resume Next <\/span>
\n Dim objWMI, colOS, objOS, version<\/span>
\n set objWMI = GetObject(“winmgmts:\\\\.\\root\\cimv2”)<\/span>
\n set colOS = objWMI.InstancesOf(“Win32_OperatingSystem”)<\/span><\/p>\n

For Each objOS in colOS<\/span>
\n version = objOS.Version<\/span>
\n If objOS.OSType = 18 Then<\/span>
\n If Left(version, 1) > 5 Then<\/span>
\n ‘ Windows Vista or Windows Server 2008<\/span>
\n CheckWindowsVersion = True<\/span>
\n Exit Function<\/span>
\n ElseIf Left(version, 1) = 5 And Mid(version, 3, 1) = 2 Then<\/span>
\n If objOS.OtherTypeDescription = “R2” Then<\/span>
\n ‘ Windows Server 2003 R2<\/span>
\n CheckWindowsVersion = True<\/span>
\n Exit Function<\/span>
\n ElseIf objOS.ProductType = 1 Then<\/span>
\n ‘ Windows XP Professional x64 Edition<\/span>
\n CheckWindowsVersion = True<\/span>
\n Exit Function<\/span>
\n Else <\/span>
\n ‘ Windows Server 2003<\/span>
\n If objOS.ServicePackMajorVersion = 0 Then<\/span>
\n ‘ no any Service Pack<\/span>
\n CheckWindowsVersion = False<\/span>
\n Exit Function<\/span>
\n End If<\/span>
\n CheckWindowsVersion = True<\/span>
\n Exit Function<\/span>
\n End If<\/span>
\n ElseIf Left(version, 1) = 5 And Mid(version, 3, 1) = 1 Then<\/span>
\n ‘Microsoft Windows XP<\/span>
\n If objOS.ServicePackMajorVersion > 1 Then<\/span>
\n ‘ SP2 or later<\/span>
\n CheckWindowsVersion = True<\/span>
\n Exit Function<\/span>
\n ElseIf objOS.ServicePackMajorVersion = 1 Then<\/span>
\n ‘ SP1, check for installed KB331320<\/span>
\n Err.Clear<\/span>
\n objShell.RegRead(“HKLM\\SOFTWARE\\Microsoft\\Updates\\Windows XP\\SP1\\KB331320\\”)<\/span>
\n If Err.Number = 0 Then<\/span>
\n CheckWindowsVersion = True<\/span>
\n Exit Function<\/span>
\n End If<\/span>
\n End If<\/span>
\n End If<\/span>
\n End If<\/span>
\n Next<\/span>
\n CheckWindowsVersion = False<\/span><\/p>\n

End Function<\/span><\/p>\n

Function GetOutlookPath<\/span><\/p>\n

On Error Resume Next<\/span>
\n Dim CLSID, path <\/span><\/p>\n

‘ First of all check simple location<\/span>
\n path = objShell.RegRead(“HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\OUTLOOK.EXE\\”)<\/span>
\n If path <> “” Then<\/span>
\n GetOutlookPath = path <\/span>
\n Exit Function<\/span>
\n End If<\/span><\/p>\n

CLSID = objShell.RegRead(“HKLM\\Software\\Classes\\Outlook.Application\\CLSID\\”)<\/span>
\n If Err.Number <> 0 Then<\/span>
\n GetOutlookPath “”<\/span>
\n Exit Function<\/span>
\n End If<\/span>
\n path = objShell.RegRead(“HKLM\\Software\\Classes\\CLSID\\” & CLSID & “\\LocalServer32\\”)<\/span><\/p>\n

‘ Does need to check alternative path ?<\/span>
\n if path = “” Then<\/span>
\n path = objShell.RegRead(“HKLM\\SOFTWARE\\Wow6432Node\\Classes\\CLSID\\” & CLSID & “\\LocalServer32\\”)<\/span>
\n End If<\/span><\/p>\n

‘ If we have an error path will be empty<\/span>
\n GetOutlookPath = path<\/span><\/p>\n

End Function<\/span><\/p>\n

Function CheckOutlookIsRunning<\/span><\/p>\n

On Error Resume Next<\/span>
\n Dim objWMIService, processList<\/span>
\n Set objWMIService = GetObject(“winmgmts:\\\\.\\root\\cimv2”) <\/span>
\n Set processList = objWMIService.ExecQuery(“Select * from Win32_Process Where Name = “”outlook.exe”””)<\/span>
\n If processList.Count > 0 Then<\/span>
\n CheckOutlookIsRunning = True<\/span>
\n Exit Function<\/span>
\n End If<\/span>
\n CheckOutlookIsRunning = False<\/span><\/p>\n

End Function<\/span><\/p>\n

Sub AdjustSettings<\/span><\/p>\n

objShell.RegWrite “HKCU\\Software\\Microsoft\\Exchange\\Client\\Options\\PickLogonProfile”, “1”, “REG_SZ”<\/span><\/p>\n

End Sub<\/span><\/p>\n

Function GetTempFileName <\/span><\/p>\n

Dim tfolder, tname, tfile<\/span>
\n Const TemporaryFolder = 2<\/span>
\n Set tfolder = fso.GetSpecialFolder(TemporaryFolder)<\/span>
\n tname = fso.GetTempName <\/span>
\n tfile = fso.BuildPath(tfolder.Path, tname)<\/span>
\n GetTempFileName = tfile<\/span><\/p>\n

End Function<\/span><\/p>\n

Function ExitWithError(stringId)<\/span><\/p>\n

MsgBox GetString(stringId), vbOKOnly, GetString(“MessageCaption”)<\/span>
\n WScript.Quit<\/span><\/p>\n

End Function<\/span><\/p>\n

Function GetString(stringId)<\/span><\/p>\n

Dim messageCaption, outlookNotFound, outlookIsRunning, profileCreateError, profileWriteError, unsupportedVersion<\/span>
\n messageCaption = “Outlook Profile Configuration Script”<\/span>
\n outlookNotFound = “Unable to locate Microsoft Outlook installation path.”<\/span>
\n outlookIsRunning = “Configuration script has determined that Microsoft Outlook is running. Please shut down it and then click Retry.”<\/span>
\n profileCreateError = “Unable to create a temporary file for profile.”<\/span>
\n profileWriteError = “Unable to save profile into temporary file.”<\/span>
\n unsupportedVersion = “Unsupported version of Microsoft Windows. ” & vbLf & “” & vbLf & “The following versions of Microsoft Windows are supported: ” & vbLf & ” – Microsoft Windows XP with Service Pack 2 ” & vbLf & ” – Windows Server 2003 with Service Pack 1 ” & vbLf & ” – or a later operating system”<\/span>
\n Dim retStr<\/span>
\n Select Case stringId<\/span>
\n Case “MessageCaption”<\/span>
\n If messageCaption = “” Or Mid(messageCaption, 2, 1) = “4” Then<\/span>
\n retStr = “Outlook Profile Configuration Script”<\/span>
\n Else<\/span>
\n retStr = messageCaption<\/span>
\n End If<\/span>
\n Case “OutlookNotFound”<\/span>
\n If outlookNotFound = “” Or Mid(outlookNotFound, 2, 1) = “5” Then<\/span>
\n retStr = “Unable to locate Microsoft Outlook installation path.”<\/span>
\n Else<\/span>
\n retStr = outlookNotFound<\/span>
\n End If<\/span>
\n Case “OutlookIsRunning”<\/span>
\n If outlookIsRunning = “” Or Mid(outlookIsRunning, 2, 1) = “6” Then<\/span>
\n retStr = “Configuration script has determined that Microsoft Outlook is running. Please shut down it and then click Retry.”<\/span>
\n Else<\/span>
\n retStr = outlookIsRunning<\/span>
\n End If<\/span>
\n Case “ProfileCreateError”<\/span>
\n If profileCreateError = “” Or Mid(profileCreateError, 2, 1) = “7” Then<\/span>
\n retStr = “Unable to create a temporary file for profile.”<\/span>
\n Else<\/span>
\n retStr = profileCreateError<\/span>
\n End If<\/span>
\n Case “profileWriteError”<\/span>
\n If profileWriteError = “” Or Mid(profileWriteError, 2, 1) = “8” Then<\/span>
\n retStr = “Unable to save profile into temporary file.”<\/span>
\n Else<\/span>
\n retStr = profileWriteError<\/span>
\n End If<\/span>
\n Case “UnsupportedVersion”<\/span>
\n If unsupportedVersion = “” Or Mid(unsupportedVersion, 2, 1) = “9” Then<\/span>
\n retStr = “Unsupported version of Microsoft Windows. ” & vbLf & “” & vbLf & “The following versions of Microsoft Windows are supported: ” & vbLf & ” – Microsoft Windows XP with Service Pack 2 ” & vbLf & ” – Windows Server 2003 with Service Pack 1 ” & vbLf & ” – or a later operating system”<\/span>
\n Else<\/span>
\n retStr = unsupportedVersion<\/span>
\n End If<\/span>
\n Case Else<\/span>
\n retStr = stringId<\/span>
\n End Select<\/span>
\n GetString = retStr<\/span>
\n End Function<\/span><\/p>\n

Sub ConfigureAutodiscover(email)<\/span><\/p>\n

On Error Resume Next<\/span>
\n Dim configTemplate<\/span>
\n configTemplate = “<?xml version=””1.0″” encoding=””utf-8″”?>” & VbCrLF &_<\/span>
\n “<Autodiscover xmlns=””http:\/\/schemas.microsoft.com\/exchange\/autodiscover\/responseschema\/2006″”>” & VbCrLF &_<\/span>
\n ” <Response xmlns=””http:\/\/schemas.microsoft.com\/exchange\/autodiscover\/outlook\/responseschema\/2006a””>” & VbCrLF &_<\/span>
\n ” <Account>” & VbCrLF &_<\/span>
\n ” <AccountType>email<\/AccountType>” & VbCrLF &_<\/span>
\n ” <Action>redirectUrl<\/Action>” & VbCrLF &_<\/span>
\n ” <RedirectUrl>” & strAutoDiscoverProxy & “<\/RedirectUrl>” & VbCrLF &_<\/span>
\n ” <\/Account>” & VbCrLF &_<\/span>
\n ” <\/Response>” & VbCrLF &_<\/span>
\n “<\/Autodiscover>” & VbCrLF<\/span><\/p>\n

Dim folder<\/span>
\n Dim objEnv<\/span>
\n ‘ Get collection by using the Environment property.<\/span>
\n Set objEnv = objShell.Environment(“Process”)<\/span>
\n folder = objEnv(“APPDATA”) + “\\Outlook\\”<\/span><\/p>\n

‘ Check that Outlook is available<\/span>
\n Dim ver<\/span>
\n ver = objShell.RegRead(“HKCR\\Outlook.Application\\CurVer\\”)<\/span>
\n If Err.Number <> 0 Then<\/span>
\n Exit Sub<\/span>
\n End If<\/span><\/p>\n

‘ Outlook.Application.XX -> XX<\/span>
\n ver = Right(ver, 2)<\/span><\/p>\n

Dim mailDomain, configFilePath, configFile<\/span>
\n mailDomain = Mid(email, Instr(email, “@”) + 1)<\/span>
\n If Not fso.FolderExists(folder) Then <\/span>
\n fso.CreateFolder(folder)<\/span>
\n End If<\/span>
\n configFilePath = folder & mailDomain & “.xml”<\/span>
\n Set configFile = fso.CreateTextFile(configFilePath, True)<\/span>
\n configFile.Write(configTemplate)<\/span>
\n configFile.Close<\/span>
\n objShell.RegWrite “HKCU\\Software\\Microsoft\\Office\\” & ver & “.0\\Outlook\\AutoDiscover\\” & mailDomain, configFilePath, “REG_SZ”<\/span>
\n End Sub<\/span><\/p>\n<\/address>\n","protected":false},"excerpt":{"rendered":"

I have been helping a company move to a new cloud based email system. \u00a0They needed to update everyone’s mail profile. \u00a0In this follow VBScript, it builds a .prf file to be imported in with the correct fields for the user and servers. \u00a0Near the top of the script there is a section to be […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4],"tags":[],"class_list":["post-443","post","type-post","status-publish","format-standard","hentry","category-projects"],"_links":{"self":[{"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/posts\/443","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/comments?post=443"}],"version-history":[{"count":2,"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/posts\/443\/revisions"}],"predecessor-version":[{"id":12407,"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/posts\/443\/revisions\/12407"}],"wp:attachment":[{"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/media?parent=443"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/categories?post=443"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/tags?post=443"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}