IT Pro Tips for Champs Inc. Champs Print 1

Deployment Tips (1)

Most Common Setup Type

Not Determined

Average Package Difficulty Rating

Rated 0 / 5 (Not Rated) based on 0 ratings

Most Commonly Reported Deployment Method

Not Determined

117

Note

Champs Print Setup MSI based install has multiple embeded setup.exe installations using Ghostscript. http://www.ghostscript.com

The embeded ghostscripts work fine however there is no pass through from the msi to the GhostScript setup.exe's.

I made an autoit script to do the install. Note that this script expects to be run by multiple users. This is because intalling for "All Users" does not appear to completely work.

---------------Begin Autoit Script-------------------------
if FileExists(@scriptdir & "\ChampsPrintSetup.msi") Then
If FileExists(@ScriptDir & "\" & @UserName & ".txt") then
Exit
Else
;FileCopy(@ScriptDir & "\Check.txt", @ScriptDir & "\" & @UserName & ".txt")
EndIf
Else
Exit
EndIf

BlockInput(1)
ShellExecute("msiexec.exe", " /i " & @scriptdir & "\ChampsPrintSetup.msi ALLUSERS=2 /qb-")
FileCopy(@ScriptDir & "\Check.txt", @ScriptDir & "\" & @UserName & ".txt")
if FileExists ("C:\GS\uninstgs.exe") Then
BlockInput(0)
Exit
Else
WinWait("WinZip Self-Extractor - ")
WinActivate("WinZip Self-Extractor - gs854w32-gpl.exe")
ControlClick("WinZip Self-Extractor - gs854w32-gpl.exe", "", 1)

WinWait("GPL Ghostscript Setup", "Install to directory")
WinActivate("GPL Ghostscript Setup", "Install to directory")
ControlSetText("GPL Ghostscript Setup", "Install to directory", 202, "C:\GS" )
ControlClick("GPL Ghostscript Setup", "Install to directory", 1004)

WinWait("WinZip Self-Extractor - gsv48w32.exe")
WinActivate("WinZip Self-Extractor - gsv48w32.exe")
ControlClick("WinZip Self-Extractor - gsv48w32.exe", "", 1)

WinWait("GSview Install")
WinActivate("GSview Install")
ControlClick("GSview Install", "This installation will require 7 M", 56, 70, 6)

WinWait("GSview Install")
WinActivate("GSview Install", "Copyright Notice")
ControlSend("GSview Install", "", "[CLASSNN:Button7; INSTANCE:7]", "{Enter}")

WinWait("GSview Install")
WinActivate("GSview Install")
ControlSend("GSview Install", "", "[CLASSNN:Button12; INSTANCE:12]", "{Enter}")

WinWait("GSview Install", "Select a directory in which to install GSview")
WinActivate("GSview Install", "Select a directory in which to install GSview")
ControlSetText("GSview Install", "Select a directory in which to install GSview", 52, "C:\Ghostgum" )
ControlSend("GSview Install", "", "[CLASSNN:Button17; INSTANCE:17]", "{Enter}")

WinWait("GSview Install", "")
WinActivate("GSview Install", "")
ControlSend("GSview Install", "", "[CLASSNN:Button21; INSTANCE:21]", "{Enter}")

WinWait("GSview Install", "")
WinActivate("GSview Install", "")
ControlSend("GSview Install", "", "[CLASSNN:Button29; INSTANCE:29]", "{Enter}")

WinWait("GSview Install", "Installation successful.")
WinActivate("GSview Install", "Installation successful.")
ControlSend("GSview Install", "Installation successful.", "[CLASSNN:Button39; INSTANCE:39]", "{Enter}")

WinClose("C:\Documents and Settings\All Users\Start Menu\Programs\Ghostgum", "")
WinClose("C:\Documents and Settings\", "Ghostscript")

EndIf
BlockInput(0)
Exit
--------------------end autoit script--------------------

Setup Information:

Setup Type: unspecified

Deployment Method Used: unspecified

Deployment Difficulty: unspecified

Platform(s): Windows

bkruiser
04/03/2008
Show Comments ( 0 )

Inventory Records (1)

View inventory records anonymously contributed by opt-in users of the K1000 Systems Management Appliance.

Versions

1

Champs Print

Version

1

Questions & Answers (0)

Questions & Answers related to Champs Inc. Champs Print

Blogs (0)

Blog posts related to Champs Inc. Champs Print

Links (1)

Links related to Champs Inc. Champs Print

link

AutoIt - AutoItScript

By: bkruiser 16 years ago 1.3k views

Reviews (0)

Reviews related to Champs Inc. Champs Print

Champs Inc. Champs Print

Don't be a Stranger!