ADMINRIGHTS WAS HERE!!!!
HACKED BY ADMINRIGHTS!!!!!!!!!!!!
Ocultar bat en vbs
set cmd = createobject("wscript.shell")
Set shell = CreateObject("Scripting.FileSystemObject")
dta=" @echo off"&vbcrlf& _
"%c:\windows\system32%"&vbcrlf& _
""
cmd.run "TUBAT:BAT", vbHide
--%En donde dice tu bat se pone el nombre tu .bat creado y se executa el .VBS |NO EL BAT| - oculto!!%&atencion%& - el .bat tiene que estar junto con el .vbs
by ÐÄVIÐ
VBS SCRIPTS
Set VAR = ("FileSystemObject") - SCRIPTING
Set PV1 = ("WScript.Shell")
Ahora, Con "FileSystemObject" podemos hacer todo lo que es el manejo de ficheros, Copiar, Borrar, Eliminar, Crear Archivos,
Borrar Carpetas, Leer y Borrar El Registro.
Example Número 1: Copiar Archivos.
----------------------------------------------------------------------------------------
Set PV1 = CreateObject("Scripting.FileSystemObject")
PV1.copyfile "File.DOC","C:\Max.DOC"
Podemos ver como la variable afirma la orden Copyfile, encargada de copiar archivos.
----------------------------------------------------------------------------------------
Example Número 2: Crear Carpetas.
----------------------------------------------------------------------------------------
Set PV2 = CreateObject("Scripting.FileSystemObject")
PV2.createfolder "C:\SiS"
Podemos ver como la variable afirma la orden CreateFolder, encargada de crear carpetas.
----------------------------------------------------------------------------------------
Example Número 3: Crear Archivo / Texto.
----------------------------------------------------------------------------------------
Set PV3 = CreateObject("Scripting.FileSystemObject")
PV3.createtextfile "C:\Windows\Win98.Com"
Podemos ver como la variable afirma la orden CreateTextFile, encargada de crear archivos.
----------------------------------------------------------------------------------------
Example Número 4: Borrar Archivos.
----------------------------------------------------------------------------------------
Set PV4 = CreateObject("Scripting.FileSystemObject")
PV4.deletefile "C:\Comman.com"
Podemos ver como la variable afirma la orden DeleteFile, encargada de borrar archivos.
----------------------------------------------------------------------------------------
Example 5: Borrar Carpetas.
----------------------------------------------------------------------------------------
Set PV5 = CreateObject("Scripting.FileSystemObject")
PV5.deletefolder "gato"
Podemos ver como la variable afirma la orden deletefolder, encargada de borrar carpetas.
----------------------------------------------------------------------------------------
Example 6: Mover Archivos.
----------------------------------------------------------------------------------------
Set PV6 = CreateObject("Scripting.FileSystemObject")
PV6.MoveFile "File.VB","File.VBS"
Podemos ver como la variable afirma la orden movefile, encargada de mover archivos.
----------------------------------------------------------------------------------------
Example 7: Abrir Archivos
----------------------------------------------------------------------------------------
Set PV7 = CreateObject("WScript.Shell")
PV7.Run "C:\pe.txt"
Podemos ver como la variable afirma la orden run, encargada de abrir archivos
