Samples/OpenVBSLibSource.bat

   1 @echo off\r
   2 call :SetVariables\r
   3 \r
   4 %not_close%  %cscript% //nologo "%vbslib_root%\vbslib Prompt.vbs"  ov  ""\r
   5 \r
   6 goto :eof\r
   7 \r
   8 \r
   9 REM ********************************************************************\r
  10 REM  Function: SetVariables\r
  11 REM ********************************************************************\r
  12 :SetVariables\r
  13 if     "%ProgramFiles(x86)%" == ""  set cscript=cscript\r
  14 if not "%ProgramFiles(x86)%" == ""  set cscript=%windir%\SysWOW64\cscript.exe\r
  15 \r
  16 set close_at_end=\r
  17 set not_close=cmd.exe /K\r
  18 \r
  19 call :GetParentPath %0\r
  20 call :GetParentPath "%ret%"\r
  21 set vbslib_root=%ret%\r
  22 \r
  23 goto :eof\r
  24 \r
  25 \r
  26 REM ********************************************************************\r
  27 REM  Function: GetParentPath\r
  28 REM ********************************************************************\r
  29 :GetParentPath\r
  30 set ret=%~dp1\r
  31 set ret=%ret:~0,-1%\r
  32 goto :eof\r