Vbscript 用于处理命名参数的框架：

有没有人能给我一个基本的框架，让我运行不同的命令行参数

比如说

cscript TestSpeed.vbs /Internet
'or
cscript testSpeed.vbs /RW

Option Explicit

WScript.Quit Main()

Function Main()
  Main = 1

  Dim oWAN : Set oWAN = WScript.Arguments.Named
  Select Case True
    Case 1 <> oWAN.Count
      WScript.Echo "Usage: cscript TestSpeed.vbs /Internet OR /RW"
    Case oWAN.Exists("Internet")
      WScript.Echo "Test Internet speed"
      Main = 0
    Case oWAN.Exists("RW")
      WScript.Echo "test RW speed"
      Main = 0
  End Select
End Function