Как раз конкатенируйте необходимые шнуры, настолько что-то как:
Установите objNetwork = CreateObject («WScript.Network»)
strUserName = objNetwork.UserName
strFrom = «\ \ сервер \ доля старая \» & strUserName & «.domain \ скоросшиватель»
strTo = «\ \ сервер \ доля новая \» & strUserName & «.domain \ скоросшиватель»
~bp