Имя: Пароль:
1C
 
Как можно получить номер лицензии 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;    
    Результат = Результат + Символы.пс+ "Строка соединения с информационной базой: "+СтрокаСоединенияИнформационнойБазы();    
    Результат = Результат + Символы.пс+ "Локализация информационной базы: "+КодЛокализацииИнформационнойБазы();
    Результат = Результат + Символы.пс+ "Часовой пояс сеанса: "+ЧасовойПоясСеанса();
    
    СисИнфо = Новый СистемнаяИнформация;
    Результат = Результат + Символы.пс+ "Операционная система: "+СисИнфо.ВерсияОС;
    Результат = Результат + Символы.пс+ "Идентификатор клиента ОС: "+СисИнфо.ИдентификаторКлиента;
    Результат = Результат + Символы.пс+ "Оперативная память: "+СисИнфо.ОперативнаяПамять;
    Результат = Результат + Символы.пс+ "Процессор: "+СисИнфо.Процессор;