foo_lyrics.vbs

Set ARGS = WScript.Arguments
Set HTTP = CreateObject("Msxml2.XMLHTTP")
Set XML = CreateObject("Microsoft.XMLDOM")

If ARGS.Count < 3 Then

    WScript.Echo "Not enought arguments provided. Exiting."
    WScript.Quit()

Else

    ARTIST = ARGS.Item(0)
    ALBUM = ARGS.Item(1)
    TITLE = ARGS.Item(2)

    URL = "http://lyrics.mirkforce.net/cgi-bin/lepserver.cgi"

    POST = "<query agent=" + chr(34) + "foo_uie_biography" + chr(34) + "><song id=" + chr(34) + "0" + chr(34) + _
        "artist=" + chr(34) + ARTIST + chr(34) + _
        "title=" + chr(34) + TITLE + chr(34) + _
        "album=" + chr(34) + ALBUM + chr(34) + "/></query>"

    On Error Resume Next

    http.open "POST", URL, False
    http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    http.send POST

    if err.Number = 0 Then
        Response = HTTP.responseText
        XML.LoadXml(Response)
        LYRICS = XML.getElementsByTagName("text")(0).childNodes(0).text
        Wscript.Echo LYRICS
    Else
        Wscript.Echo "error " & Err.Number & ": " & Err.Description
    End If

End If

Set HTTP = Nothing