' ' All portions of code are copyright by their respective author/s. ' Copyright (c) 2004 Matthew Melendy <melendy@lucent.com> ' ' This program is free software; you can redistribute it and/or modify ' it under the terms of the GNU General Public License as published by ' the Free Software Foundation; either version 2 of the License, or ' (at your option) any later version. ' ' This program is distributed in the hope that it will be useful, ' but WITHOUT ANY WARRANTY; without even the implied warranty of ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ' GNU General Public License for more details. ' ' You should have received a copy of the GNU General Public License ' along with this program; if not, write to the Free Software ' Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ' ' ' This program is used to launch mrxvt directly from a Windows ' shortcut for Cygwin users. ' ' You should change the CYGWIN_ROOT and PATH variables according to ' your installation path of cygwin and mrxvt.exe. ' ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Setup variables ' option explicit dim program, CYGWIN_ROOT, CurrentPath, WshProcessEnv, mrxvtCommandLine CYGWIN_ROOT = "C:\Cygwin" mrxvtCommandLine = "mrxvt.exe -e /bin/bash --login -i" ' ' Create WSH scripting object and obtain current PATH value ' set program = CreateObject("WScript.Shell") set WshProcessEnv = program.Environment("PROCESS") CurrentPath = WshProcessEnv("PATH") ' ' Set environment variables required by Xwin ' WshProcessEnv("DISPLAY") = "127.0.0.1:0.0" WshProcessEnv("CYGWIN_ROOT")=CYGWIN_ROOT WshProcessEnv("PATH")=CYGWIN_ROOT & "\bin;" & CYGWIN_ROOT & "\usr\X11R6\bin;" & CYGWIN_ROOT & "\usr\local\bin;" & CurrentPath ' ' Launch the XWin server with the console window hidden and continue ' program.run mrxvtCommandLine,0,0 ' ' Close WSH script object and exit ' set program=nothing