[iccup.platoon@vk]

Ну почему не VBS? =( Вы только посмотрите как тут всё красиво:

читать дальше »

Код:

On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject") 'объект типа "не обязательно вникать №1"
set WshShell = WScript.CreateObject("WScript.Shell") 'объект типа "не обязательно вникать №2"
colDrives = Split("F G H U I O P") 'множество вариантов через пробел, можно оставить одну
Set dictDrives = CreateObject("Scripting.Dictionary")
For Each Drive In colDrives
    Set Drv = FSO.GetDrive(Drive & ":")
    If Err.Number Then
        dictDrives.Add Drive & ":", False
    Else
        If Drv.DriveType = 1 And Drv.IsReady Then
            dictDrives.Add Drive & ":", True
        Else
            dictDrives.Add Drive & ":", False
        End If
    End If
    Err.Clear
Next
' Бесконечный цикл
While True
    For Each Drive In dictDrives.Keys
        Set Drv = FSO.GetDrive(Drive)
        If (Err.Number) Or (Drv.IsReady = False) Or (Drv.DriveType <> 1) Then
            Flag = False
        Else
            Flag = True
        End If
        Err.Clear
        Current = dictDrives.Item(Drive)
        If Current <> Flag Then
            If Current = True And Flag = False Then
				'завершение работы программы
				WshShell.Run "taskkill /f /IM programm.exe", 0 'именно тут выставляется имя программы
            End If
            dictDrives.Item(Drive) = Flag
        End If
    Next
    WScript.Sleep 1000
Wend