1 Тема от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

Тема: VBScript: определение версии операционной системы

Пример скрипта:

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
If Err.Number <> 0 Then
    WScript.Echo Err.Number & " " & Err.Description
    WScript.Quit
End If
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
strInfo = vbNullString
For Each objOperatingSystem in colOperatingSystems
    strInfo=objOperatingSystem.Caption & " " & objOperatingSystem.Version
    Exit For
Next
WScript.Echo strInfo

А вот так это можно сделать из 1С v7.7:

Попытка
    ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl");
    ScrptCtrl.Language="vbscript";
    ScrptCtrl.AddCode("
    |Function GetVer()
    |    Set objWMIService = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"")
    |    Set colOperatingSystems = objWMIService.ExecQuery(""Select * from Win32_OperatingSystem"")
    |    strInfo=vbNullString
    |    For Each objOperatingSystem in colOperatingSystems
    |        strInfo=objOperatingSystem.Caption & "" "" & objOperatingSystem.Version
    |        Exit For
    |    Next
    |    GetVer=strInfo
    |End Function
    |");
    ТекстВерcии=СокрЛП(ScrptCtrl.Run("GetVer"));
    Сообщить(ТекстВерcии);
Исключение
    Сообщить(ОписаниеОшибки());
КонецПопытки;
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.