Esto es lo maximo que he conseguido:
IMessenger.MyStatus es igual a 2 cuando estas conectado al Msn
Con esto se obtiene el numero de contactos y las direcciones de email,
aunque no es Asp, a veces funciona y a veces produce error, a ver si entre todos conseguimos avanzar
<html>
<head>
<script LANGUAGE="VBScript">
Sub Cuenta()
msgbox "Mi status es " & IMessenger.MyStatus
dim Mis_contactos
Set Mis_contactos = IMessenger.MyContacts
msgbox "Tengo " & Mis_contactos.Count & " contactos"
for each contacto in Mis_contactos
msgbox contacto.signinname
next
End Sub
</script>
</head>
<OBJECT classid=clsid:B69003B3-C55E-4B48-836C-BC5946FC3B28
codeType=application/x-oleobject id=IMessenger width=0 height=0 VIEWASTEXT></OBJECT>
<body>
<a href="#" onclick="vbscript
:Cuenta()">veamos</a>
</body>