(By — yonis 2013/08/13 13:00)
VNC-Server
2013-08-13
Script by MrNiceguy
Comments and improvements are welcome
Tested with opsi 4.0.2
UVNC Setup at http://www.uvnc.com/downloads/ultravnc.html
Tree:
setup.ins start.ins uninstall.ins delsub.ins killtask.ins (By --- //[[tobias.friede@wki.fraunhofer.de|tobias]] 2012/10/01 20:07//) Setup.exe ultavnc.ini ultravncInstall.inf UltraVNC.png
; 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/ [Actions] requiredWinstVersion >= "4.10.8.6" DefVar $MsiId$ DefVar $UninstallProgram$ DefVar $LogDir$ DefVar $ProductId$ DefVar $MinimumSpace$ DefVar $InstallDir$ DefVar $ExitCode$ DefVar $LicenseRequired$ DefVar $LicenseKey$ DefVar $LicensePool$ 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$ = "UltraVNC" Set $MinimumSpace$ = "5 MB" ; the path were we find the product after the installation Set $InstallDir$ = "%ProgramFiles32Dir%\uvnc bvba\UltraVNC" Set $LicenseRequired$ = "false" Set $LicensePool$ = "p_" + $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 comment "Show product picture" ShowBitmap "%ScriptPath%\" + $ProductId$ + ".png" $ProductId$ if FileExists($InstallDir$ + "\winvnc.exe") comment "Start uninstall sub section" Sub "%ScriptPath%\delsub32.ins" endif Message "Installing " + $ProductId$ + " ..." if $LicenseRequired$ = "true" comment "Licensing required, reserve license and get license key" Sub_get_licensekey endif comment "Start setup program" Winbatch_install Sub_check_exitcode comment "Copy files" Files_install /32Bit comment "Start application" Sub "%ScriptPath%\start.ins" endif [Winbatch_install] ; === Inno Setup ======================================================================================== ; http://unattended.sourceforge.net/InnoSetup_Switches_ExitCodes.html ; You may create setup answer file by: setup.exe /SAVEINF="filename" ; You may use an answer file by the parameter /LOADINF="filename" "%ScriptPath%\Setup.exe" /verysilent /LOADINF="%ScriptPath%\ultravncInstall.inf" /log /norestart [Files_install] ; Example of recursively copying some files into the installation directory: ; copy -s "%ScriptPath%\ultravnc.ini" "$InstallDir$" [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 endif
[Actions] setloglevel = 6 requiredWinstVersion >= "4.11.2.9" DefVar $InstallDir$ Set $InstallDir$ = "%ProgramFiles32Dir%\uvnc bvba\UltraVNC\winvnc.exe" ;if FileExist("%ProgramFiles32Dir%\uvnc bvba\UltraVNC\winvnc.exe") comment "Start Application" DosBatch_1 ;endif [DosBatch_1] "%ProgramFiles32Dir%\uvnc bvba\UltraVNC\winvnc.exe"
; Copyright (c) uib gmbh (www.uib.de) ; This sourcecode is owned by uib gmbh ; and published under the Terms of the General Public License. ; credits: http://www.opsi.org/credits/ [Actions] requiredWinstVersion >= "4.10.8.6" DefVar $MsiId$ DefVar $UninstallProgram$ DefVar $LogDir$ DefVar $ExitCode$ DefVar $ProductId$ DefVar $InstallDir$ DefVar $LicenseRequired$ DefVar $LicensePool$ Set $LogDir$ = "%SystemDrive%\tmp" ; ---------------------------------------------------------------- ; - Please edit the following values - ; ---------------------------------------------------------------- Set $ProductId$ = "opsi-template" Set $InstallDir$ = "%ProgramFiles32Dir%\uvnc bvba\UltraVNC" Set $LicenseRequired$ = "false" Set $LicensePool$ = "p_" + $ProductId$ ; ---------------------------------------------------------------- comment "Show product picture" ShowBitmap "%ScriptPath%\" + $ProductId$ + ".png" $ProductId$ Message "Uninstalling " + $ProductId$ + " ..." if FileExists("%ScriptPath%\killtask.ins") comment "Sart task kill sub section" Sub "%ScriptPath%\killtask.ins" endif if FileExists("%ScriptPath%\delsub32.ins") comment "Start uninstall sub section" Sub "%ScriptPath%\delsub32.ins" endif if $LicenseRequired$ = "true" comment "Licensing required, free license used" Sub_free_license endif
Set $UninstallProgram$ = $InstallDir$ + "\unins000.exe" Message "Uninstalling " + $ProductId$ + " ..." if FileExists($UninstallProgram$) ; comment "Uninstall program found, starting uninstall" Winbatch_uninstall sub_check_exitcode endif ;comment "Uninstall" winbatch_uninstall comment "Delete files" Files_uninstall /32Bit [Winbatch_uninstall] Sub "%SciptPath%\killtask.ins" "$UninstallProgram$" /silent /norestart /SUPPRESSMSGBOXES [Files_uninstall] ; Example for recursively deleting the installation directory (don't forget the trailing backslash): ; delete -sf "$InstallDir$\" [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 endif
(By — tobias 2012/10/01 20:07)
[Actions] setloglevel = 6 requiredWinstVersion >= "4.11.2.9" DefVar $process2$ DefVar $subvar$ DefVar $killtask$ DefStringList $processlist$ DefStringList $process$ DefStringList $SearchProcess$ ;----------Definiere hier welche Programme gesucht und geschlossen werden sollen-------------------------------- set $searchProcess$ = createStringList ('winvnc.exe') ;sollen die Programme automatisch geschlossen werden? ACHTUNG: Datenverlust möglich! set $killtask$ = "true" ;---------------------------------------------------------------------------------------------------------------- for %s% in $SearchProcess$ do sub_checkfunktion [sub_checkfunktion] set $subvar$ = "%s%" set $processlist$ = getOutStreamFromSection('DosInAnIcon_checkprocess') set $process$ = splitString(takeString(1,$processlist$), ",") set $process2$ = unquote(takeString(1,$processlist$), '"') DosBatch_1 if ($process2$ = $subvar$) Message = "Prozess gefunden" if ($killtask$ = "true") killtask $subvar$ else message "killtask is set false" endif else message = "Prozess nicht gefunden" endif [DosInAnIcon_checkprocess] @echo off TASKLIST /FI "IMAGENAME eq $subvar$" /fo CSV [DosBatch_1] net stop uvnc_service sc delete uvnc_service
[ultravnc] passwd=2160ACF6951DC37C14 passwd2=6391200523C3E93A22 [admin] FileTransferEnabled=1 FTUserImpersonation=1 BlankMonitorEnabled=1 BlankInputsOnly=0 CaptureAlphaBlending=1 BlackAlphaBlending=0 DefaultScale=1 UseDSMPlugin=0 DSMPlugin=Pfad zum DSM Plugin DSMPluginConfig=Konfiguration DSM Plugin primary=1 secondary=0 SocketConnect=1 HTTPConnect=1 XDMCPConnect=0 AutoPortSelect=1 InputsEnabled=1 LocalInputsDisabled=0 IdleTimeout=0 EnableJapInput=0 QuerySetting=2 QueryTimeout=10 QueryAccept=0 LockSetting=0 RemoveWallpaper=1 RemoveEffects=0 RemoveFontSmoothing=0 RemoveAero=1 DebugMode=2 Avilog=0 path=C:\Programme\uvnc bvba\UltraVnc\log Pfad zu Ultra VNC DebugLevel=10 AllowLoopback=0 LoopbackOnly=0 AllowShutdown=0 AllowProperties=1 AllowEditClients=1 FileTransferTimeout=30 KeepAliveInterval=5 SocketKeepAliveTimeout=10000 DisableTrayIcon=0 MSLogonRequired=0 NewMSLogon=0 ConnectPriority=0 UseRegistry=0 AuthRequired=1 AuthHosts= PortNumber=5900 HTTPPortNumber=5800 Port Nummer für Verbindung über Java QueryIfNoLogon=1 kickrdp=0 clearconsole=0 [admin_auth] Administratorgruppen für Authentifizierung group1=DOMAIN\Administratoren group2= group3= locdom1=0 locdom2=0 locdom3=0 [poll] TurboMode=1 PollUnderCursor=0 PollForeground=0 PollFullScreen=1 OnlyPollConsole=0 OnlyPollOnEvent=0 MaxCpu=40 EnableDriver=0 EnableHook=1 EnableVirtual=0 SingleWindow=0 SingleWindowName= [Permissions]
[Setup] Lang=de Dir=C:\Program Files\uvnc bvba\UltraVNC Group=UltraVNC NoIcons=0 SetupType=server_silent Components=ultravnc_server Tasks=installservice,startservice