Messenger API (version 6) in VBScript

[adzzzz]

Hi, I'm trying to list my MSN contacts in a local webpage via VBS, I've successfully created the MSN object but trouble arises when I try to extract property values from the 'contacts'; of which I'm beginning to believe aren't actually being created.
Heres the code I'm using:

Dim oMSN
    Set oMSN = CreateObject("Messenger.UIAutomation")
    
    Dim i, oContact, oContacts
    Set oContacts = oMSN.MyContacts
 
    For i = 0 To oContacts.Count - 1
        Set oContact = oContacts.Item(i)
        MsgBox oContact.FriendlyName
    Next

Any help highly appreciated, cheers.
-adehh