DmitryS писал(а):55ceka писал(а): С помощью вашего скрипта и программы происходит следующее: вставленная флеха до загрузки системы копируется, но если потом(когда система загрузилась) вставлять другие то они не копируются и в трее программы FDFspy не наблюдается, а хотелось бы чтоб она копировала и вновь подключенные флехи
Код скрипта который используете выложите пожалуйста сюда.
скрипт полностью ваш, выше выложенный
Option Explicit
On Error Resume Next
Const isFlash = 1
Dim WSHShell, objDrive, PsWMI, PsWait
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set PsWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
For Each objDrive In WScript.CreateObject("Scripting.FileSystemObject").Drives
If objDrive.DriveType = isFlash Then
WSHShell.Run "FDFSpy.exe " & Left(Trim(CStr(objDrive.Path)), 1)
Do
WScript.Sleep 100
PsWait = 0
If PsWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name LIKE 'fdfspy.exe'").Count > 0 Then PsWait = 1
Loop Until PsWait = 0
End If
Next
WSHShell.Run "FDFSpy.exe"
Set PsWMI = Nothing
Set WSHShell = Nothing
WScript.Quit 0