Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: F0rt3 en 20 Febrero 2013, 07:59 am



Título: Error "permiso denegado" en VBS
Publicado por: F0rt3 en 20 Febrero 2013, 07:59 am
 tiene mucho que deje esto del scripting y ando retomando lo que sabia, así que hago códigos tontos como un loop que cree txt infinitas, pero me da un error.:
"Línea: 5
Caractér: 1
Error: Permiso denegado
Código: 800A0046"


Les dejo aqui el código

Código:
do
dim var
var = 0
set objfso = createobject("scripting.filesystemobject")
set archivotexto = objfso.createtextfile("C:\Users\****\desktop\&var.txt",true)
archivotexto.writeline "hola mundo"
archivotexto.writeblanklines(2)
archivotexto.writeline "Odio ir a la escuela"
archivotexto.close
var = var + 1
loop


Y tengo otra duda, me gustaría que los archivos creados se llamaran 0,1,2,3, así que utilicé el & var para citar el valor de la variable, el cual iria aumentando y crearía infinitos archivos del 0 hasta donde llegue, aun así me parece que está mal el código independientemente del error de permiso denegado.


¿A qué se debe esto del permiso denegado?
¿Cómo puedo hacer que cree archivos infinitos de texto citando el valor de var?

Saludos!!


Título: Re: Error "permiso denegado" en VBS
Publicado por: ABDERRAMAH en 20 Febrero 2013, 08:10 am
Prueba así, no se si será el único fallo, pero bueno.

Citar
set archivotexto = objfso.createtextfile("C:\Users\****\desktop\"&var&".txt",true)


Título: Re: Error "permiso denegado" en VBS
Publicado por: Eleкtro en 20 Febrero 2013, 13:19 pm
No hay ningún error en esa línea, sin tener en cuenta que la variable no la puedes usar entre comillas, pero el código funciona,
si buscas en Google la referencia del código de error verás como se refiere a los permisos de usuario sobre la carpeta (Ejecuta el script como administrador y ya.).

Pero aparte, si no sacas la variable del búcle, no puedes aumentar el valor.

Código
  1. var = 0
  2.  
  3. do
  4.    set objfso = createobject("scripting.filesystemobject")
  5.    set archivotexto = objfso.createtextfile("C:\Users\administrator\desktop\" & var & ".txt",true)
  6.    archivotexto.writeline "hola mundo"
  7.    archivotexto.writeblanklines(2)
  8.    archivotexto.writeline "Odio ir a la escuela"
  9.    archivotexto.close
  10.    var = var + 1
  11. loop

Saludos


Título: Re: Error "permiso denegado" en VBS
Publicado por: F0rt3 en 20 Febrero 2013, 18:52 pm
Esto fue demasiado extraño, saqué la declaración de var del búcle, y corregí la sintaxix para citar &var& y ya funcionó, no tuve que ejecutar como administrador.


Muchas gracias!