Welcome guest. Before posting on our computer help forum, you must register. Click here it's easy and free.
Computer Hope forum e-mail issues and down time
0 Members and 1 Guest are viewing this topic.
Set objPlayer = CreateObject("WMPlayer.OCX" )Set objPlaylists = objPlayer.PlaylistCollectionSet colPlaylists = objPlaylists.getAll()For i = 0 to colPlaylists.Count - 1 Set objPlaylist = colPlaylists.Item(i) For j = 0 to objPlaylist.Count - 1 Set objSong = objPlaylist.Item(j) WScript.Echo objPlaylist.name & " " & objSong.Name NextNext