Добрый вечер,

Подскажите, как получить информацию о "железе":
- номер процессора
- серийный номер диска
...

Это нужно для простейшей защиты программы.

Спасибо

Эверест например

Я не точно задал вопрос.

Как программно в 1С8.1 получить информацию о железе?

wmi

systeminfo в файл + парсинг )

(5) в 8.1 ??

http://dev.mista.ru/topic.php?id=276679

например так для процессоров:


WMI = GetCOMObject("winmgmts://./root/cimv2");
CPUs = wmi.ExecQuery("Select * from Win32_Processor");
For each Item In CPUs Do
   Message(Item.Name);    
EndDo;


отдельно:
материнские платы: Win32_BaseBoard
BIOS: Win32_BIOS
система: Win32_ComputerSystem
диски: Win32_DiskDrive
Все объекты и их свойства:
http://msdn.microsoft.com/en-us/library/windows/desktop/aa394084(v=vs.85).aspx

(9) Первое сообщение прочитал? Там до слова "Спасибо" абзац есть небольшой.

Ок, (8), а как получить доступ к свойствам, например, Win32_DiskDrive?
Строка вида Item.SerialNumber выдает ошибку

а зачем? что мешает мне заремить проверку?

(12) я не догоняю. Мне нужен серийный номер диска. Как его получить с помощью Win32_DiskDrive?

(13) >>  не догоняю

Aleksey интересовался нафига нужная такая защита, если любой может открыть конфигурацию и просто закомментировать (заремить) тот код, где такая проверка выполняется.

(11)> Строка вида Item.SerialNumber выдает ошибку

Может в этом дело?
Windows Server 2003, Windows XP, Windows 2000, and Windows NT 4.0:  This property is not available.

(12), (14) так я же написал: простейшая защита - от тех, кто не может зайти в конфигуратор и найти эту проверку.

(15) А всё-таки, как получить серийный номер диска с помощью Win32_DiskDrive?

(16) Есть еще Win32_PhysicalMedia

(17) понятно, есть еще много объектов (я нашел по ссылке в (8)).
Но мне нужен пример доступа к свойствам этих объектов, например, SerialNumber у Win32_DiskDrive.

(8) дал хороший пример, но в этом примере я не получаю доступ к свойствам объектов.
Может, кто-нибудь прояснит мне, неучу? ;)

По примеру в (8) выдается:

\\.\PHYSICALDRIVE0

А мне нужно свойство SerialNumber

(19)  ты уже 5 раз посторил, прекращай истерить. В ком строке введи wmic diskdrive и посмотри отдает ли твоя ОС номера дисков

Функция ПолучитьСерийныйНомерЖесткогоДиска(Диск)
   ФСО=СоздатьОбъект("Scripting.FileSystemObject");
   ФСО_Диск=ФСО.GetDrive(Диск);
   Возврат ФСО_Диск.SerialNumber;
КонецФункции

(18) > Может, кто-нибудь прояснит мне, неучу?
Посмотри в отладчике - Item._Properties. Там все доступные поля и их значения.

Какая ОС у тебя? На Windows Server 2003, Windows XP, Windows 2000 и Windows NT 4.0 это свойство недоступно.

И для твоих целей скорее нужен объект из (17).

(0) Где-то на инфостарте (и на проклабе) была обработка для 7.7., с огромадной информацией по WMI. Когда-то здорово помогла, только как называется не помню.

(21) Для 1с7.7 понятно, а как перевести на 1с8.1 это:

   ФСО=СоздатьОбъект("Scripting.FileSystemObject");
   ФСО_Диск=ФСО.GetDrive(Диск);

и что указать в параметре "Диск"?

&НаКлиенте
Процедура НомерДиска(Команда)
   // Вставить содержимое обработчика.
     Диск=ПолучитьСерийныйНомерЖесткогоДиска("C");
     Сообщить(Диск);
   
КонецПроцедуры


Функция ПолучитьСерийныйНомерЖесткогоДиска(Диск)
   ФСО=Новый COMОбъект("Scripting.FileSystemObject");
   ФСО_Диск=ФСО.GetDrive(Диск);
   Возврат ФСО_Диск.SerialNumber;
КонецФункции

(25) это на 8.2

(25) Вашим способом получил серийный номер:
619 321 393
а с помощью Win32_PhysicalMedia получил серийный номер:
S20BJ9CZ809570

Буду разбираться, что я получил, и какой из них действительно серийный номер.

Спасибо

(27)
619 321 393 (число) = 24EA-1831 - это серийный номер тома (диска C)

S20BJ9CZ809570 (строка) - это серийный номер носителя (жесткого диска)

Ну и как всегда документация:
This function returns the volume serial number that the operating system assigns when a hard disk is formatted. To programmatically obtain the hard disk's serial number that the manufacturer assigns, use the Windows Management Instrumentation (WMI) Win32_PhysicalMedia property SerialNumber.

(23) http://www.script-coding.com/  здесь полно инфы по WMI