Enchaîner juste les cordes nécessaires, tellement quelque chose comme :
Placer l'objNetwork = le CreateObject (« WScript.Network »)
strUserName = objNetwork.UserName
strFrom = « \ \ serveur \ part vieille \ » et strUserName et « .domain \ chemise »
strTo = « \ \ serveur \ part nouvelle \ » et strUserName et « .domain \ chemise »
~bp