﻿<?xml version="1.0" encoding="UTF-8"?>
<tascript function="nowplaying" language="VBScript">
	<description>Returns the now playing track from iTunes.</description>
	<script>
<![CDATA[
function nowplaying()
	iTunesRunning = False
	Set colProcesses = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery( "Select * From Win32_Process", , 48 )
	For Each objProcess in colProcesses
		If LCase(objProcess.Name) = "itunes.exe" Then iTunesRunning = True
	Next
	
	if iTunesRunning then
		Set iTunes = CreateObject("iTunes.Application")
		if iTunes.PlayerState then
			Set Current = iTunes.CurrentTrack
			Name = Current.Name
			Artist = Current.Artist
			Album = Current.Album

			nowplaying = Name + ", " + Artist + " [" + Album + "]"
		end if
	end if
End function
]]>
	</script>
</tascript>
