RE: Как написать VBS скрипт для проверки версии 1С:Университет?

26 июня 2025 в 12:30 #32870

Участник

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

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

If colItems.Count = 0 Then

WScript.Echo "1С:Университет не запущен."

End If

Set objWMIService = Nothing

Set colItems = Nothing

Этот скрипт проверяет запущенные процессы на локальном компьютере и выводит версию 1С:Университет, если она запущена. Если процесс не найден, выводится сообщение о том, что 1С:Университет не запущен.

Вы пропустили

Новый курс «Администратор 1С v4.1»

Автономный сервер 1С — публикация ИБ

Установка PostgreSQL 17 для 1С на Windows server 2022

Как запустить «Сервер 1С» на Ubuntu 24.04 LTS ?