Table of Contents
**ASAP For Local Use**
Tested with opsi 4.10.8.6
requiredWinstVersion >= “4.10.8.6”
For 32 and 64 Bit
Installation files at https://www.askus.biz/files/askus/images/Download/ASAP_Local.msi
questions to: Thomas_H 2019/05/14 08:49
history:
created: — Thomas_H 2019/05/14 08:49
“ASAP For Local Use” (no… 
'Not As Soon As Possible', it's “Automatic and Secure Admin-Credentials Provider”) allows you to run a special program under admin-rights. As the website says, it only allows the defined program, but it avoids, that other programs could be also started under admin-rights, while using the fileselectorbox called by the defined program. I haven't tested THIS yet. It's a much better alternative to 'runas.exe'.
Tree:
├ ASAP.jpg ├ ASAP_Local.msi\\ ├ setup.ins\\ └ uninstall.ins
setup.ins
; Copyright (c) uib gmbh (www.uib.de)
; This sourcecode is owned by uib
; and published under the Terms of the General Public License.
; credits: http://www.opsi.org/credits/
[Initial]
SetLogLevel=9
; Log Errors in Logfile but don't abort:
ExitOnError=false
; Show syntax errors in the script:
ScriptErrorMessages=on
; Dont trace step by step through the script:
TraceMode=off
; let started programs run in front of the winst window
StayOnTop=false
[Actions]
requiredWinstVersion >= "4.10.8.6"
DefVar $LogDir$
DefVar $ProductId$
DefVar $MinimumSpace$
DefVar $InstallDir32$
DefVar $InstallDir64$
DefVar $ExitCode$
DefVar $LicenseRequired$
DefVar $LicenseKey$
DefVar $LicensePool$
DefVar $INST_SystemType$
DefVar $INST_architecture$
DefVar $Version$
DefVar $Inst_Cmd$
DefVar $Inst_Prg32$
DefVar $Inst_Prg64$
DefVar $Uninst_Cmd$
DefVar $Uninst_Prg$
Set $INST_SystemType$ = GetSystemType
set $INST_architecture$ = GetProductProperty("install_architecture","system specific")
Set $LogDir$ = "%SystemDrive%\tmp"
; ----------------------------------------------------------------
; - Please edit the following values -
; ----------------------------------------------------------------
;$ProductId$ should be the name of the product in opsi
; therefore please: only lower letters, no umlauts,
; no white space use '-' as a seperator
Set $ProductId$ = "ASAP"
Set $Version$ = "2.8.4.0"
Set $MinimumSpace$ = "10 MB"
; the path were we find the product after the installation
Set $InstallDir32$ = "%ProgramFiles32Dir%\askus\ASAP"
; Set $InstallDir64$ = "%ProgramFiles64Dir%\<programmordner>\" - nicht genutzt
Set $LicenseRequired$ = "false"
Set $LicensePool$ = "p_" + $ProductId$
Set $Inst_Prg32$ = "Asap_Local.msi"
Set $Inst_Prg64$ = "Asap_Local.msi"
Set $Uninst_Prg$ = "c:\windows\system32\msiexec.exe"
Set $Inst_Cmd$ = ' /qn'
Set $Uninst_Cmd$ = ' /X{FBE8F570-3D8C-42B4-955C-C3E09D568530} /qn'
; ----------------------------------------------------------------
comment "Show product picture"
ShowBitmap "%ScriptPath%\" + $ProductId$ + ".jpg" $ProductId$
if not(HasMinimumSpace ("%SystemDrive%", $MinimumSpace$))
LogError "Not enough space on %SystemDrive%, " + $MinimumSpace$ + " on drive %SystemDrive% needed for " + $ProductId$
isFatalError
; Stop process and set installation status to failed
else
if FileExists("$InstallDir32$")
comment "Start uninstall sub section"
Sub "%ScriptPath%\delsub.ins"
endif
if FileExists("$InstallDir64$")
comment "Start uninstall sub section"
Sub "%ScriptPath%\delsub.ins"
endif
if $LicenseRequired$ = "true"
comment "Licensing required, reserve license and get license key"
Sub_get_licensekey
endif
comment "Installiere "+$ProductID$+"..."
if (($INST_SystemType$ = "x86 System") and ($INST_architecture$ = "system specific")) or ($INST_architecture$ = "both") or ($INST_architecture$ = "32 only")
Message "Installiere " + $ProductId$+" (32 Bit)"
comment "Start setup program"
Winbatch_install_32
Sub_check_exitcode
endif
if ($INST_SystemType$ = "64 Bit System") and (($INST_architecture$ = "system specific") or ($INST_architecture$ = "both") or ($INST_architecture$ = "64 only"))
Message "Installiere " + $ProductId$+" (64 Bit)"
comment "Start setup program"
Winbatch_install_64
Sub_check_exitcode
endif
endif
[Winbatch_install_32]
msiexec /i %ScriptPath%\$Inst_Prg32$ $Inst_Cmd$
[Winbatch_install_64]
msiexec /i %ScriptPath%\$Inst_Prg64$ $Inst_Cmd$
[Sub_check_exitcode]
comment "Test for installation success via exit code"
set $ExitCode$ = getLastExitCode
if ($ExitCode$ = "0")
comment "Looks good: setup program gives exitcode zero"
else
comment "Setup program gives a exitcode unequal zero: " + $ExitCode$
if ($ExitCode$ = "1605")
comment "ERROR_UNKNOWN_PRODUCT 1605 This action is only valid for products that are currently installed."
comment "Uninstall of a not installed product failed - no problem"
else
if ($ExitCode$ = "1641")
comment "looks good: setup program gives exitcode 1641"
comment "ERROR_SUCCESS_REBOOT_INITIATED 1641 The installer has initiated a restart. This message is indicative of a success."
else
if ($ExitCode$ = "3010")
comment "looks good: setup program gives exitcode 3010"
comment "ERROR_SUCCESS_REBOOT_REQUIRED 3010 A restart is required to complete the install. This message is indicative of a success."
else
logError "Fatal: Setup program gives an unknown exitcode unequal zero: " + $ExitCode$
isFatalError
endif
endif
endif
endif
uninstall.ins
[Initial]
ExitOnError=true
StayOnTop = true
TraceMode = off
[Actions]
requiredWinstVersion >= "4.10.5"
DefVar $ProductId$
DefVar $ExitCode$
DefVar $NTVersioninfo$
DefVar $UninstallCommand$
DefVar $Parameter$
DefVar $UninstallID$
DefVar $UninstPrg$
DefVar $RegPath$
SetLogLevel=6
; ----------------------------------------------------------------
Set $RegPath$ = "\HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall"
Set $UninstallID$ = "{FBE8F570-3D8C-42B4-955C-C3E09D568530}"
Set $UninstPrg$ = "C:\Windows\System32\msiexec.exe"
; ----------------------------------------------------------------
Set $ProductId$ = GetRegistrystringvalue32("[HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{FBE8F570-3D8C-42B4-955C-C3E09D568530}] DisplayName")
ShowBitmap "%ScriptPath%\ASAP.jpg" $ProductId$
Message "Deinstalliert " + $ProductId$ + " ..."
if not ($ProductID$ = "")
Message "Deinstalliere "+$ProductID$
set $UninstallCommand$ = " /x $UninstallID$ /qb-! REBOOT=ReallySuppress"
Winbatch_remove
Sub_check_exitcode
endif
[Winbatch_remove]
$UninstPrg$ $UninstallCommand$
[Sub_check_exitcode]
comment "Test for installation success via exit code"
set $ExitCode$ = getLastExitCode
; informations to exit codes see
; http://msdn.microsoft.com/en-us/library/aa372835(VS.85).aspx
; http://msdn.microsoft.com/en-us/library/aa368542.aspx
if ($ExitCode$ = "0")
comment "Looks good: setup program gives exitcode zero"
else
comment "Setup program gives a exitcode unequal zero: " + $ExitCode$
if ($ExitCode$ = "1605")
comment "ERROR_UNKNOWN_PRODUCT 1605 This action is only valid for products that are currently installed."
comment "Uninstall of a not installed product failed - no problem"
else
if ($ExitCode$ = "1641")
comment "looks good: setup program gives exitcode 1641"
comment "ERROR_SUCCESS_REBOOT_INITIATED 1641 The installer has initiated a restart. This message is indicative of a success."
else
if ($ExitCode$ = "3010")
comment "looks good: setup program gives exitcode 3010"
comment "ERROR_SUCCESS_REBOOT_REQUIRED 3010 A restart is required to complete the install. This message is indicative of a success."
else
logError "Fatal: Setup program gives an unknown exitcode unequal zero: " + $ExitCode$
isFatalError
endif
endif
endif