Комментарии
Избранное
Подписка
Сортировка:
Древо
Как для простенькой конфы на одного пользователя.... пройдет..
Или ввести в конфу закрытый справочник серийных номеров, можна даже контролировать количество лицензий...
Или не справочник, а закрытый код с жестко прописаными серийниками, или.......
Вариантов масса....
Или ввести в конфу закрытый справочник серийных номеров, можна даже контролировать количество лицензий...
Или не справочник, а закрытый код с жестко прописаными серийниками, или.......
Вариантов масса....
использую такой прием в своих разработках - идея вполне работоспособная.По трудозатратом не сравнима с dll(тоже кстати делал на с++).А вариант с хаспом стоит денег.Так что для небольшого авторского коллектива этот вариант самое то! Всем рекомендую.
Насколько я помню, drive.SerialNumber использует для работы метод WinAPI GetVolumeInformation - который возвращает не "железный" серийный номер харда, а программный серийный номер тома (volume serial number), устанавливаемый при форматировании раздела.
Данный номер может как измениться при переформатировании раздела, так и быть изменен программно для любого раздела на требуемый.
Получение настоящего серийного номера харда, зашиваемого производителем индивидуально для каждого винта - несколько более сложная задача.
Данный номер может как измениться при переформатировании раздела, так и быть изменен программно для любого раздела на требуемый.
Получение настоящего серийного номера харда, зашиваемого производителем индивидуально для каждого винта - несколько более сложная задача.
(13)
А что тут думать - прыгать надо.
Если серьезно - зависит от оси.
Под 9х использовалась дыра, через которую можно было выполнить свой код в ring0, напрямую обращаясь к устройству, под 2К - через обращение к драйверу диска (но вроде не работало со флэшками). Это все требует WinAPI, то есть реализуемо через ВК. Под XP и старше - точно не знаю, вроде бы появилась возможность через WMI, но я лично не проверял. Это уже можно сделать и без ВК, на VBScript'е.
Ну а так метод сойдет, как первый ров перед крепостной стеной. Крестьянское ополчение остановит, пехоту чуть задержит. Кавалерия перескочит.
А что тут думать - прыгать надо.
Если серьезно - зависит от оси.
Под 9х использовалась дыра, через которую можно было выполнить свой код в ring0, напрямую обращаясь к устройству, под 2К - через обращение к драйверу диска (но вроде не работало со флэшками). Это все требует WinAPI, то есть реализуемо через ВК. Под XP и старше - точно не знаю, вроде бы появилась возможность через WMI, но я лично не проверял. Это уже можно сделать и без ВК, на VBScript'е.
Ну а так метод сойдет, как первый ров перед крепостной стеной. Крестьянское ополчение остановит, пехоту чуть задержит. Кавалерия перескочит.
(15) На локальном компе средствами WMI вывод всех свойств и их значений WMI класса Win32_DiskDrive (информация о дисковых накопителях HDD):
Попытка
Locator = Новый COMОбъект("WbemScripting.SWbemLocator");
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
ServicesSet = Locator.ConnectServer(".");
ObjectSet = ServicesSet.InstancesOf("Win32_DiskDrive");
Для Каждого Item Из ObjectSet Цикл
Для Каждого Свойство Из Item.Properties_ Цикл
Сообщить(Свойство.Name + " = " + Свойство.Value);
КонецЦикла;
КонецЦикла;
Показать
(20) Это тоже, что и (только если дисков несколько или вставлены флешки, то будет параметр не только 0, но и 1, и 2 8-) ):
Locator = Новый COMОбъект("WbemScripting.SWbemLocator");
ServicesSet = Locator.ConnectServer(".");
ObjectSet = ServicesSet.InstancesOf("Win32_DiskDrive");
Для Каждого Item Из ObjectSet Цикл
Сообщить(Item.Caption+": "+Item.PNPDeviceID);
КонецЦикла;
(20) +21, а это из реестра вариант, из ветки, что предложена в 20-м посте, тот же результат:
Locator = Новый COMОбъект("WbemScripting.SWbemLocator");
ServicesSet = Locator.ConnectServer(".");
ObjectSet = ServicesSet.InstancesOf("Win32_ComputerSystem");
ИмяКомпьютера="";
Для Каждого Item Из ObjectSet Цикл
ИмяКомпьютера=Item.Name;
КонецЦикла;
Значение="";
HKEY_LOCAL_MACHINE = 2147483650;
ПутьККлючу = "SYSTEM\CurrentControlSet\Services\Disk\Enum";
ИмяПараметра = "0";
Reg = ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\" +
ИмяКомпьютера + "\root\default:StdRegProv");
Reg.GetStringValue(HKEY_LOCAL_MACHINE, ПутьККлючу, ИмяПараметра, Значение);
Сообщить("Значение параметра ветки реестра: " + Значение);
Пока ПустаяСтрока(СокрЛП(Значение))=Ложь Цикл
ИмяПараметра=Строка((Число(ИмяПараметра)+1));
Reg.GetStringValue(HKEY_LOCAL_MACHINE, ПутьККлючу, ИмяПараметра, Значение);
Если ПустаяСтрока(СокрЛП(Значение))=Ложь Тогда
Сообщить("Значение параметра ветки реестра: " + Значение);
Иначе
Прервать;
КонецЕсли;
КонецЦикла;
Показать
Есть у кого опыт определения серийника через SCSI комманды???, т.к. WMI уже формируется на основе данных, предоставляемых ДРОВАМИ!!!, и как там сформировано будет от версии к версии - неизвестно. Насколько я знаю(если что не так - поправьте), там постфиксы добавляются, если серийник короче скольких-то символов.
"IDE\DiskST3500418AS_____________________________CC38____\5&
"IDE\DiskST3500418AS_____________________________CC38____\5&
(28) Если для локального компа, то примерно так:
Попытка
Locator = Новый COMОбъект("WbemScripting.SWbemLocator");
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
ServicesSet = Locator.ConnectServer(".");
ObjectSet = ServicesSet.InstancesOf("Win32_Processor");
Для Каждого Item Из ObjectSet Цикл
Сообщить("ProcessorId: "+Item.ProcessorId);
КонецЦикла;
Показать
я бы автоматизировал процесс установки константы
А по сабжу конечно очень ограниченное применение найдется
Если константы.НомерС.Получить() = "" тогда // первый запуск
константы.НомерС.Установить(Строка(Drive.SerialNumber))
ИначеЕсли константы.НомерС.Получить() <> Строка(Drive.SerialNumber) тогда
Предупреждение("Вы используете более одной копии программы! Обратитесь к разработчику");
ЗавершитьРаботуСистемы(Ложь);
КонецЕслиА по сабжу конечно очень ограниченное применение найдется
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.
Вакансии
Технический лидер, архитектор 1С, руководитель проектов
Санкт-Петербург
зарплата от 150 000 руб.
Полный день
Санкт-Петербург
зарплата от 150 000 руб.
Полный день
|
Перенос данных КА 1.1 => КА 2 / УТ 11 (перенос документов, начальных остатков и справочной информации из "1С:Комплексная автоматизация", ред.1.1 в "1С:Комплексная автоматизация", ред. 2.х)
|
Перенос данных КА 1.1 => КА 2 / УТ 11 (перенос документов, начальных остатков и справочной информации из "1С:Комплексная автоматизация", ред.1.1 в "1С:Комплексная автоматизация", ред. 2.х)
Открыть