Apenas concatenar las secuencias necesarias, tan algo como:
Fijar el objNetwork = CreateObject (“WScript.Network”)
strUserName = objNetwork.UserName
strFrom = “\ \ servidor \ parte vieja \” y strUserName y “.domain \ carpeta”
strTo = “\ \ servidor \ parte nueva \” y strUserName y “.domain \ carpeta”
~bp