Каа Средствами 1С узнать в какой ОС в данный момент работает 1С,например, в XP или W2003?

ВерсияОС
OSVersion
Синтаксис
ВерсияОС
Назначение
Атрибут ВерсияОС содержит наименование версии операционной системы (строковое выражение).
Атрибут доступен для объекта типа V7SysInfo

v7plus,ВерсияОС

  Если ЗагрузитьВнешнююКомпоненту(ПутьФайлаОбработки+"v7plus.dll")=0 Тогда
    Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"ExtForms\v7plus.dll")=0 Тогда
      Если ЗагрузитьВнешнююКомпоненту("v7plus.dll")=0 Тогда
        Сообщить("Не удалось обнаружить компоненту v7plus.dll!");
        Возврат 0;
      КонецЕсли;
    КонецЕсли;
  КонецЕсли;
  Попытка
    Инфо = СоздатьОбъект("AddIn.V7SysInfo");
  Исключение
    Сообщить("Не удалось создать объект Addin.V7SysInfo!");
    Возврат 0;
  КонецПопытки;
ОС=Инфо.ВерсияОС;
..............................
Видимо так !!?

ну, что-то вроде. А что смущает?

(4) Да не смущает, а вдохновляет ;)

scr=СоздатьОбъект("MSScriptControl.ScriptControl");
Scr.Language = "javascript";
Locator=СоздатьОбъект("WbemScripting.SWbemLocator");
Service=Locator.ConnectServer();
Scr.AddObject("OS",Service.ExecQuery("Select * from Win32_OperatingSystem"));
e=Scr.Eval("new Enumerator(OS)");
Пока e.atEnd(0)=0 Цикл
       Сообщить("Boot Device: " + e.item(0).BootDevice);
       Сообщить("Build Number: " + e.item(0).BuildNumber);
       Сообщить("Build Type: " + e.item(0).BuildType);
       Сообщить("Caption: " + e.item(0).Caption);
       Сообщить("Code Set: " + e.item(0).CodeSet);
       Сообщить("Country Code: " + e.item(0).CountryCode);
       Сообщить("Debug: " + e.item(0).Debug);
       Сообщить("Encryption Level: " + e.item(0).EncryptionLevel);
       Сообщить("Install Date: " + e.item(0).InstallDate);
       Сообщить("Licensed Users: " + e.item(0).NumberOfLicensedUsers);
       Сообщить("Organization: " + e.item(0).Organization);
       Сообщить("OS Language: " + e.item(0).OSLanguage);
       Сообщить("OS Product Suite: " + e.item(0).OSProductSuite);
       Сообщить("OS Type: " + e.item(0).OSType);
       Сообщить("Primary: " + e.item(0).Primary);
       Сообщить("Registered User: " + e.item(0).RegisteredUser);
       Сообщить("Serial Number: " + e.item(0).SerialNumber);
       Сообщить("Version: " + e.item(0).Version);
       e.moveNext(0);
КонецЦикла;
///
Но перед этим яб сделал проверочку простую на содержание %OS% и если пусто то ещебы взял Ver (это чтоб в 9Х определить, а то код вышепоказанный работает и на 98, но при установленном WMI)

(0) А зачем тебе это надо?

Вдохновение рождает проникновение в суть вещей ;)

(7)Чтобы в зависимости от ОС по сети запускать немного отличающиеся друг от друга обработки.

А как из 1С глянуть что за мусор установил пользователь - типа список установленных программ?

scr=СоздатьОбъект("MSScriptControl.ScriptControl");
Scr.Language = "javascript";
Locator=СоздатьОбъект("WbemScripting.SWbemLocator");
Service=Locator.ConnectServer(КомпьютерЕслиТотжеТоТочка);
Scr.AddObject("Software",Software=Service.ExecQuery("Select * from Win32_Product"));
e=Scr.Eval("new Enumerator(Software)");
Пока e.atEnd(0)=0 Цикл
       Сообщить(Software.Caption);
       Сообщить(Software.Description);
       Сообщить(Software.IdentifyingNumber);
       Сообщить(Software.InstallDate2);
       Сообщить(Software.InstallLocation);
       Сообщить(Software.InstallState);
       Сообщить(Software.Name);
       Сообщить(Software.PackageCache);
       Сообщить(Software.SKUNumber);
       Сообщить(Software.Vendor);
       Сообщить(Software.Version);
Next
...
Или так если коммандасистемы и далее
wmic /node:igor path win32_product get Caption
...
можно кстати узнать и все компоненты этого софтвара и виндовс тоже...

(smaharbA) Ваши знания удивительны! Где вы их черпаете(ли)...

(12) хватает двух хелпов от мелкософтовских...
их можно найти тут...
http://msdn.microsoft.com/scripting
http://www.microsoft.com/technet/scriptcenter/compmgmt/scrcm58.asp
http://www.microsoft.com/technet/scriptcenter/scrguide/sagsas_overview.asp
http://www.microsoft.com/technet/scriptcenter/scrptfaq.asp

(13) все понятно, дело как всегда в голове (моей). Спасибо.