code:

---

Function CmdLineParse()
    Dim $CmdLine[20]

    ? "$$EXECmdLine = '" + $EXECmdLine + "'"

    $CmdLine = Split($EXECmdLine, " ",-1)
    ? "Ubound of $$CmdLine = " + ubound($CmdLine)

    For Each $parm In $CmdLine
        ? "$$parm = " + $parm
        Select
            Case InStr($parm, "/computer=")
                $x = Trim(Right($parm, InStr($parm, "=")))
                $_computer = Trim(Right($parm, Len($parm) - $x))

            Case InStr($parm, "/repository=") <> 0
                $x = Trim(Right($parm, InStr($parm, "=")))
                $_repository = Trim(Right($parm, Len($parm) - $x))

            Case 1
                ? "Unknown Parameter" + $parm
        EndSelect
    Next

EndFunction
  

---