[Сергей Красиков]

Iska, я относительно неплохо знаком с VBA, поэтому VBS освоить легче. Сейчас огромными глазами смотрю на приведённый вами пример, как когда-то на Бейсик. Не, в другой раз.
iglezz, Спасибо. То, что надо!

Код:

Set obj_sh = CreateObject("WScript.Shell")

pause = 200

With obj_sh

    i = 0
    While i < 51
'Уменьшить громкость:
        .SendKeys(chr(&hAE))
        i = i + 1
    Wend

    WScript.Sleep pause * 5

    i = 0
    While i < 10
'Увеличить громкость:
        .SendKeys(chr(&hAF))
        i = i + 1
    Wend

End With

Set obj_sh = Nothing

Таким образом удастся избавиться от сторонних приложений, чего не хотелось делать и с nircmd.

Друзья, спасибо за ответы!