Copiar un script de Visual Basic

[e]

Hola a todos,
¿Cómo se podría copiar un script de Visual Basic a la ruta:

%USERPROFILE%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup?

Es decir,que al ejecutar el script el propio script se copie a sí mismo en el menú de inicio...
Muchísmias gracias.

[Flamer]

en vb6 es asi

Código (vb) [Seleccionar] Expandir


FileCopy App.Path & "\" & App.ExeName & ".exe", "c:\virus.exe"


pero si hablas de scritp creo que dises de vbscript y no de vb6, bueno seria asi en vscript

Código (vb) [Seleccionar] Expandir


dim fso
set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile wscript.scriptfullname,"c:\virus.vbs"


bueno saludos Flamer

[e]

¡Gracias Flamer!
Me ha servido,aunque hace falta ejecutarlo en modo admin.
Pues eso.
Gracias,
fox459

[Flamer]

primero sácame de la duda para poderte ayudar es en vb6 o es en vbscript

pero te cuento que para ejecutarlo en modo admin tendrías que engañar o sea hacer que la persona lo ejecute y le otorgue el permiso

[e]

¡Hola Flamer!
Perdona por tardar tanto pero se me olvidó
Es en vbscript...
Y en lo de engañar podré,lo convierto a ejecutable y lo hago pasar por algo.
¡Gracias!
fox459