Скелет для работы с именованными аргументами:

Question

Может ли кто-нибудь дать мне базовый скелет, который позволяет мне запускать разные параметры командной строки.

Для примера

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

Answer 1

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