Скрипт для закрытия зависших процессов LibreOffice

Завершение процессов LibreOffice через VBScript

Windows версия офисного пакета LibreOffice имеет одну неизлечимую проблему - иногда, по неизвестным причинам, некоторые процессы программы "зависают", и остаются в таком состоянии до их ручного завершения. Это приводит к невозможности запустить данный офисный пакет, или даже просто открыть какой-либо файл с помощью LibreOffice.

Как было отмечено в самом начале, исправляется это только ручным завершением зависшего процесса. Поскольку, не все пользователи являются достаточно продвинутыми, чтобы самостоятельно открыть Диспетчер задач, и завершить в нем нужный процесс, то для упрощения этой цели можно использовать следующий vbs скрипт:

Set objShell = CreateObject("WScript.Shell")

SelectAction = Msgbox("Выполнение этого файла может привести к потере данных в несохраненных документах!" & vbNewLine & vbNewLine & "Выполнять его следует только в том случае, если у Вас не открывается ни один документ LibreOffice." & vbNewLine & vbNewLine & "Вы уверены, что хотите продолжить?", vbYesNo + vbExclamation, "Не открывается LibreOffice")
If SelectAction = vbYes Then
	objShell.Run "taskkill /f /t /im soffice.bin", 1, True
	objShell.Run "taskkill /f /t /im soffice.exe", 1, True
	objShell.Run "taskkill /f /t /im swriter.exe", 1, True
End If

При запуске данного VBScript'a появится предупреждение, которое должно предотвратить случайное завершение работы всех процессов LibreOffice, с последующей потерей всей не сохраненной работы.