Переменные окружения

[siti]

Можно ли получить переменные окружения связанные с железом компьютера, такие как серийник диска или материнской платы или что-то подобное для возможности блокирования несанкционированного использования макросов (библиотек) на другом пк?

[sokol92]

В Греции Питоне все есть (не проверял  ).

Если речь идет о переменных окружения, то в LO Basic есть функция Environ.

[economist]

Для Python есть PyArmor. В LO Basic с диском по простому так:

Код Выделить Развернуть

Sub SerialVolumeHDD
Dim fs, d ' номер тома диска
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName ("C:")))
msgbox ABS(STR(d.serialnumber))
End Sub

Переустановка Windows с высокой вероятностью снесет этот номер (это не зав. номер HDD), но как ни странно, такое поведение чаще всего и требуется. "А пусть не лезут (с)"