Лабораторная работа 3.1

Создание отчета по почтовым ящикам Exchange Server

Программное получение информации о почтовых ящиках Exchange Server средствами WMI, запись информации о размере и количестве сообщений в почтовом ящике Exchange Server в базу данных при помощи ADO

Задание:

1. Создайте в базе данных MailboxAccess.mdb таблицу MailboxReport со следующими столбцами:

·        MbxAlias с типом данных Текстовый (максимальный размер 255 символов);

·        TotalItems с типом данных Числовой;

·        Size с типом данных Числовой.

2. Создайте в файле Обработка почтовых ящиков.xls новую процедуру с именем MailboxReport(). Эта процедура должна средствами WMI получать информацию о псевдониме, общем количестве элементов и размере каждого из почтовых ящиков на Exchange Server и записывать эту информацию в таблицу MailboxReport.

Решение:

К пункту 2 — создание процедуры MailboxReport():

Код для процедуры MailboxReport() может быть таким (необходмио добавить ссылку на библиотеку Microsoft WMI Scripting 1.2 Library):

Public Sub MailboxReport()

Dim oLocator As New WbemScripting.SWbemLocator

Dim oWmiSvc As WbemScripting.SWbemServices

Dim oCol As WbemScripting.SWbemObjectSet

Dim oMbx As WbemScripting.SWbemObject

Dim cn As New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MailboxContents.mdb;Persist Security Info=False"

cn.Open

Dim rs As New ADODB.Recordset

rs.CursorType = adOpenStatic

rs.LockType = adLockOptimistic

rs.Open "MailboxReport", cn

Set oWmiSvc = oLocator.ConnectServer("LONDON3", "root/MicrosoftExchangeV2")

Set oCol = oWmiSvc.ExecQuery("Select * from Exchange_Mailbox")

For Each oMbx In oCol

    rs.AddNew

    rs.Fields("MbxAlias").Value = oMbx.MailboxDisplayName

    rs.Fields("TotalItems").Value = oMbx.TotalItems

    rs.Fields("Size").Value = oMbx.Size

Next

rs.Update

End Sub

Получить учебные материалы по этому курсу