Как я могу прочитать все аргументы с VBS-SAPI-VOICE?

Question

Я хочу создать программу, которая автоматически читает все стартовые аргументы. Это то, чем я заканчиваю после нескольких часов исследований и отладки, но это все еще не работает. (Я не очень разбираюсь в VBScript.) Сообщение об ошибке напоминает «Ожидается инструкция» или «Ожидается утверждение». Я не знаю, какой перевод правильный. (Я использую немецкую версию. Исходное сообщение об ошибке: «Anweisung erwartet») )

Private Sub Say()
Set VOICE = createobject("sapi.spvoice")
Set Args = WScript.Arguments
Count = 0
While(count > Args.Count)
    VOICE.speak(WScript.Arguments(count))
    count = count + 1
End While
End Sub

Say()

У кого-нибудь есть идеи? Я надеюсь, вы поняли, что я имею в виду. (Мой английский sh ужасен)

Answer 1

См. это , вы можете написать что-то вроде этого:

Set VOICE = createobject("sapi.spvoice")
' Store the arguments in a variable:
Set objArgs = Wscript.Arguments
If objArgs.Count = 0 Then 
    Wscript.Echo "Missing parameters"
    VOICE.Speak "Missing parameters"
End If

' Display all command-line arguments
For Each strArg in objArgs
  WScript.Echo strArg
  VOICE.Speak strArg
Next