' Kod przenosi skrzynk pocztow
' ------ KONFIGURACJA SKRYPTU ------
strUserDN  = "<NazwaWyrniajcaUytkownika>" ' np. cn=jnowak,cn=Users,dc=rallencorp,dc=com 
strServer  = "<SerwerExchange>"               ' np. ExchServer2
strSGName  = "<NazwaGrupyMagazynowej>"        ' np. SG1
strMailStoreName = "<NazwaMagazynuSkrzynek>"  ' np. DB1
' ------ KONIEC KONFIGURACJI ---------
' Identyfikowanie adresu URL grupy magazynowej i generowanie adresu URL magazynu skrzynek.
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   
      exit for
   end if
next 
strMBUrl = "LDAP://cn=" & strMailStoreName & "," & strSGUrl

' Podczenie skrzynki do uytkownika i przeniesienie jej.
set objUser = GetObject("LDAP://" & strUserDN)
objUser.MoveMailbox(strMBUrl)
Wscript.Echo "Z powodzeniem przeniesiono skrzynk pocztow."
