Init WebCG

utils/talk.vbs

@@ -0,0 +1,19 @@
+
+' Tiny Text to Speech (only works on Windows)!
+' Commandline usage:
+' wscript talk.vbs Hello world!
+
+sub Talk(message)
+	Dim sapi
+	Set sapi=CreateObject("sapi.spvoice")
+	sapi.Speak message
+end sub
+
+If WScript.Arguments.Count > 0 Then
+	dim message
+	for x=0 to WScript.Arguments.Count-1
+		message = message & " " & WScript.Arguments.Item(x)
+	next
+	Talk(message)
+End If
+