VNC install script - KiXtart.org

You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » COM Scripting » VNC install script

Page 1 of 1

Topic Options

#86268 - 2002-06-26 09:42 AM

Re: VNC install script

Richard H. Offline

Administrator

Registered: 2000-01-24
Posts: 4946
Loc: Leatherhead, Surrey, UK

This is the script that I used to use. You can tell it's been around a long time, no UDFs or fancy stuff like that [Wink]

Anyhow, it used to work and install the password ok, so you should be able to pick the bones out of it.

The only thing you will need to change is the password, obviously.

The script expects the following files to be in a subdirectory "files" where the script is running:

quote:
msvcrt.dll
msvcirt.dll
omnithread_rt.dll
vnchooks.dll
winvnc.exe

code:

; VNC Distribution Kix Script

; This script will copy the VNC listener software, run the service install and
; install a basic set of registry keys.

; Set the "AllowConfig" and "AllowShutdown" entries to "1" if you want them to
; be available to users.  By default this script sets them so that users cannot
; stop the VNC service, and cannot change the parameters.

; You will need to do an install and set the password to get the hex values for
; the "Password" entry.

; This install expects the distro to be available in "Files" under the current
; directory.

; Set the program file path here:
"Creating directory structure..." ?
$INSTALLPATH="C:\Program Files"
$DirName="$INSTALLPATH\ORL" GoSub "MakeDir"
$DirName="$INSTALLPATH\ORL\VNC" GoSub "MakeDir"

"Copying runtime files..." ?
copy "files\*.*" $DirName

; Run the service install
"Installing VNC service..." ?
Shell "$DirName\winvnc.exe -install"
if @ERROR "FATAL: Service install failed with error code @ERROR" EXIT endif

"Creating base registry information..." ?
$Key="HKEY_LOCAL_MACHINE\Software\ORL" GoSub "MyAddKey"

$Key="HKEY_LOCAL_MACHINE\Software\ORL\VNC" GoSub "MyAddKey"

$Key="HKEY_LOCAL_MACHINE\Software\ORL\VNC\3.3.3" GoSub "MyAddKey"

$Key="HKEY_LOCAL_MACHINE\Software\ORL\WinVNC3" GoSub "MyAddKey"

$Key="HKEY_LOCAL_MACHINE\Software\ORL\WinVNC3\Default" GoSub "MyAddKey"
   $Entry="SocketConnect" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="AutoPortSelect" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="InputsEnabled" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="LocalInputsDisabled" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="IdleTimeout" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="QuerySetting" $Value="2" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="QueryTimeout" $Value="10" $Type="REG_DWORD" GoSub "MyWriteValue"
; Do a sample install and set the password to get the hex values for the next string.
   $Entry="Password" $Value="c137b04f51ccab36" $Type="REG_BINARY" GoSub "MyWriteValue"
   $Entry="PollUnderCursor" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="PollForeground" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="PollFullScreen" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="OnlyPollConsole" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="OnlyPollOnEvent" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
; Set to "1" to allow users to stop the service
   $Entry="AllowShutdown" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
; Set to "1" to allow users to change the config
   $Entry="AllowConfig" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"

$Key="HKEY_CURRENT_USER\Software\ORL" GoSub "MyAddKey"

$Key="HKEY_CURRENT_USER\Software\ORL\VNCHooks" GoSub "MyAddKey"

$Key="HKEY_CURRENT_USER\Software\ORL\VNCHooks\Application_Prefs" GoSub "MyAddKey"

$Key="HKEY_CURRENT_USER\Software\ORL\VNCHooks\Application_Prefs\WINVNC.EXE" GoSub "MyAddKey"
   $Entry="use_GetUpdateRect" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Timer" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_KeyPress" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_LButtonUp" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_MButtonUp" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_RButtonUp" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Deferral" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"

$Key="HKEY_CURRENT_USER\Software\ORL\VNCHooks\Application_Prefs\CALC.EXE" GoSub "MyAddKey"
   $Entry="use_GetUpdateRect" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Timer" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_KeyPress" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_LButtonUp" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Deferral" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"

$Key="HKEY_CURRENT_USER\Software\ORL\VNCHooks\Application_Prefs\CLOCK.EXE" GoSub "MyAddKey"
   $Entry="use_GetUpdateRect" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Timer" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_KeyPress" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Deferral" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_LButtonUp" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"

$Key="HKEY_CURRENT_USER\Software\ORL\VNCHooks\Application_Prefs\explorer.exe" GoSub "MyAddKey"
   $Entry="use_GetUpdateRect" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Timer" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_KeyPress" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Deferral" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_LButtonUp" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"

$Key="HKEY_CURRENT_USER\Software\ORL\VNCHooks\Application_Prefs\fpxpress.exe" GoSub "MyAddKey"
   $Entry="use_GetUpdateRect" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Timer" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_KeyPress" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Deferral" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_LButtonUp" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"

$Key="HKEY_CURRENT_USER\Software\ORL\VNCHooks\Application_Prefs\Ide.exe" GoSub "MyAddKey"
   $Entry="use_GetUpdateRect" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Timer" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_KeyPress" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Deferral" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_LButtonUp" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"

$Key="HKEY_CURRENT_USER\Software\ORL\VNCHooks\Application_Prefs\iexplore.exe" GoSub "MyAddKey"
   $Entry="use_GetUpdateRect" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Timer" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_KeyPress" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Deferral" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_LButtonUp" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"

$Key="HKEY_CURRENT_USER\Software\ORL\VNCHooks\Application_Prefs\MSDEV.EXE" GoSub "MyAddKey"
   $Entry="use_GetUpdateRect" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Timer" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_KeyPress" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Deferral" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_LButtonUp" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"

$Key="HKEY_CURRENT_USER\Software\ORL\VNCHooks\Application_Prefs\mspaint.exe" GoSub "MyAddKey"
   $Entry="use_GetUpdateRect" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Timer" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_KeyPress" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_LButtonUp" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Deferral" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"

$Key="HKEY_CURRENT_USER\Software\ORL\VNCHooks\Application_Prefs\NOTEPAD.EXE" GoSub "MyAddKey"
   $Entry="use_GetUpdateRect" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Timer" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_KeyPress" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_Deferral" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="use_LButtonUp" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"

$Key="HKEY_CURRENT_USER\Software\ORL\WinVNC3" GoSub "MyAddKey"
   $Entry="SocketConnect" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="AutoPortSelect" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="InputsEnabled" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="LocalInputsDisabled" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="IdleTimeout" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="QuerySetting" $Value="2" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="QueryTimeout" $Value="10" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="Password" $Value="c137b04f51ccab36" $Type="REG_BINARY" GoSub "MyWriteValue"
   $Entry="PollUnderCursor" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="PollForeground" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="PollFullScreen" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="OnlyPollConsole" $Value="1" $Type="REG_DWORD" GoSub "MyWriteValue"
   $Entry="OnlyPollOnEvent" $Value="0" $Type="REG_DWORD" GoSub "MyWriteValue"

$Key="HKEY_CURRENT_USER\Software\ORL\VNCviewer" GoSub "MyAddKey"

$Key="HKEY_CURRENT_USER\Software\ORL\VNCviewer\MRU" GoSub "MyAddKey"
   $Entry="index" $Value="A" $Type="REG_SZ" GoSub "MyWriteValue"
   $Entry="A" $Value="10.16.28.24:0" $Type="REG_SZ" GoSub "MyWriteValue"

:MyAddKey
if ExistKey($Key)
	if AddKey($Key)
		"ABORTING: Error @ERROR adding key $Key" ?
		"   Additional Info: @SERROR" ?
		exit
	endif
endif
RETURN

:MyWriteValue
	if WriteValue($Key,$Entry,$Value,$Type)
		"WARNING: Error @ERROR updating $Entry in $Key with value $Value" ?
		"   Additional Info: @SERROR" ?
	endif
RETURN

:MakeDir
md $DirName
if @ERROR
	"FATAL: Could not create $DirName - maybe it already exists?"
	EXIT
endif
RETURN

Top

Page 1 of 1

Previous Topic View All Topics

Index Next Topic

Entire topic
Subject	Posted by	Posted
VNC install script	Radimus	2002-06-25 09:11 PM
Re: VNC install script	Radimus	2002-06-25 09:13 PM
Re: VNC install script	Les	2002-06-25 09:48 PM
Re: VNC install script	Radimus	2002-06-25 10:22 PM
Re: VNC install script	Radimus	2002-06-26 02:59 AM
Re: VNC install script	Ghost	2002-06-26 09:21 AM
Re: VNC install script	Richard H.	2002-06-26 09:42 AM
Re: VNC install script	Radimus	2002-06-26 10:07 AM

Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart

Hop to:

Shout Box

Search the board with:
superb Board Search
or try with google:

	Web kixtart.org