База знаний Одина – Одинэсника › Форумы › ODIN – Форум по 1С Предприятию › Как написать VBS скрипт для проверки версии 1С:Университет? › RE: Как написать VBS скрипт для проверки версии 1С:Университет?
26 июня 2025 в 12:30
#32870

Участник
1С (Код)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | 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С:Университет не запущен.