Scribd
Upload
532 views5 pages

Launcher

This document is a script created by Paul Watson on April 20, 2007 with version 1.2 that launches a graphical user interface (GUI) to install Microsoft Office 2007 products from a CD. The script checks for the required Windows version, verifies administrator privileges, and looks for installation files before adding buttons to the GUI for each Office product. When a button is clicked, it locks the CD drive, runs the setup file, checks for existing installation, and if needed enters a product key before unlocking the drive and restoring the GUI.

Uploaded by

deepak_amit
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
532 views5 pages

Launcher

This document is a script created by Paul Watson on April 20, 2007 with version 1.2 that launches a graphical user interface (GUI) to install Microsoft Office 2007 products from a CD. The script checks for the required Windows version, verifies administrator privileges, and looks for installation files before adding buttons to the GUI for each Office product. When a button is clicked, it locks the CD drive, runs the setup file, checks for existing installation, and if needed enters a product key before unlocking the drive and restoring the GUI.

Uploaded by

deepak_amit
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 5

;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, Add, GroupBox, x16 y10 w276 h430 , Install


Gui, Add, Button, x16 y450 w80 h40 , E&xit
Gui, Add, Picture, x172 y445 , %A_ScriptDir%\images\office.bmp
Gui, Add, 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-0000-
0000000FF1CE}, 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

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy