This VB script will do the configuration for both Outlook 2003 and Outlook 2007. This script basically aims at changing the registry entries for your Outlook Profile that do all the outlook over https or outlook anywhere configuration.
Here are the Registry Keys and values that we are targetting at for doing this configuration in an Outlook Profile:
HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\
"00036601" - for Cached Mode
"00036623" - Enable Exchange Proxy settings and control various check boxes like "on fast networks…" etc.
"00036627" - For Authentication - Basic or NTLM
"001f6622" - for specifying Exchange proxy server name
"001f6625" - for specifying Exchange proxy server name according to principal cert name.
So the script will go like:
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strValue1Name = "00036601"
arrValue1 = Array(&H00,&H00,&H00,&H00)
strValue2Name = "00036623"
arrValue2 = Array(&H00,&H00,&H00,&H00)
strValue3Name = "00036627"
arrValue3 = Array(&H00,&H00,&H00,&H00)
strValue4Name = "001f6622"
arrValue4 = Array(&H00,&H00,&H00,&H00)
strValue5Name = "001f6625"
arrValue5 = Array(&H00,&H00,&H00,&H00)
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
oReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
strFullPath = strKeyPath & "\" & subkey & "\13dbb0c8aa05101a9bb000aa002fc45a"
oReg.SetBinaryValue HKEY_CURRENT_USER,strFullPath,strValue1Name,arrValue1
oReg.SetBinaryValue HKEY_CURRENT_USER,strFullPath,strValue2Name,arrValue2
oReg.SetBinaryValue HKEY_CURRENT_USER,strFullPath,strValue3Name,arrValue3
oReg.SetBinaryValue HKEY_CURRENT_USER,strFullPath,strValue4Name,arrValue4
oReg.SetBinaryValue HKEY_CURRENT_USER,strFullPath,strValue5Name,arrValue5
Next
Replace the value of 00 after &H in arrValue1, arrValue2, arrValue3, arrValue4 and arrValue5 with your values by looking into the registry under mentioned reg keys.
11 comments:
I heard about problems with mails from my good friend,but after that I found in inet one tool and I remembered this tool can help to my friend-download pst repair,software has free status as far as I remember,it can as well extract data from corrupted files with *.pst or *.ost extension,will be prompted to choose a file to be repaired, it may be files in *.ost or *.pst format,tool will decrypt the input file and attempt to extract all data, that is located inside,extract data safely, even if your *.ost file is infected, however, antivirus software should be installed on your PC,save recovered data, first of all, you can convert it to a *.pst file, that can be opened by any email client, compatible with Microsoft Outlook,also extract a great number of files in *.eml,*.vcf and *.txt formats,may help us to improve these Microsoft Outlook pst repair tools.
When I edited my address book in outlook,computer accidentally went off and I lost my contacts.In three days I found tool for recover it,and it became-ost pst convert.Utility is free as wrote on site from I downloaded it.Besides that program convert all information from Microsoft Exchange (files with the .ost extension) into files of the Microsoft Outlook mail client (.pst files) - OstToPst procedure.
At solves problems in MS Outlook I usually use-outlook express troubleshooting address book.Because this tool helped me many times,it is reliable and can too quickly parse damaged files with wab extension.
Can anyone recommend the robust Script Deployment program for a small IT service company like mine? Does anyone use Kaseya.com or GFI.com? How do they compare to these guys I found recently: N-able N-central software remote access
? What is your best take in cost vs performance among those three? I need a good advice please... Thanks in advance!
Thanks , very helpful script .
I do not know what is those lines ;strComputer &"\roo\default:StdRegProv")strValue1Name = "00036601"arrValue1 =Array(&H00,&H00,&H00,&H00)strValue2Name = "00036623"arrValue2 =Array(&H00,&H00,&H00,&H00)strValue3Name = "00036627"
It is new to me, I do not understand, please help me!!!
Sounds very promising, thanks for your thoughts on the matter.
Ah, this is the script! Good guide!
It is possible that you face various sort of problems regarding view PST records but now it is not a new so big issue for anyone due to the fact everyone understands the software present in market. I use diskdoctors recovery software when ever i face any type of problem.Keep it up.
http://www.diskdoctors.com/data-recovery-los-angeles.asp
We are using an Exchange server in our organization and encountered problems with it. We asked our Exchange administrator to fix it but later got to know that the Exchange database had been corrupted. We looked for a free tool online that could immediately recover the mailboxes without much effort. After looking around, we came across the Exchange recovery EDB to PST tool from EdbMails. We first used the trial version and found EdbMails quite satisfactory for our requirements. Since we had a large number of mailboxes to recover, we purchased a license and guess what, EdbMails easily and quickly recovered all our mailboxes and we could directly migrate the contents to another Exchange server. The tool just saved our precious time and efforts and we are now relieved that all our data is safe. Kudos to the team for such a nice tool!
It was such amazing information you have shared. I appreciate your efforts to provide the practical evaluation. I hope it will inspire others just as me to understand the magnificent benefits of hiring mobile app automation testing experts to catalyze their growth.
Post a Comment