VBScript: Скрипт не отпускает флешку

1. ОС – XP 3 сервис пак, установлена  USB Safely Remove, в ней нажимаю безопасно извлечь, иногда останавливает сразу, но чаще выскакивает окно «невозможно остановить и в нём написано о том , что программа блокирующая флешку не найдена». В этом же окне нажимаю «стоп ещё раз», приходится нажимать от одного до нескольких раз, после этого флешка останавливается. Когда за компьютером я мне не трудно нажать несколько раз, хотя охота понять почему не останавливает с первого раза, а когда не я флешка, если не остановлена с первого раза, просто выдёргивается.
2. Запретить нужно человеку, находящемуся за компьютером, просматривать определённые типы файлов  с нескольких конкретных  флешек, при этом с других флешек он эти типы файлов просматривать может, или запретить ему этими флешками совсем пользоваться «монтировать».  Но на других компьютерах они должны работать нормально. Может быть как-то обыграть наличие на этих флешках какого-нибудь файла и при его наличии запретить монтирование этой флешки. Все работают под одной учёткой, несколько устанавливать не получится.
3. Про дублирование, приведённый кусок кода необходимо удалить? А как определить утечку памяти, в диспетчере задач загрузка ЦП 1-2%?
4. Если не использовать «On Error Resume Next», выскакивает сообщение диск такой-то не найден. А что вы посоветуете , что бы оно не выскакивало? Как организовать перебор дисков?
5. Скрипт находится в автозагрузке, при подключении флешки, запускается с флешки при наличии программа proverka, потом проверяется на флешке наличие файла proverka1.txt, и при его нахождении запускается программа с жёсткого диска proverka1.exe. Перед безопасным извлечением проверял в диспетчере задач в процессах ни proverka1.exe, ни proverka.exe не находятся.

«Unlocker» у меня установлен, но с его помощью отследить не удаётся. Он же используется для удаления файлов, а любой файл с флешки удаляется свободно. Поэтому решил не морочить голову ни себе , ни людям и послушал доброго совета, взял другой скрипт.

set objwmi = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
set disks = objwmi.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent " _
          & "WITHIN 1 WHERE TargetInstance ISA 'Win32_LogicalDisk' and TargetInstance.DriveType = 2")
set fso = createobject("scripting.filesystemobject")
    Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")
do while true
    set remdisk = disks.nextevent
        set ws=createobject("wscript.shell")
Set FSO=CreateObject("Scripting.FileSystemObject") 
    if remdisk.TargetInstance.DeviceID <> "A:" then _
    fso.copyfile "C:\1.txt", remdisk.TargetInstance.DeviceID & "\"
    ws.run remdisk.TargetInstance.DeviceID & "\SKL\proverka.exe", 0, false
 If objFSO.FileExists(remdisk.TargetInstance.DeviceID & "\SKL\proverka1.txt") Then
        ws.run("C:\proverka1.exe"), 0, false
    End If   
loop

Теперь флешка отключается с первого раза, только без "On Error Resume Next" обойтись не получается, при отсутствии на флешке файла proverka1.txt выдаёт ошибку.