January 9, 2009 12:50am pst

11.21.2008 at 10:38AM PST, ID: 23926070

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

8.2

Script to Check if Registry Exists, if not then create keys.

Asked by Steven_Placencia in VB Script

Tags: Outlook, Profile Import

Ok so I'm new to VB Script and trying to make head way. Ive written / copied / pasted and edited many scripts and get the ides of vb script, just dont have the knowledge to produce what Im looking for.

I created a Custom MS Outlook Profile named Outlook_Profile.PRF. I did this so when users move around to different computers the Outlook will automatically setup with the server name, user name, and contacts list (People move around a lot!). Ive found the registry keys on where to tell outlook to import this file, but I need the script to first check and see if outlook is already setup, and if it is then to quit as no interaction is needed. And of course, if its not then to apply the import command into the registry. The code I have works, but then problem with having this code run every time a user logs onto a computer is that their signature defaults back to being blank and other odd issues.

We have Office 2002 and 2003. as the script runs now, it deletes the First-Run keys (so outlook knows to import a profile), and then creates the Setup key (so if its the first time a user has been on the computer, the script can later create the import value), and then creates the import values for outlook. Like I said this works, but I need it to run only once, so the first time a user logs onto the computer. The script is run with AD and logon scripts command.
Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:

           
           
             '================================
'SETS CURRENT USER SETTINGS
'================================
 
Const HKEY_CURRENT_USER = &H80000001
 
On Error Resume Next
 
strComputer = "."
 
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
 
 
 
 
 
 
'================================
'DELETES FIRST-RUN STRING VALUES
'================================
 
strKeyPath = "SOFTWARE\Microsoft\Office\11.0\Outlook\Setup"
 
strBINARYValueName = "First-Run"
strBINARYValueName2 = "FirstRun"
 
objRegistry.DeleteValue HKEY_CURRENT_USER,strKeyPath,strBINARYValueName
objRegistry.DeleteValue HKEY_CURRENT_USER,strKeyPath,strBINARYValueName2
 
 
 
strKeyPath = "SOFTWARE\Microsoft\Office\10.0\Outlook\Setup"
 
strBINARYValueName = "First-Run"
strBINARYValueName2 = "FirstRun"
 
objRegistry.DeleteValue HKEY_CURRENT_USER,strKeyPath,strBINARYValueName
objRegistry.DeleteValue HKEY_CURRENT_USER,strKeyPath,strBINARYValueName2
 
 
 
 
 
 
'================================
'CREATES OFFICE KEY VALUES
'================================
 
strKeyPath = "SOFTWARE\Microsoft\Office\11.0\Outlook\Setup"
objRegistry.CreateKey HKEY_CURRENT_USER,strKeyPath
 
 
 
strKeyPath = "SOFTWARE\Microsoft\Office\10.0\Outlook\Setup"
objRegistry.CreateKey HKEY_CURRENT_USER,strKeyPath
 
 
 
 
 
 
'================================
'CREATES IMPORT STRING
'================================
 
strKeyPath = "SOFTWARE\Microsoft\Office\11.0\Outlook\Setup"
strValueName = "ImportPRF"
sValue = "\\lmvnadc\Automated System Scripts\User\Files\Outlook_Profile.PRF"
 
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, sValue
 
 
 
strKeyPath = "SOFTWARE\Microsoft\Office\10.0\Outlook\Setup"
strValueName = "ImportPRF"
sValue = "\\lmvnadc\Automated System Scripts\User\Files\Outlook_Profile.PRF"
 
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, sValue

           
         

Keywords: Script to Check if Registry Exists, if n…

	Title
1	How to set Default Outlook Signature vi…
2	Outlook Express Signature
3	Outlook 2003 Signature
4	OUTLOOK SIGNATURE IMPLEMENTATION
5	Outlook signature
6	I need VBS script to add registry entrie…

Loading Advertisement...

20080716-EE-VQP-32 - Hierarchy / EE_QW_3_20080625

1. RobSamp... 28,500
2. Krys_K 10,500
3. robberbaron 5,000
3. Shift-3 5,000
5. BlueDevilF... 4,500
6. omgang 4,000
6. tegmine_it 4,000
6. tigermatt 4,000
6. dstewartjr 4,000
10. yehudaha 3,600
11. pratima_... 3,500
12. hielo 3,200
13. purplepo... 2,500
13. b0lsc0tt 2,500
15. cyberweb... 2,400
16. third 2,000
16. Dgleich 2,000
16. andywing... 2,000
16. gyuksel 2,000
16. lodar123 2,000
16. mark_wills 2,000
16. rorya 2,000
16. chandru_... 2,000
16. saoirse1... 2,000
16. zabu99 2,000
16. dmang 2,000

1. RobSamp... 2,586,971
2. sirbounty 636,951
3. purplepo... 379,563
4. Shift-3 355,055
5. rorya 316,426
6. zorvek 314,869
7. BlueDevilF... 230,060
8. merowinger 202,629
9. chandru_... 191,813
10. weellio 169,295
11. Chris-Dent 158,572
12. saurabh726 157,085
13. sungenw... 154,191
14. matthews... 147,514
15. GrahamSkan 135,358
16. chris_bot... 130,559
17. hielo 125,460
18. AmazingT... 115,450
19. robberbaron 114,681
20. jeverist 111,596
21. amit_g 110,710
22. brettdj 106,250
23. rejoinder 101,810
24. byundt 101,546
25. Idle_Mind 99,490

Script to Check if Registry Exists, if not then create keys.

Asked by Steven_Placencia in VB Script

Tags: Outlook, Profile Import

About this solution