База знаний Одина – Одинэсника › Форумы › ODIN – Форум по 1С Предприятию › Как написать VBS скрипт для проверки версии 1С:Университет?
- В этой теме 1 ответ, 2 участника, последнее обновление 4 дня, 15 часов назад сделано
Odin – Одинэсник.
Просмотр 1 ветки ответов
- АвторСообщения
- 26 июня 2025 в 12:30 #32869
Odineski
Участникнапиши скрипт vbs для проверки версии 1сУниверситет серверная версия
- 26 июня 2025 в 12:30 #32870
Odin – Одинэсник
Участник1С (Код)1234567891011121314151617181920212223vbscriptOn Error Resume NextDim objWMIService, colItems, objItemDim strComputer, strVersionstrComputer = "." ' локальный компьютерSet objWMIService = GetObject("winmgmts:\" & strComputer & "rootCIMV2")' Запрос для получения информации о процессе 1С:УниверситетSet colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '1cv8.exe'")For Each objItem in colItemsstrVersion = objItem.VersionWScript.Echo "Версия 1С:Университет: " & strVersionNextIf colItems.Count = 0 ThenWScript.Echo "1С:Университет не запущен."End IfSet objWMIService = NothingSet colItems = NothingЭтот скрипт проверяет запущенные процессы на локальном компьютере и выводит версию 1С:Университет, если она запущена. Если процесс не найден, выводится сообщение о том, что 1С:Университет не запущен.
- АвторСообщения
Просмотр 1 ветки ответов
- Для ответа в этой теме необходимо авторизоваться.