#15163 - 2001-12-13 03:45 AM
Outlook profiles
|
nephilim
Fresh Scripter
Registered: 2001-12-07
Posts: 17
|
my aim is to create a logon kix that will look at the local installation of Office XP Pro, see that the user logging on doesn't have a profile (.prf, correct?) and inject/create the correct information/profile on the fly.I have newprof.exe and the default.prf, but i'm not sure how to figure them into the script (as in, should the be copied from their network location, etc..) simply, the starting point, other than the "if ingroup...", isn't obvious to me. any suggestions/commentary?
|
|
Top
|
|
|
|
#15165 - 2001-12-13 07:39 PM
Re: Outlook profiles
|
Radimus
Moderator
   
Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
|
Here you go...code:
; ****************************** Configure Outlook ******************************** $MsgKey = "$HKCUSMWNTCV\Windows Messaging Subsystem\Profiles" $MProfile = ReadValue($MsgKey, "DefaultProfile") ;Read the current default profile IF $MProfile = "" and $ostype="WinNT" ;If there is not default profile, create the profile using the PRF $ExFileLoc = "c:" ;Location to copy temp file to $copysource = "$logon\newprof.prf" ;name of the template prf $File = "$ExFileLoc\newprof.PRF" ;Custom profile filename $exserver = "areamail" ;name of mailserver DEL "$File" ;Deletes any existing PRF file COPY "$copysource" "$exfileloc" ;Copies baseline PRF file to c: $section = "General" $ = WRITEPROFILESTRING ($FILE, $section, "Custom", "1") $ = WRITEPROFILESTRING ($FILE, $section, "ProfileName", "@UserID") $ = WRITEPROFILESTRING ($FILE, $section, "DefaultProfile", "Yes") $ = WRITEPROFILESTRING ($FILE, $section, "OverwriteProfile", "No") $ = WRITEPROFILESTRING ($FILE, $section, "DefaultStore", "Service2") $section = "Service List" $ = WRITEPROFILESTRING ($FILE, $section, "Service1", "Microsoft Outlook Client") $ = WRITEPROFILESTRING ($FILE, $section, "Service2", "Microsoft Exchange Server") $ = WRITEPROFILESTRING ($FILE, $section, "Service3", "Outlook Address Book") $section = "Service2" $ = WRITEPROFILESTRING ($FILE, $section, "HomeServer", "$exserver") $ = WRITEPROFILESTRING ($FILE, $section, "MailBoxName", "@userid") $ = WRITEPROFILESTRING ($FILE, $section, "OfflineAddressBookPath", "%userprofile%\Local Settings\Application Data\Microsoft\Outlook") $section = "Service3" $ = WRITEPROFILESTRING ($FILE, $section, "Ben", "True") $section = "Service4" $ = WRITEPROFILESTRING ($FILE, $section, "Ben", "True") ? " Creating New Outlook Profile..." SHELL "$logon\newprof.exe -P $File -x" ;Creates the Messaging profile DEL "$File" ;Delete temp file ENDIF
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 2924 anonymous users online.
|
|
|