Launcher

;Created by Paul Watson ;Created on 20th April 2007 ;Version 1.2 ;Increased chance of entering serial correctly ;Added Version number ;Version 1.1 ;Fixed "Isn't Admin" on Vista #NoTrayIcon #SingleInstance Ignore #WinActivateForce If A_OSVersion in WIN_NT4,WIN_95,WIN_98,WIN_ME,WIN_2000 { MsgBox 0, Can't Run, You need Windows XP or Windows Vista to install Office 2007 ExitApp } else if A_OSVersion in WIN_XP { If %A_IsAdmin% { } else { Msgbox 0, Can't Run, You must be an Administrator to install Office 2007 ExitApp } } SplitPath, A_ScriptFullPath ,,,,, root IfExist %A_ScriptDir%\Office 2007 Enterprise\setup.exe { Gui, Add, Button, x26 y40 w254 h60 , Office 2007 &Enterprise Gui, Add, Picture, x18 y105 , %A_ScriptDir%\images\access.bmp Gui, Add, Picture, x46 y105 , %A_ScriptDir%\images\excel.bmp Gui, Add, Picture, x77 y105 , %A_ScriptDir%\images\groove.bmp Gui, Add, Picture, x106 y105 , %A_ScriptDir%\images\infopath.bmp Gui, Add, Picture, x136 y105 , %A_ScriptDir%\images\onenote.bmp Gui, Add, Picture, x167 y105 , %A_ScriptDir%\images\outlook.bmp Gui, Add, Picture, x198 y105 , %A_ScriptDir%\images\powerpoint.bmp Gui, Add, Picture, x229 y105 , %A_ScriptDir%\images\publisher.bmp Gui, Add, Picture, x259 y105 , %A_ScriptDir%\images\word.bmp } else { Gui, Add, Button, x26 y40 w254 h60 +Disabled, Office 2007 &Enterprise Gui, Add, Text, x26 y110 w30 h20 , Error: Gui, Add, Text, x56 y110 w200 h20 , Installation files not found } IfExist %A_ScriptDir%\Office 2007 Visio\setup.exe { Gui, Add, Button, x26 y140 w254 h60 , Office 2007 &Visio Gui, Add, Picture, x138 y205 , %A_ScriptDir%\images\visio.bmp }

else { Gui, Add, Button, x26 y140 w254 h60 +Disabled, Office 2007 &Visio Gui, Add, Text, x26 y210 w30 h20 , Error: Gui, Add, Text, x56 y210 w200 h20 , Installation files not found } IfExist %A_ScriptDir%\Office 2007 Project\setup.exe { Gui, Add, Button, x26 y240 w254 h60 , Office 2007 &Project Gui, Add, Picture, x138 y305 , %A_ScriptDir%\images\project.bmp } else { Gui, Add, Button, x26 y240 w254 h60 +Disabled, Office 2007 &Project Gui, Add, Text, x26 y310 w30 h20 , Error: Gui, Add, Text, x56 y310 w200 h20 , Installation files not found } IfExist %A_ScriptDir%\ExpressionWeb\setup.exe { Gui, Add, Button, x26 y340 w254 h60 , Expression &Web Gui, Add, Picture, x138 y405 , %A_ScriptDir%\images\expressionweb.bmp } else { Gui, Add, Button, x26 y340 w254 h60 +Disabled, Expression &Web Gui, Add, Text, x26 y410 w30 h20 , Error: Gui, Add, Text, x56 y410 w200 h20 , Installation files not found } Gui, Gui, Gui, Gui,

Add, Add, Add, Add,

GroupBox, x16 y10 w276 h430 , Install Button, x16 y450 w80 h40 , E&xit Picture, x172 y445 , %A_ScriptDir%\images\office.bmp Text, x285 y482 w22 h15, v1.2

Gui, Show, xCenter yCenter h495 w308, Launcher Gui, Color, 3399CC WinActivate, Launcher Regread, EnterInst, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Office\12.0\Registration\{90120000-0030-0000-00000000000FF1CE}, ProductName Regread, VisInst, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Office\12.0\Registration\ {90120000-0051-0000-0000-0000000FF1CE}, ProductName Regread, ProInst, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Office\12.0\Registration\ {90120000-003B-0000-0000-0000000FF1CE}, ProductName Regread, WebInst, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Office\12.0\Registration\ {90120000-0026-0000-0000-0000000FF1CE}, ProductName Loop { IfNotExist %A_ScriptFullPath%

{ Gui, Destroy Msgbox 0, CD Removed, Launcher will now close as the CD has been removed ExitApp } }

ButtonOffice2007Enterprise: { Gui Minimize Gui +0x8000000 Drive, Lock, %root% Run %A_ScriptDir%\Office 2007 Enterprise\setup.exe WinWait, 2007 Microsoft Office system WinSet, Style, -0x80000, 2007 Microsoft Office system WinSet, Style, +0x8000000, 2007 Microsoft Office system WinWait, Microsoft Office Enterprise 2007 WinSet, Style, +0x80000, Microsoft Office Enterprise 2007 WinSet, Style, -0x8000000, Microsoft Office Enterprise 2007 If EnterInst = Microsoft Office Enterprise 2007 { } else { Blockinput on WinActivate, Microsoft Office Enterprise 2007 ControlFocus, RichEdit20W1, Microsoft Office Enterprise 2007 SendInput F3DJD-6FFQ4-XQTQF-PGK47-8MDQ8`n Blockinput off } WinWaitClose, Microsoft Office Enterprise 2007 Drive, Unlock, %root% Gui -0x8000000 Gui Restore } return ButtonOffice2007Visio: { Gui Minimize Gui +0x8000000 Drive, Lock, %root% Run %A_ScriptDir%\Office 2007 Visio\setup.exe WinWait, 2007 Microsoft Office system WinSet, Style, -0x80000, 2007 Microsoft Office system WinSet, Style, +0x8000000, 2007 Microsoft Office system WinWait, Microsoft Office Visio Professional 2007 WinSet, Style, +0x80000, Microsoft Office Visio Professional 2007 WinSet, Style, -0x8000000, Microsoft Office Visio Professional 2007 If VisInst = Microsoft Office Visio Professional 2007 { } else

{ Blockinput on WinActivate, Microsoft Office Visio Professional 2007 ControlFocus, RichEdit20W1, Microsoft Office Visio Professional 2007 SendInput HCFPT-K86VV-DCKH3-87CCR-FM6HW`n Blockinput off } WinWaitClose, Microsoft Office Visio Professional 2007 Drive, Unlock, %root% Gui -0x8000000 Gui Restore } return ButtonOffice2007Project: { Gui Minimize Gui +0x8000000 Drive, Lock, %root% Run %A_ScriptDir%\Office 2007 Project\setup.exe WinWait, 2007 Microsoft Office system WinSet, Style, -0x80000, 2007 Microsoft Office system WinSet, Style, +0x8000000, 2007 Microsoft Office system WinWait, Microsoft Office Project Professional 2007 WinSet, Style, +0x80000, Microsoft Office Project Professional 2007 WinSet, Style, -0x8000000, Microsoft Office Project Professional 2007 If ProInst = Microsoft Office Project Professional 2007 { } else { Blockinput on WinActivate, Microsoft Office Project Professional 2007 ControlFocus, RichEdit20W1, Microsoft Office Project Professional 2007 SendInput HCFPT-K86VV-DCKH3-87CCR-FM6HW`n Blockinput off } WinWaitClose, Microsoft Office Project Professional 2007 Drive, Unlock, %root% Gui -0x8000000 Gui Restore } return ButtonExpressionWeb: { Gui Minimize Gui +0x8000000 Drive, Lock, %root% Run %A_ScriptDir%\ExpressionWeb\setup.exe WinWait, Expression Web WinSet, Style, -0x80000, Expression Web WinSet, Style, +0x8000000, Expression Web WinWait, Microsoft Expression Web WinSet, Style, +0x80000, Microsoft Expression Web WinSet, Style, -0x8000000, Microsoft Expression Web If WebInst = Microsoft Expression Web

{ } else { Blockinput on WinActivate, Microsoft Expression Web ControlFocus, RichEdit20W1, Microsoft Expression Web SendInput DDWJC-VFGHJ-7GFK6-9QK3D-PFTHW`n Blockinput off } WinWaitClose, Microsoft Expression Web Drive, Unlock, %root% Gui -0x8000000 Gui Restore } return ButtonExit: Drive, Eject, %root% ExitApp Return GuiClose: Drive, Eject, %root% ExitApp