Set Spot = WScript.CreateObject("WScript.Shell")
Comandline = "C:\Users\nicn6\AppData\Roaming\Spotify\Spotify.exe"
WScript.sleep 500
CreateObject("WScript.Shell").Run("spotify:playlist:37i9dQZF1DX2SK4ytI2KAZ")
WScript.sleep 3000
Spot.SendKeys "{ENTER}"
WScript.sleep 100
Spot.SendKeys "^{RIGHT}"