Dim ArgObj
Set ArgObj = WScript.Arguments
If ArgObj.Count < 1 Then
    msgbox "miss arguments!"
    WScript.Quit()
Else
    Select Case UCase(ArgObj(0))
        Case "ALERT"
             Alert ArgObj(1)
        Case "ADD"
            Add ArgObj(1), ArgObj(2)
        Case Else
            msgbox "arguments error!"
    End Select
             
End If

Sub Alert(username)
    msgbox "hello," & username
End Sub

Sub Add(a, b)
    msgbox CInt(a) + CInt(b)
End Sub