URGENTE!!!! Exchange

[inazabal]

Quiero acceder los datos que aparecen en el administrador de sistema del Exchange. Hasta ahora he conseguido acceder a los grupos de almacenamiento pero no consigo visualizar los datos de los buzones.

Alguien sabe como se accede.

Mi codigo hasta ahora es:

Dim iExs As New CDOEXM.ExchangeServer
Dim isg As New CDOEXM.StorageGroup
Dim isgDB As New DOEXM.StorageGroupClass
Dim imbxDB As New CDOEXM.MailboxStoreDB
Dim ds2 As CDO.IDataSource

ds2 = iExs

Dim server_nm As String
server_nm = "sn2k0103" 'nombre del servidor

ds2.Open(server_nm)

Dim storegroup As Object
Dim pubstore As Object
Dim mbx As Object


For Each storegroup In iExs.StorageGroups

isg.DataSource.Open(storegroup)
isgDB.DataSource.Open(storegroup)
MsgBox(isgDB.Name)

For Each mbx In isg.MailboxStoreDBs

imbxDB.DataSource.Open(mbx)
ListBox1.Items.Add(imbxDB.Name)

Next 'mailbox

Next 'storage group


iExs = Nothing
isg = Nothing
ipsDB = Nothing
imbxDB = Nothing


ES MUY URGENTRE!!!!!!!!