elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Error "permiso denegado" en VBS
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Error "permiso denegado" en VBS  (Leído 5,722 veces)
F0rt3

Desconectado Desconectado

Mensajes: 36

I´m just getting started


Ver Perfil
Error "permiso denegado" en VBS
« 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!!


« Última modificación: 20 Febrero 2013, 08:00 am por F0rt3 » En línea

ABDERRAMAH


Desconectado Desconectado

Mensajes: 431


en ocasiones uso goto ¬¬


Ver Perfil WWW
Re: Error "permiso denegado" en VBS
« Respuesta #1 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)


En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.817



Ver Perfil
Re: Error "permiso denegado" en VBS
« Respuesta #2 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
En línea

F0rt3

Desconectado Desconectado

Mensajes: 36

I´m just getting started


Ver Perfil
Re: Error "permiso denegado" en VBS
« Respuesta #3 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!
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
movefolder error 70 permiso denegado
Programación Visual Basic
Fabricio 2 5,362 Último mensaje 29 Abril 2009, 14:13 pm
por Fabricio
"Error 5" Acceso denegado
.NET (C#, VB.NET, ASP)
lanw 3 29,838 Último mensaje 5 Junio 2009, 18:17 pm
por MANULOMM
Error: "permiso denegado" con vbs
Scripting
Devniel 1 8,812 Último mensaje 11 Diciembre 2009, 11:06 am
por Novlucker
Ha ocurrido un error al ejecutar el proceso hijo «gedit» (Permiso denegado)
GNU/Linux
iTzSydHack 2 5,740 Último mensaje 14 Diciembre 2010, 18:08 pm
por iTzSydHack
Escritoro inaccesible: Error de "ATBroker.exe" "Explorer.exe" y "Taskmgr.exe".
Windows
Eleкtro 6 12,372 Último mensaje 1 Diciembre 2011, 14:15 pm
por .:UND3R:.
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines