vbscript
On Error Resume Next
Dim objWMIService, colItems, objItem
Dim strComputer, strVersion
strComputer = "." ' локальный компьютер
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootCIMV2")
' Запрос для получения информации о процессе 1С:Университет
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '1cv8.exe'")
For Each objItem in colItems
strVersion = objItem.Version
WScript.Echo "Версия 1С:Университет: " & strVersion
Next
If colItems.Count = 0 Then
WScript.Echo "1С:Университет не запущен."
End If
Set objWMIService = Nothing
Set colItems = Nothing
Этот скрипт проверяет запущенные процессы на локальном компьютере и выводит версию 1С:Университет, если она запущена. Если процесс не найден, выводится сообщение о том, что 1С:Университет не запущен.