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!!!!!!!!
