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