dim wshshell,objWMIService,colItems,objItem,ID,test

set WshShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") 
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process where CommandLine LIKE  '%Winamp.exe%'",,48)

For Each objItem in colItems 
    PID = objItem.ProcessID  
Next

test = WshShell.AppActivate(PID)
if test = True then
    WshShell.SendKeys "%^{q}"
end if