TUTTO FATTO!!!

Per chi interessa posto 2 righe per un approccio su MSN Messenger.
E' scritto in VFP ma è comprensibilissimo

oMsn=CREATEOBJECT("Messenger.UIAutomation.1")
IF oMsn.MyStatus=2 && connesso. con 1 non è connesso gli altri sono da scoprire
MyAlias=oMsn.MyFriendlyName
MyMail=oMsn.MySigninName
? Myalias,MyMail
oMsnGroup=oMsn.MyContacts()
NrContacts=oMsnGroup.Count()
FOR i=0 TO (NrContacts-1)
oContact=oMsnGroup.Item(i)
Alias=oContact.FriendlyName()
Mail=oContact.SigninName()
? alias,Mail
NEXT
ENDIF
oMsn=""