Código:
<OBJECT classid=clsid:B69003B3-C55E-4B48-836C-BC5946FC3B28
codeType=application/x-oleobject id=IMessenger width=0 height=0 VIEWASTEXT></OBJECT>
<script LANGUAGE="VBScript">
Sub Cuenta()
dim Mis_contactos
Set Mis_contactos = IMessenger.MyContacts
msgbox "Tengo " & Mis_contactos.Count & " contactos"
End Sub
</script>
</head>
<body>
<a href="#" onclick="vbscript:Cuenta()">veamos</a>
</body>
Ahi que chutarse completo
esto