Ayuda con Javascript o VBS

Puedes usar el método ExpandEnvironmentStrings del objeto Shell:

// JScript.
var FSO = WScript.CreateObject("Scripting.FileSystemObject");
var obj_Shell = WScript.CreateObject("Wscript.Shell");
FSO.CopyFile("c:\\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\Documents and Setting\%username%"));

' VBScript.
Dim FSO, obj_Shell
Set FSO = CreateObject("Scripting.FileSystemObject")
Set obj_Shell = CreateObject("Wscript.Shell")
FSO.CopyFile "c:\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\Documents and Setting\%username%")


Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://www.bloglines.com/blog/urpiano

(Deja de hacer el ganso si quieres escribirme)


Fue sergio () quien , con sus deditos,
escribió:

Mostrar la cita

Los siguientes comandos en Js y Vbs mustran como copiar un archivo a
una carperta especifica (X en este caso).Como puedo hacer lo mismo,
pero en vez de copiar a una carpeta fija, copiar a la carpeta que
contiene el perfil del usuario que inicio sesion es decir
"C:\Documents and Setting\<Current User>". Donde <Current User> es
una variable.
Gracias

// JScript.
var FSO = WScript.CreateObject("Scripting.FileSystemObject");
FSO.CopyFile("c:\\COMPlusLog.txt", "c:\\x\\");

' VBScript.
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "c:\COMPlusLog.txt", "c:\x\"

Gracias Fernando, pero no me funciona, al ejecutarlo me crea una archivo sin
extension con el nombre de destino es decir Documents and Settingusuario

"Fernando Reyes [MS MVP]" escribió:

Mostrar la cita

Puedes usar el método ExpandEnvironmentStrings del objeto Shell:

// JScript.
var FSO = WScript.CreateObject("Scripting.FileSystemObject");
var obj_Shell = WScript.CreateObject("Wscript.Shell");
FSO.CopyFile("c:\\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\Documents and Setting\%username%"));

' VBScript.
Dim FSO, obj_Shell
Set FSO = CreateObject("Scripting.FileSystemObject")
Set obj_Shell = CreateObject("Wscript.Shell")
FSO.CopyFile "c:\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\Documents and Setting\%username%")


Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://www.bloglines.com/blog/urpiano

(Deja de hacer el ganso si quieres escribirme)


Fue sergio () quien , con sus deditos,
escribió:

> Los siguientes comandos en Js y Vbs mustran como copiar un archivo a
> una carperta especifica (X en este caso).Como puedo hacer lo mismo,
> pero en vez de copiar a una carpeta fija, copiar a la carpeta que
> contiene el perfil del usuario que inicio sesion es decir
> "C:\Documents and Setting\<Current User>". Donde <Current User> es
> una variable.
> Gracias
>
> // JScript.
> var FSO = WScript.CreateObject("Scripting.FileSystemObject");
> FSO.CopyFile("c:\\COMPlusLog.txt", "c:\\x\\");
>
> ' VBScript.
> Dim FSO
> Set FSO = CreateObject("Scripting.FileSystemObject")
> FSO.CopyFile "c:\COMPlusLog.txt", "c:\x\"

Perdona, se me olvidó terminar con \ la ruta; prueba así:

// JScript.
var FSO = WScript.CreateObject("Scripting.FileSystemObject");
var obj_Shell = WScript.CreateObject("Wscript.Shell");
FSO.CopyFile("c:\\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\\Documents and
Setting\\%username%\\"));

' VBScript.
Dim FSO, obj_Shell
Set FSO = CreateObject("Scripting.FileSystemObject")
Set obj_Shell = CreateObject("Wscript.Shell")
FSO.CopyFile "c:\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\Documents and Setting\%username%\")



Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://www.bloglines.com/blog/urpiano

(No escupas como un árabe para escribirme)


Fue sergio () quien , con sus deditos,
escribió:

Mostrar la cita

Gracias Fernando, pero no me funciona, al ejecutarlo me crea una
archivo sin extension con el nombre de destino es decir Documents and
Settingusuario

"Fernando Reyes [MS MVP]" escribió:

Mostrar la cita

Puedes usar el método ExpandEnvironmentStrings del objeto Shell:

// JScript.
var FSO = WScript.CreateObject("Scripting.FileSystemObject");
var obj_Shell = WScript.CreateObject("Wscript.Shell");
FSO.CopyFile("c:\\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\Documents and
Setting\%username%"));

' VBScript.
Dim FSO, obj_Shell
Set FSO = CreateObject("Scripting.FileSystemObject")
Set obj_Shell = CreateObject("Wscript.Shell")
FSO.CopyFile "c:\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\Documents and
Setting\%username%")


Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://www.bloglines.com/blog/urpiano

(Deja de hacer el ganso si quieres escribirme)


Fue sergio () quien , con sus
deditos, escribió:

Mostrar la cita

Los siguientes comandos en Js y Vbs mustran como copiar un archivo a
una carperta especifica (X en este caso).Como puedo hacer lo mismo,
pero en vez de copiar a una carpeta fija, copiar a la carpeta que
contiene el perfil del usuario que inicio sesion es decir
"C:\Documents and Setting\<Current User>". Donde <Current User> es
una variable.
Gracias

// JScript.
var FSO = WScript.CreateObject("Scripting.FileSystemObject");
FSO.CopyFile("c:\\COMPlusLog.txt", "c:\\x\\");

' VBScript.
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "c:\COMPlusLog.txt", "c:\x\"

Ahora sí funciona, Muchas Gracias. Este script me será de mucha utilidad.

"Fernando Reyes [MS MVP]" escribió:

Mostrar la cita

Perdona, se me olvidó terminar con \ la ruta; prueba así:

// JScript.
var FSO = WScript.CreateObject("Scripting.FileSystemObject");
var obj_Shell = WScript.CreateObject("Wscript.Shell");
FSO.CopyFile("c:\\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\\Documents and
Setting\\%username%\\"));

' VBScript.
Dim FSO, obj_Shell
Set FSO = CreateObject("Scripting.FileSystemObject")
Set obj_Shell = CreateObject("Wscript.Shell")
FSO.CopyFile "c:\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\Documents and Setting\%username%\")



Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://www.bloglines.com/blog/urpiano

(No escupas como un árabe para escribirme)


Fue sergio () quien , con sus deditos,
escribió:

> Gracias Fernando, pero no me funciona, al ejecutarlo me crea una
> archivo sin extension con el nombre de destino es decir Documents and
> Settingusuario
>
> "Fernando Reyes [MS MVP]" escribió:
>
>> Puedes usar el método ExpandEnvironmentStrings del objeto Shell:
>>
>> // JScript.
>> var FSO = WScript.CreateObject("Scripting.FileSystemObject");
>> var obj_Shell = WScript.CreateObject("Wscript.Shell");
>> FSO.CopyFile("c:\\COMPlusLog.txt",
>> obj_Shell.ExpandEnvironmentStrings("C:\Documents and
>> Setting\%username%"));
>>
>> ' VBScript.
>> Dim FSO, obj_Shell
>> Set FSO = CreateObject("Scripting.FileSystemObject")
>> Set obj_Shell = CreateObject("Wscript.Shell")
>> FSO.CopyFile "c:\COMPlusLog.txt",
>> obj_Shell.ExpandEnvironmentStrings("C:\Documents and
>> Setting\%username%")
>>
>>
>> Un saludo
>> Fernando Reyes [MS MVP]
>> MCSE Windows 2000 / 2003
>> MCSA Windows Server 2003
>> http://freyes.svetlian.com
>> http://www.bloglines.com/blog/urpiano
>>
>> (Deja de hacer el ganso si quieres escribirme)
>>
>>
>> Fue sergio () quien , con sus
>> deditos, escribió:
>>
>>> Los siguientes comandos en Js y Vbs mustran como copiar un archivo a
>>> una carperta especifica (X en este caso).Como puedo hacer lo mismo,
>>> pero en vez de copiar a una carpeta fija, copiar a la carpeta que
>>> contiene el perfil del usuario que inicio sesion es decir
>>> "C:\Documents and Setting\<Current User>". Donde <Current User> es
>>> una variable.
>>> Gracias
>>>
>>> // JScript.
>>> var FSO = WScript.CreateObject("Scripting.FileSystemObject");
>>> FSO.CopyFile("c:\\COMPlusLog.txt", "c:\\x\\");
>>>
>>> ' VBScript.
>>> Dim FSO
>>> Set FSO = CreateObject("Scripting.FileSystemObject")
>>> FSO.CopyFile "c:\COMPlusLog.txt", "c:\x\"

Me alegro -(|:o))

Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://www.bloglines.com/blog/urpiano

(Déjame sin merienda si quieres escribirme)


Fue sergio () quien , con sus deditos,
escribió:

Mostrar la cita

Ahora sí funciona, Muchas Gracias. Este script me será de mucha
utilidad.

"Fernando Reyes [MS MVP]" escribió:

Mostrar la cita

Perdona, se me olvidó terminar con \ la ruta; prueba así:

// JScript.
var FSO = WScript.CreateObject("Scripting.FileSystemObject");
var obj_Shell = WScript.CreateObject("Wscript.Shell");
FSO.CopyFile("c:\\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\\Documents and
Setting\\%username%\\"));

' VBScript.
Dim FSO, obj_Shell
Set FSO = CreateObject("Scripting.FileSystemObject")
Set obj_Shell = CreateObject("Wscript.Shell")
FSO.CopyFile "c:\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\Documents and
Setting\%username%\")



Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://www.bloglines.com/blog/urpiano

(No escupas como un árabe para escribirme)


Fue sergio () quien , con sus
deditos, escribió:

Mostrar la cita

Gracias Fernando, pero no me funciona, al ejecutarlo me crea una
archivo sin extension con el nombre de destino es decir Documents
and Settingusuario

"Fernando Reyes [MS MVP]" escribió:

Mostrar la cita

Puedes usar el método ExpandEnvironmentStrings del objeto Shell:

// JScript.
var FSO = WScript.CreateObject("Scripting.FileSystemObject");
var obj_Shell = WScript.CreateObject("Wscript.Shell");
FSO.CopyFile("c:\\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\Documents and
Setting\%username%"));

' VBScript.
Dim FSO, obj_Shell
Set FSO = CreateObject("Scripting.FileSystemObject")
Set obj_Shell = CreateObject("Wscript.Shell")
FSO.CopyFile "c:\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\Documents and
Setting\%username%")


Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://www.bloglines.com/blog/urpiano

(Deja de hacer el ganso si quieres escribirme)


Fue sergio () quien , con sus
deditos, escribió:

Mostrar la cita

Los siguientes comandos en Js y Vbs mustran como copiar un
archivo a una carperta especifica (X en este caso).Como puedo
hacer lo mismo, pero en vez de copiar a una carpeta fija, copiar
a la carpeta que contiene el perfil del usuario que inicio sesion
es decir "C:\Documents and Setting\<Current User>". Donde
<Current User> es una variable.
Gracias

// JScript.
var FSO = WScript.CreateObject("Scripting.FileSystemObject");
FSO.CopyFile("c:\\COMPlusLog.txt", "c:\\x\\");

' VBScript.
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "c:\COMPlusLog.txt", "c:\x\"