[VBScript] Word of the day

[Rupp]

Word of the day script that pulls the RSS feed from http://wordsmith.org/awad/rss1.xml

This is a fix until http://dictionary.reference.com/wordoftheday/wotd.rss gets there feed fixed.

Sub Main

Set objXMLDoc = CreateObject("MSXML2.DOMDocument.4.0")
objXMLDoc.async = false
objXMLDoc.load("http://wordsmith.org/awad/rss1.xml")
set sWordOfTheDay= objXMLDoc.selectSingleNode("rss/channel/item/title")
set sDefinition= objXMLDoc.selectSingleNode("rss/channel/item/description")
hs.speak ("The word of the day is " & sWordOfTheDay.text &". The definition of " & sWordOfTheDay.text & " is " & sDefinition.text)

End Sub