You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Advanced Scripting » Full extended Outlook script..
Register User       Forum List       Calendar       FAQ
Page 1 of 1 1
Topic Options
#68954 - 2002-08-09 05:43 PM Full extended Outlook script..
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
This is the full extended version of the Outlook/Exchange profile generation script.

Still working on setting the default font.. {Now Works!}

Here goes..

code:
 
 BREAK ON
 CLS
 ; -- Outlook 98/2000/XP Configuration
 ; -- Kent Dyer
 ; -- Updated 19-August-2002
 ; -- Tested with Kixtart - 3.63, 4.10
 ; -- Test Environments - NT 4.0, W2k, WXP
 ; -- Used some ideas from MCA's KIXnnnUPDATE.EXE script
 ; -- Visit: http://home.wanadoo.nl/scripting/
 ; -- Originally created 15-August-2001
 ; -- http://kixtart.org/board/ultimatebb.php?ubb=get_topic;f=10;t=000021
 ; -- This completes the setup of Outlook
 ; -- Yes, you can use PROFGEN and FIXPRF, but these alone don't complete the setup
 ; -- They are, however necessary to complete this piece of the script
 ; -- Key points:
 ; -- * Changes the view to get rid of the Outlook Bar and show the "Explorer View"
 ; -- * Checks the box to empty deleted items on leaving Outlook
 ; -- * Also deletes bogus profiles like OEM User, etc.
 ; -- Changes Necessary:
 ; -- >>>> Company key needs to be changed to yours....
 ; -- Comments and feedback are welcome to - dyerkb@myrealbox.com
 ; -- 27-August-2001 - Fixed Registry Key problem, CHKEXCHG.EXE - Not required
 ; -- 17-February-2002 - Added in compatibility for Windows 9x
 ; -- 12-March-2002 - Added Ability to turn on/off empty deleted items on exit and removal of bogus profiles
 ; -- 18-July-2002 - Added in the ability to configure Outlook XP, updated Micrsoft Links
 ; -- 15-August-2002 - Fixed detection problem, 0 = EXISTKEY with an OR Statment bombs on 3.63
 ; -- 19-August-2002 - Increased testing with EXISTKEY and related changes
 ; --- ****  The following Resources were used in this composition ****
 ; -- http://www.microsoft.com/office/ork/2000/download/Outlook.prf - sample PRF file
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q182035 - Windows 95 roving users setup
 ; -- ftp://ftp.microsoft.com/bussys/exchange/exchange-unsup-ed/profgen.zip - Contains PROFGEN.EXE
 ; -- Automate Outlook Profile Creation Using PRFPATCH:
 ; -- http://www.microsoft.com/technet/archive/default.asp?url=/TechNet/archive/office/office97/deploy/prfpatch.asp
 ; -- http://www.microsoft.com/technet/downloads/exe/profile.exe - PRFPATCH.EXE, sample PRF File
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q145905 - NEWPROF command-line options
 ; -- http://www.microsoft.com/office/ork/appa/appa.htm - Microsoft Office 97 Resource Kit Tools and Utilities page
 ; -- http://www.microsoft.com/windows/zak/zakreqs.htm - Zero Administration Kit HomePage
 ; -- http://www.microsoft.com/ntworkstation/downloads/bin/zak/zak.exe - Download ZAK, Contains FIXPRF.EXE
 ; -- http://www.microsoft.com/office/ork/xp/journ/adminup.htm#Off2000
 ; --- ****  Outlook XP ****
 ; -- You can use GPO Editor for deployment of Outlook XP
 ; -- You should be able to issue the following command line: outlook.exe /importprf \\server1\share\outlook.prf
 ; -- Ref. http://www.microsoft.com/technet/treeview/default.asp?url=/TechNet/prodtechnol/office/officexp/reskit/officexp/part5/c18dpou.asp
 ; -- Look under: "Customizing an Outlook Installation"
 ; -- Outlook 2002 (Outlook XP) - http://www.slipstick.com/outlook/ol2002.htm
 ; -- D:\PFILES\COMMON\SYSTEM\MAPI\1033\95\NEWPROF.EXE - Office 2000 CD
 ; -- D:\PFILES\COMMON\SYSTEM\MAPI\1033\NT\NEWPROF.EXE - Office 2000 CD
 ; -- Windows 9x options:
 ; -- WINSET.EXE is available on Win9x CD-ROM
 ; -- PUTINENV.EXE is available from http://www.jsiinc.com/dl/putinenv.exe
 ; -- For use of WINSET/PUTINENV, you may want to refer to - http://www.jsiinc.com/subd/tip1700/rh1786.htm

 $profile_remove = "Yes" ; -- Profiles other than @USERID, like OEM User, MS Exchange Settings, etc. removed
 $deleteitems = "No" ; -- Do you want your users to delete all deleted items on Exit from Outlook?
 $explorview = "Yes" ; -- Do you want your users to view the "Explorer View" and not the Outlook bar in Outlook?

 IF (@inwin = 1) ; -- Is it Winnt or 2K?
       ; -- Windows NT Registry Locations
       $profilelocation = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
       $windir = READVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion","SystemRoot")
 ELSE
       ; -- Windows 9x Registry Locations
       $profilelocation = "HKEY_CURRENT_USER\Software\Microsoft\Windows Messaging Subsystem\Profiles"
       $windir = READVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion","SystemRoot")
 ENDIF

 $systemdrive = SUBSTR($windir,1,3) ; -- This will show C:\ or M:\ or what drive windows is installed on

 ; -- 19-August-2002 - Fixed detection problem, 0 = EXISTKEY with an OR Statment bombs on 3.63
 $ppru = $profilelocation+"\"+@userid
 ;IF (ExistKey($ppru) = 0) OR (ExistKey($pprf) = 0)
 IF (ExistKey($ppru) = 0)
       RETURN ; -- Profile exists and return
 ELSE
       $exe = ReadValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE","")
       $ver = GetFileVersion($exe)  ; -- Get version of executable for MS-Outlook
       $pos_locat = INSTR($ver, ".") - 1 ; - Look for where the dot is

       $verchk = SubStr ($ver,1,$pos_locat)

       IF 1 <> EXIST($windir+"\Outlook.PRF")
             COPY @ldrive+"PROFGEN\RBMG\Outlook2000\Outlook.PRF" $windir
       ENDIF
       IF 1 <> EXIST ($windir+"\Profgen.exe")
             COPY @ldrive+"PROFGEN\RBMG\Outlook2000\Profgen.exe" $windir
       ENDIF
       IF 1 <> EXIST ($windir+"\NEWPROF.EXE")
             COPY @ldrive+"PROFGEN\RBMG\Outlook2000\NEWPROF.EXE" $windir
       ENDIF
       IF EXIST ($windir+"\FixPrf.EXE")
             DEL $windir+"\FixPrf.EXE"
       ENDIF
       IF EXIST($systemdrive+"PROFGEN.exe")
             DEL $systemdrive+"PROFGEN.EXE"
       ENDIF
       IF EXIST($systemdrive+"NEWPROF.EXE")
             DEL $systemdrive+"NEWPROF.EXE"
       ENDIF

       SELECT
       CASE
             $verchk = "8" ; -- If it is Outlook 98, configure the following keys and values (e.g. 8.5.5104.0)
             IF $profile_remove = "YES"   ; -- If it does not exist, delete out any odd-ball Profiles
                   $index = 0
:loop3
                   $keyname = ENUMKEY($profilelocation, $index)
                   IF @error = 0
                         ;? "Name found: $KeyName" ; -- Uncomment for debugging
                         IF $keyname <> @userid OR $keyname <> "Sales" ; -- Going to check for @userid
                               $rc = DELTREE($profilelocation+"\"+$keyname)
                               ;$RC = DELKEY($ProfileLocation, $KeyName)
                               $index = $index + 1
                               GOTO Loop3
                         ENDIF
                   ENDIF
             ENDIF
             ;$returncode= EXISTKEY($pprofilelocation) OR EXISTKEY($pprofilelocationf)
             $returncode= EXISTKEY($ppru)
             IF $returncode <> 0
                   ; -- If you use RUN instead of SHELL, the script will pause and not complete properly
                   SHELL "%COMSPEC% /C "+$windir+"\Profgen.exe "+$windir+"\NEWPROF.EXE -P "+$windir+"\Outlook.PRF"
                   SLEEP 1
                   $rc = writevalue($profilelocation, "DefaultProfile", @userid, "REG_SZ")
             ENDIF
             RETURN
       CASE
             $verchk = "9" ; -- If it is Outlook 2000, configure the following keys and values (e.g. 9.0.0.2416)
             IF $profile_remove = "YES"  ; -- If it does not exist, delete out any odd-ball Profiles
                   $index = 0
:loop4
                   $keyname = ENUMKEY($profilelocation, $index)
                   IF @error = 0
                         ;? "Name found: $KeyName" ; -- Uncomment for debugging
                         IF $keyname <> @userid OR $keyname <> "Sales" ; -- Going to check for @userid
                               $rc = DELTREE($profilelocation+"\"+$keyname)
                               ;$RC = DELKEY($ProfileLocation, $KeyName)
                               $index = $index + 1
                               GOTO Loop4
                         ENDIF
                   ENDIF
             ENDIF
             ; -- Generate the Inbox
             ; -- Make sure you use PUTINENV.EXE and WINSET.EXE with 9x machines - We need to have the %USERNAME% available

             ; -- If you use RUN instead of SHELL, the script will pause and not complete properly
             SHELL "%COMSPEC% /C "+$windir+"\Profgen.exe "+$windir+"\NEWPROF.EXE -P "+$windir+"\Outlook.PRF"

             ; -- Had to add a small pause
             SLEEP 1
             $rc = writevalue($profilelocation, "DefaultProfile", @userid, "REG_SZ")

             ; -- Check for the Default profile, if it does not exist, create it
             IF @userid <> READVALUE( $profilelocation, "DefaultProfile" )
                   $rc = WRITEVALUE ($profilelocation, "DefaultProfile", @userid, "REG_SZ")
             ENDIF

             ; -- Check the box to empty deleted items on leaving Outlook - Now the we have the Outlook Profile Generated
             IF $deleteitems = "Yes"
                   IF "0100" <> READVALUE($ppru+"\0a0d020000000000c000000000000046","000b0115")
                         $rc = WRITEVALUE($ppru+"\0a0d020000000000c000000000000046","000b0115","0100","REG_BINARY")
                   ENDIF
             ENDIF

             ; -- Changes the view to get rid of the Outlook Bar and show the "Explorer View"
             IF $explorview = "Yes"

                   ; -- CHECK FOR KEYS AND IF NEED BE, ADD THEM
                   ; --- Check for the right keys
                   IF 0 <> EXISTKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0")
                         $rc = ADDKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0")
                         $rc = ADDKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Common")
                         $rc = ADDKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Common")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common")
                         $rc = ADDKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Preferences")
                         $rc = ADDKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Preferences")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\UserInfo")
                         $rc = ADDKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\UserInfo")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook")
                         $rc = ADDKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Options")
                         $rc = ADDKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Options")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Options\Mail")
                         $rc = ADDKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Options\Mail")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook\Setup")
                         $rc = ADDKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook\Setup")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Office Explorer")
                         $rc = ADDKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Office Explorer")
                   ENDIF

                   ; -- Company
                   $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\UserInfo","Company","0000000000000000000000000000000000000000000000000000000000000000000000000","REG_BINARY")
                   ; -- Set the Machine Name
                   IF @wksta <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook","Machine Name")
                         $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook","Machine Name",@wksta,"REG_SZ")
                   ENDIF
                   ; -- Check Internet E-Mail Accounts
                   IF 1 <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook","CheckInternetAccounts")
                         $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook","CheckInternetAccounts","1","REG_DWORD")
                   ENDIF
                   ; -- Has Outlook been Setup?
                   IF "False" <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook","FirstRunDialog")
                         $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook","FirstRunDialog","False","REG_SZ")
                   ENDIF
                   ; -- Primary Client?
                   IF 1 <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Setup","PrimaryClient")
                         $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Setup","PrimaryClient","1","REG_DWORD")
                   ENDIF
                   ; -- Corporate or POP3? - Needs to be a machine setting
                   IF 1 <> READVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook\Setup","MailSupport")
                         $rc = WRITEVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook\Setup","MailSupport","1","REG_DWORD")
                   ENDIF
                   ; -- Corporate or POP3? - Needs to be a machine setting
                   IF 1 <> READVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook\Setup","First-Run")
                         $rc = WRITEVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook\Setup","First-Run","df83b12adc9cd511b57c0002a57ce19c","REG_BINARY")
                   ENDIF

                   ; -- Set the default mail preference as Rich Text format 1996609 is Word, 199610 Rich Text Format
                   IF "196610" <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Options\Mail","EditorPreference")
                         $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Options\Mail","EditorPreference","196610","REG_DWORD")
                   ENDIF

                   $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\"+@userid+"\0a0d020000000000c000000000000046","001e0360","","REG_SZ")

                   ; -- Changes the view to get rid of the Outlook Bar and show the "Explorer View"
                   $expview = "010000002c0000000200000003000000ffffffffffffffffffffffffffffffff62000000270000003"
                   $expview = $expview + "c030000ac02000001000000000000000100000000000000c00000006400000003000000"
                   $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Office Explorer","Frame",$expview,"REG_BINARY")

                   ; -- Set the default Font to be Verdana 10 pt
                   $pltextfont = "3c0000000f0000e800000040c80000000600000000000000002056657264616e6100020000000000000000"
                   $pltextfont = $pltextfont + "0000000000201a493a38e9070001000000"
                   $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Preferences","PlainTextFont",$pltextfont,"REG_BINARY")
             ENDIF
             RETURN
       CASE
             $verchk = "10" ; -- If it is Outlook XP, configure the following keys and values
             ; -- No extra EXEs or files other than the PRF needed for Outlook XP
             $winntfile = $windir+"\Outlook.PRF"

             ; -- This is discussed at: http://www.slipstick.com/outlook/ol2002/prftips.htm
             IF "NO" <> READPROFILESTRING($winntfile,"General","BackupProfile")
                   $rc = WRITEPROFILESTRING($winntfile,"General","BackupProfile","NO")
             ENDIF

             ; -- This is discussed at the bottom of - http://www.microsoft.com/office/ork/xp/four/outc03.htm
             $rc=WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Setup","ImportPRF",$winntfile,"REG_SZ")

             ; -- Change the PRF file from %username% to @userid
             IF @userid <> READPROFILESTRING($winntfile,"General","ProfileName")
                   $rc = WRITEPROFILESTRING($winntfile,"General","ProfileName",@userid)
             ENDIF

             RUN $exe+" /importprf "+$winntfile ; -- Import the profile for outlook

             SLEEP 1

             ; -- Set the default mail preference as Rich Text format 1996609 is Word, 199610 Rich Text Format
             IF "196610" <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Options\Mail","EditorPreference")
                   $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Options\Mail","EditorPreference","196610","REG_DWORD")
             ENDIF

             ; -- Set the default Font to be Verdana 10 pt
             $pltextfont = "3c0000000f0000e800000040c80000000600000000000000002056657264616e6100020000000000000000"
             $pltextfont = $pltextfont + "0000000000201a493a38e9070001000000"
             $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Preferences","TextFontSimple",$pltextfont,"REG_BINARY")


             ; -- Changes the view to get rid of the Outlook Bar and show the "Explorer View"
             IF $explorview = "Yes"
                   $expview = "010000002c0000000200000003000000ffffffffffffffffffffffffffffffff2c0000002c00000084"
                   $expview = $expview + "020000dc01000001000000000000000100000000000000c0000000640000001800000003000000"
                   $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Office Explorer","Frame",$expview,"REG_BINARY")
             ENDIF

             ; -- Check the box to empty deleted items on leaving Outlook - Now the we have the Outlook Profile Generated
             IF $deleteitems = "Yes"
                   IF "1" <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Preferences","EmptyTrash")
                         $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Preferences","EmptyTrash","1","REG_DWORD")
                   ENDIF
             ENDIF

             RETURN
       ENDSELECT
 ENDIF
"Simplified" Version
code:
 BREAK ON
 CLS
 $profile_remove = "Yes" ; -- Profiles other than @USERID, like OEM User, MS Exchange Settings, etc. removed
 $deleteitems = "Yes" ; -- Do you want your users to delete all deleted items on Exit from Outlook?

 IF (@inwin = 1) ; -- Is it Winnt or 2K?
       ; -- Windows NT Registry Locations
       $profilelocation = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
       $windir = READVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion","SystemRoot")
 ELSE
       ; -- Windows 9x Registry Locations
       $profilelocation = "HKEY_CURRENT_USER\Software\Microsoft\Windows Messaging Subsystem\Profiles"
       $windir = READVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion","SystemRoot")
 ENDIF

 $systemdrive = SUBSTR($windir,1,3) ; -- This will show C:\ or M:\ or what drive windows is installed on

 ; -- 19-August-2002 - Fixed detection problem, 0 = EXISTKEY with an OR Statment bombs on 3.63
 ;IF 0 = EXISTKEY($pprofilelocation) OR 0 = EXISTKEY($pprofilelocationf)
 $ppru = $profilelocation+"\"+@userid
 ;$pprf = $profilelocation+"\"+@fullname
 ;IF (ExistKey($ppru) = 0) OR (ExistKey($pprf) = 0)
 IF (ExistKey($ppru) = 0)
       RETURN ; -- Profile exists and return
 ELSE
       $exe = ReadValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE","")
       $ver = GetFileVersion($exe)  ; -- Get version of executable for MS-Outlook
       $pos_locat = INSTR($ver, ".") - 1 ; - Look for where the dot is

       $verchk = SubStr ($ver,1,$pos_locat)

       IF 1 <> EXIST($windir+"\Outlook.PRF")
             COPY @ldrive+"PROFGEN\RBMG\Outlook2000\Outlook.PRF" $windir
       ENDIF
       IF 1 <> EXIST ($windir+"\Profgen.exe")
             COPY @ldrive+"PROFGEN\RBMG\Outlook2000\Profgen.exe" $windir
       ENDIF
       IF 1 <> EXIST ($windir+"\NEWPROF.EXE")
             COPY @ldrive+"PROFGEN\RBMG\Outlook2000\NEWPROF.EXE" $windir
       ENDIF
       IF EXIST ($windir+"\FixPrf.EXE")
             DEL $windir+"\FixPrf.EXE"
       ENDIF
       IF EXIST($systemdrive+"PROFGEN.exe")
             DEL $systemdrive+"PROFGEN.EXE"
       ENDIF
       IF EXIST($systemdrive+"NEWPROF.EXE")
             DEL $systemdrive+"NEWPROF.EXE"
       ENDIF

       SELECT
       CASE
             $verchk = "8" ; -- If it is Outlook 98, configure the following keys and values (e.g. 8.5.5104.0)
             IF $profile_remove = "YES"   ; -- If it does not exist, delete out any odd-ball Profiles
                   $index = 0
:loop3
                   $keyname = ENUMKEY($profilelocation, $index)
                   IF @error = 0
                         ;? "Name found: $KeyName" ; -- Uncomment for debugging
                         IF $keyname <> @userid OR $keyname <> "Sales" ; -- Going to check for @userid
                               $rc = DELTREE($profilelocation+"\"+$keyname)
                               ;$RC = DELKEY($ProfileLocation, $KeyName)
                               $index = $index + 1
                               GOTO Loop3
                         ENDIF
                   ENDIF
             ENDIF
             ;$returncode= EXISTKEY($pprofilelocation) OR EXISTKEY($pprofilelocationf)
             $returncode= EXISTKEY($ppru)
             IF $returncode <> 0
                   ; -- If you use RUN instead of SHELL, the script will pause and not complete properly
                   SHELL "%COMSPEC% /C "+$windir+"\Profgen.exe "+$windir+"\NEWPROF.EXE -P "+$windir+"\Outlook.PRF"
                   SLEEP 1
                   $rc = writevalue($profilelocation, "DefaultProfile", @userid, "REG_SZ")
             ENDIF
             RETURN
       CASE
             $verchk = "9" ; -- If it is Outlook 2000, configure the following keys and values (e.g. 9.0.0.2416)
             IF $profile_remove = "YES"  ; -- If it does not exist, delete out any odd-ball Profiles
                   $index = 0
:loop4
                   $keyname = ENUMKEY($profilelocation, $index)
                   IF @error = 0
                         ;? "Name found: $KeyName" ; -- Uncomment for debugging
                         IF $keyname <> @userid OR $keyname <> "Sales" ; -- Going to check for @userid
                               $rc = DELTREE($profilelocation+"\"+$keyname)
                               ;$RC = DELKEY($ProfileLocation, $KeyName)
                               $index = $index + 1
                               GOTO Loop4
                         ENDIF
                   ENDIF
             ENDIF
             ; -- Generate the Inbox
             ; -- Make sure you use PUTINENV.EXE and WINSET.EXE with 9x machines - We need to have the %USERNAME% available

             ; -- If you use RUN instead of SHELL, the script will pause and not complete properly
             SHELL "%COMSPEC% /C "+$windir+"\Profgen.exe "+$windir+"\NEWPROF.EXE -P "+$windir+"\Outlook.PRF"

             ; -- Had to add a small pause
             SLEEP 1
             $rc = writevalue($profilelocation, "DefaultProfile", @userid, "REG_SZ")

             ; -- Check for the Default profile, if it does not exist, create it
             IF @userid <> READVALUE( $profilelocation, "DefaultProfile" )
                   $rc = WRITEVALUE ($profilelocation, "DefaultProfile", @userid, "REG_SZ")
             ENDIF

             ; -- Check the box to empty deleted items on leaving Outlook - Now the we have the Outlook Profile Generated
             IF $deleteitems = "Yes"
                   IF "0100" <> READVALUE($ppru+"\0a0d020000000000c000000000000046","000b0115")
                         $rc = WRITEVALUE($ppru+"\0a0d020000000000c000000000000046","000b0115","0100","REG_BINARY")
                   ENDIF
             ENDIF
             RETURN
       CASE
             $verchk = "10" ; -- If it is Outlook XP, configure the following keys and values
             ; -- No extra EXEs or files other than the PRF needed for Outlook XP
             $winntfile = $windir+"\Outlook.PRF"

             ; -- This is discussed at: http://www.slipstick.com/outlook/ol2002/prftips.htm
             IF "NO" <> READPROFILESTRING($winntfile,"General","BackupProfile")
                   $rc = WRITEPROFILESTRING($winntfile,"General","BackupProfile","NO")
             ENDIF

             ; -- This is discussed at the bottom of - http://www.microsoft.com/office/ork/xp/four/outc03.htm
             $rc=WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Setup","ImportPRF",$winntfile,"REG_SZ")

             ; -- Change the PRF file from %username% to @userid
             IF @userid <> READPROFILESTRING($winntfile,"General","ProfileName")
                   $rc = WRITEPROFILESTRING($winntfile,"General","ProfileName",@userid)
             ENDIF

             RUN $exe+" /importprf "+$winntfile ; -- Import the profile for outlook

             ; -- Check the box to empty deleted items on leaving Outlook - Now the we have the Outlook Profile Generated
             IF $deleteitems = "Yes"
                   IF "1" <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Preferences","EmptyTrash")
                         $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Preferences","EmptyTrash","1","REG_DWORD")
                   ENDIF
             ENDIF

             RETURN
       ENDSELECT
 ENDIF
Thanks,

Kent

[ 19. August 2002, 19:56: Message edited by: kdyer ]
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#68955 - 2002-08-13 10:39 AM Re: Full extended Outlook script..
masken Offline
MM club member
*****

Registered: 2000-11-27
Posts: 1222
Loc: Gothenburg, Sweden
Nice one kent [Smile] Might come handy [Wink]
_________________________
The tart is out there

Top
#68956 - 2002-08-17 09:52 AM Re: Full extended Outlook script..
LASAD Offline
Getting the hang of it

Registered: 2001-10-02
Posts: 60
Kent,

Is there a way to create outlook profiles on remote PCs (being a member of the Domain admin group)?.

I did setup outlook profile generation for all users during logon, however, sometimes I get a request to create a second profile on some PCs to allow secretaries to access the manager's e-mail, and I would have to do it manually on the PC. So I was thinking if I could have a way to create any user profile remotely.

Thanks

SAM
Top
#68957 - 2002-08-17 10:40 PM Re: Full extended Outlook script..
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11165
Loc: Boston, MA, USA
You don't need a second profile for this. Just have the manager give the secretary limited access to their email and the secretary can then open the manager's email from within their own Outlook profile. It's under 'File - Folder - Other User's Folder'.
_________________________
There are two types of vessels, submarines and targets.

Top
#68958 - 2002-08-18 08:14 AM Re: Full extended Outlook script..
LASAD Offline
Getting the hang of it

Registered: 2001-10-02
Posts: 60
Jens,

I forgot to say that we are not using Exchange, we are still stuck with Ms Mail 3.5 and outlook 2000 as clients. Any takers?.

Sam
Top
#68959 - 2002-08-19 07:45 AM Re: Full extended Outlook script..
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Sorry I just came back. Was on a two-day holiday. Have not played around with MS-Mail. I have also done quite a bit of debugging to get this working with Kixtart 3.63 as well as Kixtart 4.10. I will be posting the updated version tomorrow.

Thanks,

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#68960 - 2002-08-19 07:53 PM Re: Full extended Outlook script..
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Updated script to address issues seen with different versions of Kixtart as well as versions of Windows. Did not get a chance to test with Windows 9x, but did test on NT 4.0, W2k, and WXP.

Cheers!

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#68961 - 2002-08-19 11:20 PM Re: Full extended Outlook script..
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
FAQ has been updated too:

http://kixtart.org/board/ultimatebb.php?ubb=get_topic;f=10;t=000019

Kent

[ 20. August 2002, 07:51: Message edited by: kdyer ]
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#68962 - 2002-08-20 02:22 PM Re: Full extended Outlook script..
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
I would be grateful for any and all feedback on this script too.

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#68963 - 2002-08-27 04:07 PM Re: Full extended Outlook script..
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
There was a posting to look for the @fullname in the Outlook Profile. This should address this request.

code:
 BREAK ON
 CLS

 $profile_remove = "Yes" ; -- Profiles other than @USERID, like OEM User, MS Exchange Settings, etc. removed
 $deleteitems = "No" ; -- Do you want your users to delete all deleted items on Exit from Outlook?
 $explorview = "Yes" ; -- Do you want your users to view the "Explorer View" and not the Outlook bar in Outlook?
 $fullname = "No" ; -- Option for @fullname rather than @userid

 IF (@inwin = 1) ; -- Is it Winnt or 2K?
       ; -- Windows NT Registry Locations
       $profilelocation = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
       $windir = READVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion","SystemRoot")
 ELSE
       ; -- Windows 9x Registry Locations
       $profilelocation = "HKEY_CURRENT_USER\Software\Microsoft\Windows Messaging Subsystem\Profiles"
       $windir = READVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion","SystemRoot")
 ENDIF

 $systemdrive = SUBSTR($windir,1,3) ; -- This will show C:\ or M:\ or what drive windows is installed on

 ; -- 19-August-2002 - Fixed detection problem, 0 = EXISTKEY with an OR Statment bombs on 3.63
 $ppru = $profilelocation+"\"+@userid
 $pprf = $profilelocation+"\"+@fullname
 IF (ExistKey($ppru) = 0) OR (ExistKey($pprf) = 0)
 ;IF (ExistKey($ppru) = 0)
       RETURN ; -- Profile exists and return
 ELSE
       $exe = ReadValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE","")
       $ver = GetFileVersion($exe)  ; -- Get version of executable for MS-Outlook
       $pos_locat = INSTR($ver, ".") - 1 ; - Look for where the dot is

       $verchk = SubStr ($ver,1,$pos_locat)

       IF 1 <> EXIST($windir+"\Outlook.PRF")
             COPY @ldrive+"PROFGEN\RBMG\Outlook2000\Outlook.PRF" $windir
       ENDIF
       IF 1 <> EXIST ($windir+"\Profgen.exe")
             COPY @ldrive+"PROFGEN\RBMG\Outlook2000\Profgen.exe" $windir
       ENDIF
       IF 1 <> EXIST ($windir+"\NEWPROF.EXE")
             COPY @ldrive+"PROFGEN\RBMG\Outlook2000\NEWPROF.EXE" $windir
       ENDIF
       IF EXIST ($windir+"\FixPrf.EXE")
             DEL $windir+"\FixPrf.EXE"
       ENDIF
       IF EXIST($systemdrive+"PROFGEN.exe")
             DEL $systemdrive+"PROFGEN.EXE"
       ENDIF
       IF EXIST($systemdrive+"NEWPROF.EXE")
             DEL $systemdrive+"NEWPROF.EXE"
       ENDIF

       ; -- Set profile to be userid or fullname
       IF $fullname = "Yes"
             $rc = WRITEPROFILESTRING($windir+"\Outlook.PRF","General","ProfileName",@fullname)
       ELSE
             $rc = WRITEPROFILESTRING($windir+"\Outlook.PRF","General","ProfileName",@userid)
       ENDIF

       SELECT
       ; -- Outlook 98
       CASE
             $verchk = "8" ; -- If it is Outlook 98, configure the following keys and values (e.g. 8.5.5104.0)
             IF $profile_remove = "YES"   ; -- If it does not exist, delete out any odd-ball Profiles
                   $index = 0
:loop3
                   $keyname = ENUMKEY($profilelocation, $index)
                   IF @error = 0
                         ;? "Name found: $KeyName" ; -- Uncomment for debugging
                         IF $keyname <> @userid OR $keyname <> @fullname ; -- Going to check for @userid
                               $rc = DELTREE($profilelocation+"\"+$keyname)
                               ;$RC = DELKEY($ProfileLocation, $KeyName)
                               $index = $index + 1
                               GOTO Loop3
                         ENDIF
                   ENDIF
             ENDIF

             ;$returncode= EXISTKEY($pprofilelocation) OR EXISTKEY($pprofilelocationf)
             $returncode= EXISTKEY($ppru)
             IF $returncode <> 0
                   ; -- If you use RUN instead of SHELL, the script will pause and not complete properly
                   SHELL "%COMSPEC% /C "+$windir+"\Profgen.exe "+$windir+"\NEWPROF.EXE -P "+$windir+"\Outlook.PRF"
                   SLEEP 1
                   $rc = writevalue($profilelocation, "DefaultProfile", @userid, "REG_SZ")
             ENDIF
             RETURN
       ; -- Outlook 2000
       CASE
             $verchk = "9" ; -- If it is Outlook 2000, configure the following keys and values (e.g. 9.0.0.2416)
             IF $profile_remove = "YES"  ; -- If it does not exist, delete out any odd-ball Profiles
                   $index = 0
:loop4
                   $keyname = ENUMKEY($profilelocation, $index)
                   IF @error = 0
                         ;? "Name found: $KeyName" ; -- Uncomment for debugging
                         IF $keyname <> @userid OR $keyname <> @fullname ; -- Going to check for @userid
                               $rc = DELTREE($profilelocation+"\"+$keyname)
                               ;$RC = DELKEY($ProfileLocation, $KeyName)
                               $index = $index + 1
                               GOTO Loop4
                         ENDIF
                   ENDIF
             ENDIF

             ; -- Generate the Inbox
             ; -- Make sure you use PUTINENV.EXE and WINSET.EXE with 9x machines - We need to have the %USERNAME% available

             ; -- If you use RUN instead of SHELL, the script will pause and not complete properly
             SHELL "%COMSPEC% /C "+$windir+"\Profgen.exe "+$windir+"\NEWPROF.EXE -P "+$windir+"\Outlook.PRF"

             ; -- Had to add a small pause
             SLEEP 1
             $rc = writevalue($profilelocation, "DefaultProfile", @userid, "REG_SZ")

             ; -- Check for the Default profile, if it does not exist, create it
             IF @userid <> READVALUE( $profilelocation, "DefaultProfile" )
                   $rc = WRITEVALUE ($profilelocation, "DefaultProfile", @userid, "REG_SZ")
             ENDIF

             ; -- Check the box to empty deleted items on leaving Outlook - Now the we have the Outlook Profile Generated
             IF $deleteitems = "Yes"
                   IF "0100" <> READVALUE($ppru+"\0a0d020000000000c000000000000046","000b0115")
                         $rc = WRITEVALUE($ppru+"\0a0d020000000000c000000000000046","000b0115","0100","REG_BINARY")
                   ENDIF
             ENDIF

             ; -- Changes the view to get rid of the Outlook Bar and show the "Explorer View"
             IF $explorview = "Yes"

                   ; -- CHECK FOR KEYS AND IF NEED BE, ADD THEM
                   ; --- Check for the right keys
                   IF 0 <> EXISTKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0")
                         $rc = ADDKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0")
                         $rc = ADDKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Common")
                         $rc = ADDKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Common")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common")
                         $rc = ADDKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Preferences")
                         $rc = ADDKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Preferences")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\UserInfo")
                         $rc = ADDKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\UserInfo")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook")
                         $rc = ADDKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Options")
                         $rc = ADDKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Options")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Options\Mail")
                         $rc = ADDKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Options\Mail")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook\Setup")
                         $rc = ADDKEY("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook\Setup")
                   ENDIF
                   IF 0 <> EXISTKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Office Explorer")
                         $rc = ADDKEY("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Office Explorer")
                   ENDIF

                   ; -- Company
                   $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\UserInfo","Company","4d00650072006900740061006700650020004d006f007200740067006100670065000000","REG_BINARY")
                   ; -- Set the Machine Name
                   IF @wksta <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook","Machine Name")
                         $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook","Machine Name",@wksta,"REG_SZ")
                   ENDIF
                   ; -- Check Internet E-Mail Accounts
                   IF 1 <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook","CheckInternetAccounts")
                         $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook","CheckInternetAccounts","1","REG_DWORD")
                   ENDIF
                   ; -- Has Outlook been Setup?
                   IF "False" <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook","FirstRunDialog")
                         $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook","FirstRunDialog","False","REG_SZ")
                   ENDIF
                   ; -- Primary Client?
                   IF 1 <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Setup","PrimaryClient")
                         $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Setup","PrimaryClient","1","REG_DWORD")
                   ENDIF
                   ; -- Corporate or POP3? - Needs to be a machine setting
                   IF 1 <> READVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook\Setup","MailSupport")
                         $rc = WRITEVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook\Setup","MailSupport","1","REG_DWORD")
                   ENDIF
                   ; -- Corporate or POP3? - Needs to be a machine setting
                   IF 1 <> READVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook\Setup","First-Run")
                         $rc = WRITEVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Outlook\Setup","First-Run","df83b12adc9cd511b57c0002a57ce19c","REG_BINARY")
                   ENDIF

                   ; -- Set the default mail preference as Rich Text format 1996609 is Word, 199610 Rich Text Format
                   IF "196610" <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Options\Mail","EditorPreference")
                         $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Options\Mail","EditorPreference","196610","REG_DWORD")
                   ENDIF

                   $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\"+@userid+"\0a0d020000000000c000000000000046","001e0360","","REG_SZ")

                   ; -- Changes the view to get rid of the Outlook Bar and show the "Explorer View"
                   $expview = "010000002c0000000200000003000000ffffffffffffffffffffffffffffffff62000000270000003"
                   $expview = $expview + "c030000ac02000001000000000000000100000000000000c00000006400000003000000"
                   $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Office Explorer","Frame",$expview,"REG_BINARY")

                   ; -- Set the default Font to be Verdana 10 pt
                   $pltextfont = "3c0000000f0000e800000040c80000000600000000000000002056657264616e6100020000000000000000"
                   $pltextfont = $pltextfont + "0000000000201a493a38e9070001000000"
                   $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Preferences","PlainTextFont",$pltextfont,"REG_BINARY")
             ENDIF
             RETURN
       ; -- Outlook XP
       CASE
             $verchk = "10" ; -- If it is Outlook XP, configure the following keys and values
             ; -- No extra EXEs or files other than the PRF needed for Outlook XP
             $winntfile = $windir+"\Outlook.PRF"

             ; -- This is discussed at: http://www.slipstick.com/outlook/ol2002/prftips.htm
             IF "NO" <> READPROFILESTRING($winntfile,"General","BackupProfile")
                   $rc = WRITEPROFILESTRING($winntfile,"General","BackupProfile","NO")
             ENDIF

             ; -- This is discussed at the bottom of - http://www.microsoft.com/office/ork/xp/four/outc03.htm
             $rc=WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Setup","ImportPRF",$winntfile,"REG_SZ")

             ; -- Change the PRF file from %username% to @userid
             ;IF @userid <> READPROFILESTRING($winntfile,"General","ProfileName")
             ;      $rc = WRITEPROFILESTRING($winntfile,"General","ProfileName",@userid)
             ;ENDIF

             RUN $exe+" /importprf "+$winntfile ; -- Import the profile for outlook

             SLEEP 1

             ; -- Set the default mail preference as Rich Text format 1996609 is Word, 199610 Rich Text Format
             IF "196610" <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Options\Mail","EditorPreference")
                   $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Options\Mail","EditorPreference","196610","REG_DWORD")
             ENDIF

             ; -- Set the default Font to be Verdana 10 pt
             $pltextfont = "3c0000000f0000e800000040c80000000600000000000000002056657264616e6100020000000000000000"
             $pltextfont = $pltextfont + "0000000000201a493a38e9070001000000"
             $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Preferences","TextFontSimple",$pltextfont,"REG_BINARY")


             ; -- Changes the view to get rid of the Outlook Bar and show the "Explorer View"
             IF $explorview = "Yes"
                   $expview = "010000002c0000000200000003000000ffffffffffffffffffffffffffffffff2c0000002c00000084"
                   $expview = $expview + "020000dc01000001000000000000000100000000000000c0000000640000001800000003000000"
                   $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Office Explorer","Frame",$expview,"REG_BINARY")
             ENDIF

             ; -- Check the box to empty deleted items on leaving Outlook - Now the we have the Outlook Profile Generated
             IF $deleteitems = "Yes"
                   IF "1" <> READVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Preferences","EmptyTrash")
                         $rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Preferences","EmptyTrash","1","REG_DWORD")
                   ENDIF
             ENDIF

             RETURN
       ENDSELECT
 ENDIF
Cheers!

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#68964 - 2002-08-28 02:09 PM Re: Full extended Outlook script..
Erwin Drager Offline
Fresh Scripter

Registered: 2002-08-19
Posts: 6
Is there already a faq of some sorts for the above exchange profile script? I'm new at kixtart and cannot completely follow what the script does, and more importantly, which files it needs and in which location.

Regards,

Erwin
Top
#68965 - 2002-08-28 02:16 PM Re: Full extended Outlook script..
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Erwin,

Yes.. There is a FAQ that addresses this - Exchange/Oulook Configuration.

In the original script, I added in a README for this. However, there is a lot of detail and broke this apart.

HTH,

Kent

[ 28. August 2002, 14:17: Message edited by: kdyer ]
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#68966 - 2002-08-29 09:24 AM Re: Full extended Outlook script..
Erwin Drager Offline
Fresh Scripter

Registered: 2002-08-19
Posts: 6
Thanks, I have the script working now.
Great script btw!

There is one problem with deploying profiles with this script; some of our users have an extra shared mailbox in their outlook profile, (added to the profile in tools, services, exchange, advanced, etc.) and some users have a personal folder which is located on the network in their homedir.

Is it possible to define the extra mailbox in the outlook.prf? If not does anyone have a possible workaround for this and the personal folders issue?
Top
#68967 - 2002-08-29 02:50 PM Re: Full extended Outlook script..
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Erwin,

I have played with that. However, it appears to be done on a Random Seed (meaning the keys change each time you add in a mailbox).

What I wound up doing is building an AUTOIT http://www.hiddensoft.com/autoit script to do this. Essentially, it opens Outlook and does the keystrokes to add in the additional mailboxes and then closes Outlook. I know you could use SETFOCUS/SENDKEYS to do this all in Kix.

Thanks for the feedback.

Kent

[ 29. August 2002, 14:52: Message edited by: kdyer ]
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#68968 - 2002-09-18 01:37 AM Re: Full extended Outlook script..
Blitzme Offline
Lurker

Registered: 2002-09-15
Posts: 2
Is there a way not to have outlook launch if the outlook profile has been created for the current user?. I undrestand that a new user needs to be configured during the initial logon but is this always necessary?

Thanks for any Ideas.
Top
#68969 - 2002-09-19 01:11 AM Re: Full extended Outlook script..
Blitzme Offline
Lurker

Registered: 2002-09-15
Posts: 2
Thanks I figured it out.
Top
#68970 - 2002-09-21 08:20 AM Re: Full extended Outlook script..
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Blitzme,

Can you share what you did?

Thanks!

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#68971 - 2002-09-21 08:26 AM Re: Full extended Outlook script..
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11634
Loc: Space
Hey Kent,

How about some type of backup routine as well?

Here is an idea for doing such with the Command Line Add-on for WinZip.

Adding the ability to grab the location or other items would be nice as well.

WinZip Home Page

Command Line Tool for WinZip

code:
Break On
$Files='"C:\Documents and Settings\Administrator\Local Settings\Application Data\Identities\{911A4FD9-6787-449B-979A-E2D63B09FD8A}\Microsoft\Outlook Express\*.*"'
$BakOutlook='C:\PROGRA~1\WinZip\WZZIP.EXE -ex -o -r -P "c:\Backup\OutLookExpress\{911A4FD9-6787-449B-979A-E2D63B09FD8A}.zip" $Files'
shell $BakOutlook
Top
#68972 - 2002-09-21 08:33 AM Re: Full extended Outlook script..
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Doc,

You have the wheels a turnin' here..

I sense another FAQ coming on..

Outlook Express?

I would thnk that you could apply this to the PST, PAB, for Outlook.

The NDX, MBX for Outlook Express.

I see that you are using your SID (911A4FD9-6787-449B-979A-E2D63B09FD8A) I suppose we could translate that into @userid?

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
Page 1 of 1 1


Moderator:  Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 1636 anonymous users online.
details
Newest Members
Viginette, ManuvdWielNL, Sir_Barrington, batdk82, StuTheCoder
17888 Registered Users
My Cookies · Mark all read Powered by UBB.threads™ Contact Us · KiXtart.org website · Top

Generated in 0.075 seconds in which 0.029 seconds were spent on a total of 12 queries. Zlib compression enabled.
Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org