Как можно получить номер лицензии Windows?

, , , , , , ,

☑

0 Sstim

03.03.16

✎

16:28

Для идентификации рабочей станции нужно помимо прочих атрибутов получить и номер лицензии ОС.
Как это сделать?

1 Господин ПЖ

03.03.16

✎

16:30

повторяй в телефон: окэй гугл, как можно получить номер лицензии Windows?

2 Sstim

03.03.16

✎

16:32

почему-то ветка не в 1С.

Получить нужно во внешней обработке

3 NikVars

03.03.16

✎

16:38

(2) Slmgr.vbs /dli

4 Sstim

03.03.16

✎

16:44

(3) как выполнить?

5 Tatitutu

03.03.16

✎

16:55

(3) ему номер нужен, а не состояние
Наклейку на корпусе поищи

6 Sstim

03.03.16

✎

16:56

(5) блин. внешней обработкой поискать наклейку на корпусе?

7 Tatitutu

03.03.16

✎

16:57

(6) Ты спросил "Как это сделать?" - тебе ответили
а внешняя обработка - это уже твои мечты

8 Kondarat

03.03.16

✎

17:00

(0) Поискать скрипт для получения ключа продукта, вставить его в обработку, получить результат.

9 Tatitutu

03.03.16

✎

17:01

Slmgr.vbs /dlv

10 Sstim

03.03.16

✎

17:02

(9) это же только под полными правами работает.
cmd нужно запускать под полными правами.
Да и как в 1С вернуть полученное значение

11 Sstim

03.03.16

✎

17:03

зы. какие еще реквизиты идентификации компа есть:
ip, мак-адрес, имя компа, имя польз, домен

что еще?

12 Tatitutu

03.03.16

✎

17:05

(10) Не нужно cmd Тебе
пуск - выполнить - Slmgr.vbs /dlv - Ентер
а так открой Slmgr.vbs любым блокнотом и "вырви" нужный параметр

13 Tatitutu

03.03.16

✎

17:08

(11) пятно на системном блоке, чашка на DVD, пользователь
Есть спец. программы всю твою локальную сеть просканируют и выдадут отчет всего чего есть, вплоть до серийного номера дисковода А

14 Sstim

03.03.16

✎

17:14

(13) нужно из 1С

15 Kondarat

03.03.16

✎

17:16

(14) Ну так и используй скрипт .vbs в 1С

16 Sstim

03.03.16

✎

17:22

Ладно. кому будет интересно, вот все, что я насобирал по идентификации компьютера:

    WSH = Новый COMobject("wscript.network");
    ИмяКомпьютера         = WSH.ComputerName;
    Результат = "Имя компьютера: "+ ИмяКомпьютера;
    ДоменПользователя    = WSH.UserDomain;
    Результат = Результат + Символы.пс+ "Домен: "+ДоменПользователя;
    ИмяПользователя        = WSH.UserName;
    Результат = Результат + Символы.пс+ "Имя пользователя: "+ИмяПользователя;

    IP = "";
    MACAddress = "";
    АдресаЗаполнены = ложь;
    ServicesSet = ПолучитьCOMОбъект("winmgmts:\\localhost\root\cimv2");
    MyItems = ServicesSet.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True");
    Для Каждого MyItem Из MyItems Цикл
        MACAddress = MyItem.MACAddress;
        Если ЗначениеЗаполнено(MACAddress) И НЕ АдресаЗаполнены Тогда
            IPAddress = Неопределено;
            Для Каждого IPAddress Из MyItem.IPAddress Цикл
                Если ЗначениеЗаполнено(IPAddress) И НЕ АдресаЗаполнены Тогда
                    IP = IPAddress;
                    АдресаЗаполнены = ИСТИНА;
                КонецЕсли;
            КонецЦикла;
        КонецЕсли;
    КонецЦикла;
    Результат = Результат + Символы.пс+ "IP-адрес: "+IP;
    Результат = Результат + Символы.пс+ "MAC-адрес: "+MACAddress;
    Результат = Результат + Символы.пс+ "Строка соединения с информационной базой: "+СтрокаСоединенияИнформационнойБазы();
    Результат = Результат + Символы.пс+ "Локализация информационной базы: "+КодЛокализацииИнформационнойБазы();
    Результат = Результат + Символы.пс+ "Часовой пояс сеанса: "+ЧасовойПоясСеанса();

    СисИнфо = Новый СистемнаяИнформация;
    Результат = Результат + Символы.пс+ "Операционная система: "+СисИнфо.ВерсияОС;
    Результат = Результат + Символы.пс+ "Идентификатор клиента ОС: "+СисИнфо.ИдентификаторКлиента;
    Результат = Результат + Символы.пс+ "Оперативная память: "+СисИнфо.ОперативнаяПамять;
    Результат = Результат + Символы.пс+ "Процессор: "+СисИнфо.Процессор;