Защита программы - VBA

Формулировка задачи:

Вот такой вопрос: Написал программу, хочу передать её в безвозмездное пользование приятелю. Условие только одно - чтобы ей пользовался только он. Приятель полностью согласен. Какие есть способы? Появилась простейшая идея - зашить в код размеры оперативной и дисковой памяти компа, если не совпадает, то выбрасывать. Можно добавить и параметры процессора или видеокарты. В общем, любой параметр, который, в принципе, достаточно уникален. А лучше сочетание параметров. Отсюда и вопрос - как узнать средствами VBA параметры компа - память - оперативная и дисковая, параметра видеокарты, процессора, звуковой платы и прочее? В

Pascal

"е это делается на раз-два - есть соответствующие функции типа

MemAvail

. А в

VBA

Решение задачи: «Защита программы»

textual
                            Листинг программы 
                        

                            Set FSO = CreateObject("Scripting.FileSystemObject")
Set DriveC = FSO.GetDrive("C:")
MsgBox  DriveC.SerialNumber
                        