' Kod tworzy grup magazynow
' ------ KONFIGURACJA SKRYPTU ------
strServer = "<SerwerExchange>"          ' np. ExchServer2
strName   = "<NazwaGrupyMagazynowej>"   ' np. SG1
strPath   = "<ciekaPliku>" & strName  ' np. D:\Program Files\ExchSrvr
' ------ KONIEC KONFIGURACJI ---------

' Definiowanie adresu URL grupy magazynowej
set objSrv = CreateObject("CDOEXM.ExchangeServer")
objSrv.DataSource.Open strServer

' Ponisza ptla for pobiera ze zbioru pierwsz grup magazynow.
' Jzyk VBScript nie pozwala uzyska dostpu do okrelonych
' elementw zbioru w sposb, w jaki umoliwia to jzyk JScript.
for each strSg in objSrv.StorageGroups
   strTemp = strSg
   exit for
next 
strTemp = mid(strTemp,instr(2,strTemp,"cn",1))
strSGUrl = "LDAP://cn=" & strName & "," & strTemp

' Tworzenie/konfigurowanie grupy magazynowej i zapisywanie jej.
set objSG = CreateObject("CDOEXM.StorageGroup")
objSG.MoveSystemFiles(strPath)
objSG.MoveLogFiles(strPath)
objSG.DataSource.SaveTo strSGUrl
Wscript.Echo "Z powodzeniem utworzono grup magazynow."
