github.com/hy3/cuto@v0.9.8-0.20160830082821-aa6652f877b7/_release/windows/jobscript/testscript/07.vbs (about)

     1  Set objWshShell = WScript.CreateObject("WScript.Shell")
     2  objPath = objWshShell.ExpandEnvironmentStrings("%PATH%")
     3  WScript.Echo objPath
     4  lngPos = InStr(1, objPath, "C:\cuto07", 1)
     5  If lngPos = 0 Then
     6  	WScript.Echo "[err] Invalid path."
     7  	Wscript.Quit 1
     8  End If
     9  
    10  Set objParm = WScript.Arguments
    11  If objParm.Count <> 1 Then
    12  	WScript.Echo "[err] Invalid Argument Count. - " & objParm.Count
    13  	Wscript.Quit 2
    14  End If
    15  
    16  If StrComp(objParm.Item(0), "a b", 1) <> 0 Then
    17  	WScript.Echo "[err] Invalid Argument#1 - " & objParm.Item(0)
    18  	Wscript.Quit 3
    19  End If
    20  
    21  Wscript.Quit 0
    22