1. Загрузите
View any installed/connected USB device on your system соответствующей разрядности.
2. Создайте в каталоге %ProgramFiles% каталог USBDeview.
3. Извлеките в него содержимое загруженного архива (usbdeview.zip или usbdeview-x64.zip).
4. Создайте в том же каталоге файл «RunConnected.vbs» со следующим содержимым:
Скрытый текст
Код:
Option Explicit
Dim strDrive
Dim objFSO
Dim objFile
Dim bFound
Dim strResult
Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemObjectEx
If WScript.Arguments.Named.Count = 1 Then
If WScript.Arguments.Named.Exists("Drive") Then
strDrive = WScript.Arguments.Named.Item("Drive")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If objFSO.DriveExists(strDrive) Then
If objFSO.FolderExists("c:\Temp\видео") Then
bFound = False
strResult = ""
For Each objFile In objFSO.GetFolder(strDrive & "\").Files
If StrComp(objFSO.GetExtensionName(objFile.Name), "mp4", vbTextCompare) = 0 Then
objFile.Copy "c:\Temp\видео\", True
bFound = True
strResult = strResult & objFile.Name & vbCrLf
End If
Next
If bFound Then
If MsgBox("Following files are copyed:" & vbCrLf & _
"----------------------" & vbCrLf & _
strResult & _
"----------------------" & vbCrLf & vbCrLf & _
"Restart computer now?", vbQuestion + vbYesNoCancel _
) = vbYes Then
Set objSWbemLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
objSWbemLocator.Security_.Privileges.AddAsString "SeShutdownPrivilege"
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(".", "root\cimv2")
For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_OperatingSystem")
' Reboot here!
'objSWbemObjectEx.Reboot()
Next
Set objSWbemServicesEx = Nothing
Set objSWbemLocator = Nothing
End If
Else
WScript.Echo "Nothing of *.mp4 found on root folder of [" & strDrive & "] drive."
WScript.Quit 5
End If
Else
WScript.Echo "Not found destination folder [c:\Temp\видео]."
WScript.Quit 4
End If
Else
WScript.Echo "Not found source drive [" & strDrive & "]."
WScript.Quit 3
End If
Set objFSO = Nothing
Else
WScript.Echo "This script can't be runned manually." & vbCrLf & vbCrLf & _
"Usage: wscript.exe """ & WScript.ScriptName & """ /Drive:<drive letter>"
WScript.Quit 2
End If
Else
WScript.Echo "This script can't be runned manually." & vbCrLf & vbCrLf & _
"Usage: wscript.exe """ & WScript.ScriptName & """ /Drive:<drive letter>"
WScript.Quit 1
End If
WScript.Quit 0
5. Запустите оттуда USBDeview.exe и задайте в расширенных параметрах (\Options\Advanced Options) два следующих параметра:
Скрытый текст
Код:
wscript.exe "RunConnected.vbs" /Drive:"%drive%"
При вставке флешки будет запускаться указанный скрипт WSH, проверяться наличие путей и файлов *.mp4, каковые будут копироваться с каталог-приёмник «c:\Temp\видео», после чего будет задан вопрос о перезагрузке машины (кстати, зачем?!).
6. Добавьте автоматический запуск USBDeview.exe любым удобным Вам способом.
7. После того, как отладите копирование, раскомментируйте в скрипте
строку с вызовом перезагрузки, убрав перед ней знак апострофа «
'»:
Код:
For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_OperatingSystem")
' Reboot here!
'objSWbemObjectEx.Reboot()
Next
, коллега!
