Console Program Skeleton - VBScript

Source Codes

Function main(par)
ShowPars par
main=0
End Function



Sub ShowPars(par)
If IsNull(par) Then
    HOST.Print "No Command Line Entered"&vblf
    Exit Sub
End If

If Len(par) <1 Then
    HOST.Print "No Command Line Entered"&vblf
    Exit Sub
End If

Dim pars, npars, i, c
pars=Split(par, vblf)
i=LBound(pars)
c=1

Do While i <= UBound(pars)
    HOST.Print "Parameter " & c & ": " & pars(i) &  vblf
    i=i+1
    c=c+1
Loop

End Sub