''====
INSTALL MICROSOFT OFFICE 2007 FOR EVERYONE ====
If Not Installed Microsoft
Office Then
RemoveSplash
If [FreeDiskSpace]<20 Then
ShowMessage "Microsoft
Office 2007 must installed on your computer, but you do
not have enough _
available diskspace.[Return][Return]Please
contact the IT department."
Else
RunScript \\AcmeServer\Installers$\Office2007\Install.fsh,Acme\Installer,TKtDV6ZmtLadiz/Kw==
If Installed Microsoft
Office Then
ShowMessage "Microsoft
Office 2007 is now installed under "Microsoft Office" in
your start menu. _
A shortcut to Excel and Word will be placed on
your desktop.[Return][Return]Press
"OK" to continue."
End If
End If
End If
''==== SET
MICROSOFT OFFICE 2007 USER SETTINGS ====
If UserSettingsOnce Microsoft Office Then
''Copy word and excel
shortcuts to users' desktop
CopyFile [StartMenuDir]\Programs\Microsoft Office\Microsoft
Office Word 2007.lnk, [UserDesktopDir]\Word
2007.lnk
CopyFile [StartMenuDir]\Programs\Microsoft Office\Microsoft
Office Excel 2007.lnk, [UserDesktopDir]\Excel
2007.lnk
''Set default user name to
domain name
WriteRegistry HKCU\Software\Microsoft\Office\Common\UserInfo\UserInitials,[UserName]
WriteRegistry HKCU\Software\Microsoft\Office\Common\UserInfo\UserName,[UserFullName]
WriteRegistry HKCU\Software\Microsoft\Office\Common\UserInfo\Company,Acme
Corp
''Remove pop-up
WriteRegistry HKCU\Software\Microsoft\Office\12.0\Common\General\ShownOptIn,1,REG_DWORD
''Run newprof
for automatic Outlook profile setup
SetVar TempFile,[TempFile]
IF Portable Then
CopyFile Portable.PRF,[Var TempFile]
Else
CopyFile Desktop.PRF,[Var TempFile]
End If
WriteINI [Var TempFile],General,ProfileName,[Username]
WriteINI [Var TempFile],Service2,MailboxName,[UserFullName]
Run NewProf.Exe,-x -p [Var TempFile]
DeleteFile [Var TempFile]
End If