Este script lo desarrolle hace mas de un año, creo que es lo que buscas, lo que hace es obtener las direcciones del messenger y informacion relacionada con cada uno de los contactos.
Te dejo los comentarios sobre parte del codigo que no consegui que funcionasen.
<html>
<head>
<script LANGUAGE="VBScript">
Sub Cuenta()
msgbox "Mi status es " & IMessenger.MyStatus
If IMessenger.MyStatus<> 1 Then
'esto abre el correo electronico de mi cuenta
'IMessenger.OpenInbox
msgbox "Mi nombre mostrado " & IMessenger.MyFriendlyName
msgbox "MyServiceId " & IMessenger.MyServiceId
msgbox "MyServiceName " & IMessenger.MyServiceName
msgbox "MySigninName " & IMessenger.MySigninName
' ESTOS NO FUNCIONAN
'msgbox "MyPhoneNumber " & IMessenger.MyPhoneNumber
'msgbox "MyProperty " & IMessenger.MyProperty
'msgbox "ReceivedFileDirectory " & IMessenger.ReceivedFileDirectory
'msgbox "Services " & IMessenger.Services
'msgbox "UnreadEmailCount " & IMessenger.UnreadEmailCount
'msgbox "Window " & IMessenger.Window
dim Mis_contactos
Set Mis_contactos = IMessenger.MyContacts
msgbox "Tengo " & Mis_contactos.Count & " contactos"
for each contacto in Mis_contactos
' ESTOS FUNCIONAN
msgbox contacto.signinname ' direccion de email
msgbox contacto.FriendlyName ' nombre mostrado contacto
msgbox contacto.Status ' estado contacto
'CON ESTE INICIO UN MENSAJE
'IMessenger.InstantMessage (contacto.signinname)
'CON ESTE INICIO UNA CONVERSAION DE VOZ
'IMessenger.StartVoice (contacto.signinname)
Select Case (contacto.Status)
Case 1
msgbox contacto.FriendlyName & " Offline"
Case 2
msgbox contacto.FriendlyName & " Online"
Case 6
msgbox contacto.FriendlyName & " Invisible"
Case 10
msgbox contacto.FriendlyName & "Busy"
Case 14
msgbox contacto.FriendlyName & " Be Right Back"
Case 18
msgbox contacto.FriendlyName & " Idle"
Case 34
msgbox contacto.FriendlyName & " Away"
Case 50
msgbox contacto.FriendlyName & " On the Phone"
Case 66
msgbox contacto.FriendlyName & " Out to Lunch"
Case Else
msgbox contacto.FriendlyName & " Unknown"
End Select
msgbox "contacto.Blocked " & contacto.Blocked
msgbox "contacto.CanPage " & contacto.CanPage
msgbox "contacto.IsSelf " & contacto.IsSelf
msgbox "contacto.ServiceID " & contacto.ServiceID
msgbox "contacto.ServiceName " & contacto.ServiceName
msgbox "contacto.SigninName " & contacto.SigninName
' ESTOS NO FUNCIONAN
'msgbox "contacto.IDsOfNames " & contacto.IDsOfNames
'msgbox "contacto.TypeInfo " & contacto.TypeInfo
'msgbox "contacto.TypeInfoCount " & contacto.TypeInfoCount
'msgbox "contacto.PhoneNumber " & contacto.PhoneNumber
'msgbox "contacto.Property " & contacto.Property
next
else
' No funciona, para automaticamente logearse con la ultima credencial usada en el equipo
'IMessenger.AutoSignin
end if
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>