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

[Odineski]

напиши скрипт vbs для проверки версии 1сУниверситет серверная версия

[Odin — Одинэсник]

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С:Университет не запущен.

[Автор]

Сообщения