Set WshShell = CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files (x86)\iTunes\iTunes.exe""", 2

wscript.sleep 6000 

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'iTunes.exe'")

For Each objProcess in colProcessList
foobar = split (objProcess.Name, ".")
WshShell.AppActivate ( foobar(0) )
WshShell.SendKeys("%( )") '//equivalent of Alt+spacebar
WshShell.SendKeys("n") '//equivalent of n key 
Next