Eso es facil solo hay que leer en el registro
Esto es para el 4
set sw = createobject ("WScript.shell")
msn4 = sw.regread("HKEY_CURRENT_USER\Software\Microsoft\MessengerService")
if msn4 <> 0 then
'existe el msn4
end if
Esto es para el 6
set sw = createobject ("WScript.shell")
msn6 = sw.regread("HKEY_CURRENT_USER\Software\Microsoft\MSN6")
if msn6 <> 0 then
'existe el msn6
end if
Y este creo que es para el 7 y 8( si no es asi haganmelo saber porfavor)
set sw = createobject ("WScript.shell")
msn7 = sw.regread("HKEY_CURRENT_USER\Software\Microsoft\MSNMessenger")
if msn7 <> 0 then
'existe el msn7
end if
Esta es una manera de saberlo, hay muchas mas ; viendo en el directorio de
archivos del programa, los accesos directos etc.
Bueno espero que te sirva
saludos
Autor