asdfghjkl

'On Error Resume Next
Set xmlDoc = CreateObject("Msxml2.XMLHTTP.6.0")
Dim cur_playing

For i = 1 to 10
	i=1

	xmlDoc.Open "GET","http://localhost:8080/requests/status.xml", false, "username", "test"
	xmlDoc.send()

	cur_playing = Null
	cur_playing = xmlDoc.responseXML.selectNodes("root/information/category/info[@name = 'now_playing']").text

	Set objFSO=CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.CreateTextFile("nowplaying.txt",2)  'txt file must be ANSI
	objFile.Write cur_playing
	'objFile.Write cur_playing & vbCrLf
	objFile.Close

	WScript.Sleep 5000

Next