sample/sample.vbs

   1 Option Explicit \r
   2 '--- start of lib include ------------------------------------------------------\r
   3 Dim  g_fs, g_f, g_vbslib, vbslib_folder, en, es\r
   4 If g_vbslib <> True Then\r
   5   vbslib_folder = "..\vbslib" '*************\r
   6   Set g_fs = CreateObject( "Scripting.FileSystemObject" )\r
   7   On Error Resume Next : Set g_f = g_fs.OpenTextFile( vbslib_folder & "\vbslib.vbs" ) : en = Err.Number : On Error GoTo 0\r
   8     If en=76 Or en=53 Then WScript.Echo "[ERROR] vbslib \82ª\8c©\82Â\82©\82è\82Ü\82¹\82ñ\81i" & vbslib_folder & "\vbslib.vbs)" : WScript.Quit 1\r
   9     If en <> 0 Then Err.Raise en\r
  10   On Error Resume Next : Execute g_f.ReadAll() : en = Err.Number : es = Err.Description : On Error GoTo 0\r
  11     If en = 1025 Then\r
  12       WScript.Echo es & " in " & vbslib_folder & "\vbslib.vbs"\r
  13       WScript.CreateObject("WScript.Shell").Run "wscript " & vbslib_folder & "\vbslib.vbs",1,False\r
  14       WScript.Quit 1\r
  15     End If\r
  16     If en <> 0 Then Err.Raise en\r
  17   g_f.Close\r
  18   g_vbslib = True\r
  19   On Error Resume Next\r
  20   main  '*************\r
  21   en = Err.Number : es = Err.Description : Err.Clear : On Error GoTo 0\r
  22   If en <> 0 Then\r
  23     echo "ERROR " & en & " " & es & vbCR & vbLF\r
  24     WScript.Quit en\r
  25   End If\r
  26 End If\r
  27 '--- end of lib include --------------------------------------------------------\r
  28 \r
  29 \r
  30 '********************************************************************************\r
  31 '  <<< [main] >>>\r
  32 '********************************************************************************\r
  33 Sub main()\r
  34   ChgToCommandPrompt\r
  35   echo "Hello vbslib!"\r
  36   pause\r
  37 End Sub\r
  38 \r
  39  \r