[VBScript] A CLI framework

Here's a simple framework for building your own CLI (Command Language Interface) Dim sLine Dim aLine Dim sKeyword Dim sArguments Do While True WScript.StdOut.Write ">> " sLine = WSCript.StdIn.ReadLine aLine = Split( sLine, " ", 2 ) If UBound( aLine ) > -1 Then sKeyword = aLine( 0 ) If UBound( aLine ) > 0 Then sArguments = aLine( 1 ) Else sArguments = "" End If Select Case LCase( sKeyword ) Case "quit", "exit", "bye" Exit Do Case "eval" Evaluate sArguments Case "echo" Evaluate "wscript.echo " & sArguments Case "set" Evaluate "Set " & sArguments Case "run" Evaluate "oShell.Run " & sArguments End Select End If Loop Sub Evaluate( sArg ) On Error Resume Next ExecuteGlobal sArg If Err.Number <> 0 Then WScript.Echo "Error:",Err.Number WScript.Echo vbTab, Err.Source WScript.Echo vbTab, Err.Description Err.Clear End If On Error GoTo 0 End Sub Keywords at this point are: quit, exit, bye, eval, echo, set and run. Below is a sample session. >> foo foo? >> my dog has fleas my? >> eval dim a >> eval a = 1000 >> echo a*a 1000000 >> echo b >> set Error: 1002 Microsoft VBScript compilation error Syntax error >> set x Error: 1011 Microsoft VBScript compilation error Expected '=' >> set x= Error: 1002 Microsoft VBScript compilation error Syntax error >> set x=1 Error: 424 Microsoft VBScript runtime error Object required >> set onotes = createobject("notes.notessession") >> echo onotes.username CN=Bruce Axtens/O=XXXX >> bye Now my own version adds a little to this framework by including a .vbs file full of extra symbols, procedures and classes. I've reproduced it below just so that you can see how to do a synthetic include in VBScript. Interestingly, the technique also works in HTAs. option explicit Function GetEnv( strEnvVar ) Dim oProcessEnvironment Dim sResult With CreateObject( "WScript.Shell" ) GetEnv = .Environment( "PROCESS" )( UCase( strEnvVar ) ) End With End Function Sub Include( scriptName ) Dim sScript Dim oStream 'on error resume next err.clear With CreateObject( "Scripting.FileSystemobject" ) Set oStream = .OpenTextFile( scriptName ) End With If Err.Number > 0 Then MsgBox "Could not open " & scriptName WScript.Quit End If Err.Clear sScript = oStream.ReadAll() oStream.Close ExecuteGlobal sScript If Err.Number <> 0 Then Die "Error in loaded script" End If On Error Goto 0 End Sub Include GetEnv( "USERPROFILE" ) & "\Desktop\Stuff\Dev\Lib.vbs" Dim oNotes Set oNotes = CreateObject( "Notes.NotesSession" ) Dim sLine Dim aLine Dim sKeyword Dim sArguments Do While True WScript.StdOut.Write ">> " sLine = WSCript.StdIn.ReadLine aLine = Split( sLine, " ", 2 ) If UBound( aLine ) > -1 Then sKeyword = aLine( 0 ) If UBound( aLine ) > 0 Then sArguments = aLine( 1 ) Else sArguments = "" End If Select Case LCase( sKeyword ) Case "quit", "exit", "bye" Exit Do Case "eval" Evaluate sArguments Case "echo" Evaluate "wscript.echo " & sArguments Case "set" Evaluate "Set " & sArguments Case "run" Evaluate "oShell.Run " & sArguments Case Else WScript.Echo sKeyword & "?" End Select End If Loop Sub Evaluate( sArg ) On Error Resume Next ExecuteGlobal sArg If Err.Number <> 0 Then WScript.Echo "Error:",Err.Number WScript.Echo vbTab, Err.Source WScript.Echo vbTab, Err.Description Err.Clear End If On Error GoTo 0 End Sub Enjoy.