' Kod tworzy magazyn skrzynek pocztowych
' ------ KONFIGURACJA SKRYPTU ------
strServer  = "<SerwerExchange>"               ' np. ExchServer2
strSGName  = "<NazwaGrupyMagazynowej>"        ' np. SG1
strMailStoreName = "<NazwaMagazynuSkrzynek>"  ' np. DB1
' ------ KONIEC KONFIGURACJI ---------

' Okrelanie adresu URL grupy magazynowej.
strSearch = "CN=" & strSGName  & ","
set objSrv = CreateObject("CDOEXM.ExchangeServer")
objSrv.DataSource.Open strServer
for each strSg in objSrv.StorageGroups
   if (instr(1,strSg,strSearch,1)>0) then strSGUrl = strSg   
next 

' Generowanie adresu URL magazynu skrzynek
strMBUrl = "LDAP://CN=" & strMailStoreName & "," & strSGUrl

' Tworzenie/konfigurowanie magazynu skrzynek i zapisywanie jej
set objMb = CreateObject("CDOEXM.MailBoxStoreDB")
objMb.DataSource.SaveTo strMBUrl

' Podczanie bazy danych
objMB.Mount
Wscript.Echo "Z powodzeniem utworzono magazyn skrzynek pocztowych."
