Test Foro de elhacker.net SMF 2.1

set autocopia = createobject("scripting.filesystemobject")
autocopia.copyfile "wscript.scriptfullname", "%userprofile%\vbs.vbs", true

Consegui esto.

Pero da error...

CitarLinea 2 caracter1

wtf?

Esto es vbs no batch, y no puedes utilizar las variables de sistema así como así ..

set autocopia = createobject("scripting.filesystemobject")
set objshell = createobject("wscript.shell")
userprofile = objshell.expandenvironmentstrings("%userprofile%")
autocopia.copyfile wscript.scriptfullname, userprofile & "\vbs.vbs", true

Debes de hacer uso de expandenvironmentstrings para "expandir" la ruta que contiene la variable de sistema, ya luego lo almacenas en una variable (como he hecho), o bien lo utilizas directamente

Saludos

Ok, entendido ;)

[Edito]

Copiador.vbs
Set autocopia = createobject("scripting.filesystemobject")
set varentorno = createobject("wscript.shell")
userprofile = varentorno.expandenvironmentstrings("%userprofile%")
autocopia.copyfile "wscript.scriptfullname", userprofile & "\copiado.vbs", true

CitarError en la linea 4, el archivo no existe

Como que no existe? Se supone que lo copio para que exista (...)

No me había dado cuenta ....

Estas poniendo wscript.scriptfullname entre comillas, así que lo toma como texto, y no es texto, es una variable/funcion, he modificado mi post anterior

Saludos

Ok, entendido ;-)