Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: xassiz_ en 15 Septiembre 2009, 16:28 pm



Título: {Resuelto} [vbs] Problema con autocopiar
Publicado por: xassiz_ en 15 Septiembre 2009, 16:28 pm
Código:
set autocopia = createobject("scripting.filesystemobject")
autocopia.copyfile "wscript.scriptfullname", "%userprofile%\vbs.vbs", true

Consegui esto.

Pero da error...

Citar
Linea 2 caracter1

wtf?


Título: Re: [vbs] Problema con autocopiar
Publicado por: Novlucker en 15 Septiembre 2009, 16:40 pm
Esto es vbs no batch, y no puedes utilizar las variables de sistema así como así ..

Código
  1. set autocopia = createobject("scripting.filesystemobject")
  2. set objshell = createobject("wscript.shell")
  3. userprofile = objshell.expandenvironmentstrings("%userprofile%")
  4. 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


Título: Re: [vbs] Problema con autocopiar
Publicado por: xassiz_ en 15 Septiembre 2009, 16:40 pm
Ok, entendido ;)

[Edito]

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

Citar
Error en la linea 4, el archivo no existe

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


Título: Re: [vbs] Problema con autocopiar
Publicado por: Novlucker en 15 Septiembre 2009, 16:49 pm
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


Título: Re: [vbs] Problema con autocopiar
Publicado por: xassiz_ en 15 Septiembre 2009, 20:45 pm
Ok, entendido ;-)