'==========================================================================
'
' NAME: Mediamonkey Scheduled Playlist Start v1.1
'
' AUTHOR: Peke
' DATE  : 16.10.2005
'
' INSTALL: 1. Read info above line with 'Playlist ='
'          2. Just start Script in Scheduled time and MediaMonkey Will play
'             desired playlist.
'
' COMMENT: This is third party Windows Host Script that takes advantage of
'          MediaMonkey to play desired Playlist at desired time.
'
' NOTE: Mediamonkey needs to be started before script executes
'
'==========================================================================
Dim SDB, Songs
Set SDB = CreateObject("SongsDB5.SDBApplication")
SDB.ShutdownAfterDisconnect = False

Sdb.player.playlistclear
Dim i
For i = 0 To (WSH.Arguments.Count-1)
  sdb.player.playlistaddtracks(SDB.PlaylistByTitle(WSH.Arguments.Item(i)).tracks)
Next
If SDB.Player.isPlaying or SDB.Player.isPaused then
  SDB.Player.Stop
End If
Randomize
SDB.Player.CurrentSongIndex = Int((SDB.Player.PlaylistCount+1) * Rnd)
SDB.player.Play