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

     1  Option Explicit
     2  On Error Resume Next
     3  
     4  Dim objWshShell
     5  Dim objRc
     6  Dim objSd
     7  Dim objEd
     8  Dim objOut
     9  
    10  Set objWshShell = WScript.CreateObject("WScript.Shell")
    11  objRc = objWshShell.ExpandEnvironmentStrings("%RC%")
    12  objSd = objWshShell.ExpandEnvironmentStrings("%SD%")
    13  objEd = objWshShell.ExpandEnvironmentStrings("%ED%")
    14  objOut = objWshShell.ExpandEnvironmentStrings("%OUT%")
    15  
    16  If objRc <> 0 Then
    17  	WScript.Echo "[err] Invalid RC : " & objRc
    18  Else
    19  	WScript.Echo objRc
    20  End If
    21  
    22  If Len(objSd) = 0 Then
    23  	Wscript.Echo "[err] Invalid SD : " & objSd
    24  Else
    25  	WScript.Echo objSd
    26  End If
    27  
    28  If Len(objEd) = 0 Then
    29  	Wscript.Echo "[err] Invalid ED : " & objEd
    30  Else
    31  	WScript.Echo objEd
    32  End If
    33  
    34  If Len(objOut) <> 0 Then
    35  	Wscript.Echo "[err] Invalid OUT : " & objOut
    36  Else
    37  	WScript.Echo objOut
    38  End If
    39  
    40  Set objWshShell = Nothing
    41  
    42  Wscript.Quit 0