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

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

1С (Код)

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