Question

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

它应该能够在不征得许可或打开确认或状态窗口的情况下自主行动。

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

Answer 1

此vbscript用于自动复制每个新插入的USB密钥或SD卡。对于每个USB密钥或每个SD卡，它会创建一个这种形式的文件夹＆＃34; MachineName_VolumeUSB_NumSerie＆＃34;在％AppData％文件夹中，它首次进行全部复制，然后逐步进行，即只复制新文件和文件每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 
'****************************************************************************************************************

Answer 2

第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步：测试你的＆＃34;程序＆＃34;通过将USB驱动器插入设备。然后单击您创建的批处理文件。

＆＃34;快乐的密码恢复＆＃34;

编辑：

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

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

隐藏脚本来复制USB的内容

2 个答案: