SetcolItems= objWMIService.ExecQuery("Select * from Win32_Process Where Name = '1cv8.exe'")
ForEachobjItemincolItems
strVersion= objItem.Version
WScript.Echo"Версия 1С:Университет: "& strVersion
Next
IfcolItems.Count= 0Then
WScript.Echo"1С:Университет не запущен."
EndIf
SetobjWMIService= Nothing
SetcolItems= Nothing
Этот скрипт проверяет запущенные процессы на локальном компьютере и выводит версию 1С:Университет, если она запущена. Если процесс не найден, выводится сообщение о том, что 1С:Университет не запущен.