' Start Server2Go with a short (8.3) path and file name
' (This is a workaround for the "%1 is not a valid Win32 Application" error message.)
' Written by Tero Niemi, http://tech.nimbus.fi/
' *** Save this file as "Start.vbs" in the same folder as "Server2Go.exe" ***
Const program = "Server2Go.exe" ' program to start
Set filesystem = CreateObject("Scripting.FileSystemObject")
If filesystem.FileExists(program) Then
Set file = filesystem.GetFile(program)
Set shell = CreateObject("WScript.Shell")
shell.Run(file.shortPath)
End If
' eof