IF Wscript.Arguments.length > 1 THEN
	SET VOICE = CreateObject("SAPI.SpVoice")
	VOICE.Volume = Wscript.Arguments(0)
	VOICE.Speak Wscript.Arguments(1)
	WScript.Quit 1
ELSE
	WScript.Echo "Usage: speak.vbs <VOLUME> <TEXT>"
END IF
WScript.Quit 0