'------------------------------------------------------------------------
'
' Start your GTK-server GUI script without popping up the DOS box
'
' See the excellent documentation at http://msdn.microsoft.com/scripting/
'
' Peter van Eerten, May 21, 2004.
'
'------------------------------------------------------------------------
' How to use:
'------------------------------------------------------------------------
'
'1. First adjust the constants MYSCRIPT and MYEXEC to the strings
'   you want to execute
'
'2. Make sure this VB script is in the same directory as your GUI
'   script. Then start your script by double-clicking this VB script.
'
'------------------------------------------------------------------------

' !!! Change these variables first !!!
CONST MYSCRIPT = "base64.sb"
CONST MYEXEC = "scriba -n"

' Declare variables
DIM scriptobject, alienobject

' Define the alien script to be executed
SET alienobject = CreateObject("Scripting.FileSystemObject")

' Define execution object
SET scriptobject = WScript.CreateObject("Wscript.Shell")

' Check if the filename is longer than 0 characters
IF LEN(MYSCRIPT) = 0 THEN
	MsgBox "Your script has no name!", vbOkOnly + vbCritical, "Error"
	WScript.Quit
END IF

' Check if the executionstring is longer than 0 characters
IF LEN(MYEXEC) = 0 THEN
	MsgBox "Your executionstring is empty!", vbOkOnly + vbCritical, "Error"
	WScript.Quit
END IF

' Find the file in the current directory
IF NOT alienobject.FileExists(MYSCRIPT) THEN
	MsgBox "Your script does not exist!", vbOkOnly + vbCritical, "Error"
	WScript.Quit
END IF

' Now execute MYSCRIPT without DOS box
scriptobject.run MYEXEC & " " & MYSCRIPT, 0

' End