Apenas concatenar as cordas necessários, tão algo como:
Ajustar o objNetwork = o CreateObject (“WScript.Network”)
strUserName = objNetwork.UserName
strFrom = “\ \ usuário \ parte velha \” & strUserName & “.domain \ dobrador”
strTo = “\ \ usuário \ parte nova \” & strUserName & “.domain \ dobrador”
~bp