复制USB内容的隐藏脚本

Question

是否有 Windows 的程序或脚本（可能是 powershell，或 cmd）可以检测何时插入 USB 驱动器并将其内容复制到 PC 的硬盘驱动器中？

它应该能够在不请求许可或打开确认或状态的情况下自主行动windows。

我每次将它连接到机器时都需要它来创建驱动器的备份。

Answer 1

第 1 步：给自己准备一个 USB 驱动器。

第 2 步：下载工具列表。以获得更多结果。从以下位置下载每个工具：http://www.nirsoft.net/utils/index.html#password_utils

第 2 步：创建包含行的批处理文件 start filename /stext filename.txt

示例：start mspass.exe /stext mspass.txt

每个程序。

第 3 步：通过将 USB 驱动器插入设备来测试您的 "program"。然后单击您创建的批处理文件。

"happy password recovering"

编辑：

我在互联网上发现这个也很容易解释我刚刚在上面写的内容 + 更多

http://lifehacker.com/create-a-usb-password-stealer-to-see-how-secure-your-i-1650354166

Answer 2

此 vbscript 用于自动复制每个新插入的 USB 密钥或 sdcard。对于每个 USB 密钥或每个 sdcard，它都会在 %AppData% 文件夹中创建一个这种形式的文件夹 "MachineName_VolumeUSB_NumSerie" 并且它会第一次完全复制然后增量复制，即它只复制新文件和文件每 30 秒更改一次。

'Sauvegarde automatique des clés USB et SDCARD dés leurs insertion.
'Ce Programme sert à copier automatiquement chaque clé USB nouvellement insérée ou bien une SDCard.
'Il sert à faire des Sauvegardes incrémentielles de vos clés USB.
'Pour chaque clé USB, il crée un dossier de cette forme "NomMachine_NomVolumeUSB_NumSerie" dans le dossier %AppData% et
'il fait une copie totale pour la première fois, puis incrémentielle , càd ,il copie juste les nouveaux fichiers et les fichiers modifiés.
'Crée le 23/09/2014 © Hackoo
Option Explicit
Do
   Call AutoSave_USB_SDCARD()
   Pause(30)
Loop
'********************************************AutoSave_USB_SDCARD()************************************************
Sub AutoSave_USB_SDCARD()
   Dim Ws,WshNetwork,NomMachine,AppData,strComputer,objWMIService,objDisk,colDisks
   Dim fso,Drive,NumSerie,volume,cible,Amovible,Dossier,chemin,Command,Result
   Set Ws = CreateObject("WScript.Shell")
   Set WshNetwork = CreateObject("WScript.Network")
   NomMachine = WshNetwork.ComputerName
   AppData= ws.ExpandEnvironmentStrings("%AppData%")
   cible = AppData & "\"
   strComputer = "."
   Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
   Set colDisks = objWMIService.ExecQuery _
   ("SELECT * FROM Win32_LogicalDisk")

   For Each objDisk in colDisks
      If objDisk.DriveType = 2 Then
         Set fso = CreateObject("Scripting.FileSystemObject")
         For Each Drive In fso.Drives
            If Drive.IsReady Then
               If Drive.DriveType = 1 Then
                  NumSerie=fso.Drives(Drive + "\").SerialNumber
                  Amovible=fso.Drives(Drive + "\")
                  Numserie=ABS(INT(Numserie))
                  volume=fso.Drives(Drive + "\").VolumeName
                  Dossier=NomMachine & "_" & volume &"_"& NumSerie
                  chemin=cible & Dossier
                  Command = "cmd /c Xcopy.exe " & Amovible &" "& chemin &" /I /D /Y /S /J /C"
                  Result = Ws.Run(Command,0,True)
               end if
            End If   
         Next
      End If   
   Next
End Sub
'***************************************Fin du AutoSave_USB_SDCARD()*********************************************
'****************************************************************************************************************
Sub Pause(Sec)
   Wscript.Sleep(Sec*1000)
End Sub 
'****************************************************************************************************************

复制USB内容的隐藏脚本

Hidden script to copy content of USB

windows

backup

vbscript

powershell

batch-file