Salut tout le monde,
Voila en ce moment je suis sur un problème épineux... enfin pas si piquant mais qui me travaille l'esprit ...
Notre organisation est composée de plusieurs serveurs exchange 2003 avec les bons sp3 qu'il faut ect ... bon mais dans les groupe de stockage et les banque d'info c'est le CHAOS le plus total ^^ Du coup on me demande de réaliser une base de script qui servirait à déplacer de manière automatique des mailboxes vers des nouveaux groupes de stockage et des nouvelles banques d'infos vides sur les serveurs exchange deja présents et ce en WSH ...
J'ai pas mal fouillé sur le technet et des sites spécialisés, malheureusement j'ai vraiment pas trouver grand chose sur le sujet ... on retrouve surtout des scripts qui permettent de bouger des mailboxes vers des nouvelles versions d exchange ect ... bref rien qui m'interesse ! j'ai tout de meme trouver un truc interessant que j'ai tester sur un réseau de test, mais avec des boites mails quasiment vides et donc pas vraiment pertinent ...
Je vais vous poster le code de mon script plus bas, ce que je vous demande enfait, c'est surtout de me dire si la méthode que je compte utiliser est la bonne, ou si je vais droit dans le mur !!
Ou bien si il existe une autre méthode plus efficace, ou si au final il vaut mieux faire ca avec le Wizzard exchange donc à la main !! Ou encore mieux si avez un script qui pourrait m'aider !
' This code moves a mailbox.
Option Explicit
Dim strUserDN, strServer, strSGName, strMailStoreName, strSearch, truc, machin, user, biz
Dim objSrv, strSg, strSGUrl, strMBUrl, objUser
' ------ SCRIPT CONFIGURATION ------
strUserDN = "CN=toto,OU=Utilisateurs,OU=ADM,OU=IRSN,DC=intra,DC=stratus,DC=local" ' e.g. cn=DrAmy,cn=Users,dc=mycorp,dc=com
strServer = "EXCH1" ' e.g. ExchServer2
strSGName = "GRPSTCK2" ' groupe de stockage destination
strMailStoreName = "BQPRIV21" ' banque d'information destination
truc="tztz;tete;tata;tutu;titi;toto;baba;bebe;bibi;bobo"
' ------ END CONFIGURATION ---------
' Find Storage Group URL and Generate Mailbox Store URL
user = split(truc, ";")
For each biz in user
strUserDn = "CN=" & biz & ",OU=Utilisateurs,OU=ADM,OU=IRSN,DC=intra,DC=stratus,DC=local"
wscript.echo strUserDn
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
' Attach to user and move mailbox
Set objUser = GetObject("LDAP://" & strUserDN)
objUser.MoveMailbox(strMBUrl)
Next
WScript.Echo "Successfully moved mailbox."
ALors evidement ensuite je compte me baser sur une liste d'utilisateur externe ( base de donnée, ou fichier excel ... pas encore vraiment décider bref c pas le plus important ! )
Merci pour vos futurs réponses !