Как считать информацию о пользователе системы - в ячеку EXCE

[lamden]

Уважаемые господа профи!
Существует-ли возможность, чтобы, при открытии файла EXCEL'а, в его конкретную ячейку (скажем A1) автоматически помещалась бы информация о пользователе ОС, которая имеется в свойствах системы из: Панель управления-Свойства системы-Общие (имя пользователя, организация, регистрационный номер системы - т.е. те сведения, которые вводится при регистрации ОС в процессе ее установки). Аналогично - для конфигурации компьютера оттуда же и т.п. Такая возможность легко бы решила, в частности, и проблему защиты EXCEL'овского файла от переноса на другой комп...

[AndreyV]

в модуле книги

Private Sub Workbook_Open()
Cells(1, 1).Value = Application.UserName
Cells(2, 1).Value = Application.OrganizationName
Cells(3, 1).Value = Application.ProductCode
End Sub

[lamden]

Уважаемый Андрей!
Большое спасибо, он действительно дает информацию, но теперь вопрос - о каком продукте - номер не совпадает ни с рег. номером системы (WinXP Rus) ни с номером EXCEL (тоже XP)... (Что касается имен юзера и организации, то они у меня для всех продуктов - одинаковые...) Вот и новый предмет исследования готов...
Спасайте, господа профи!..
P.S. Кстати, а о железе подобной информации вытащить нельзя?

[AndreyV]

ProductCode это GUID экселя, он будет разным на разных версиях офиса 97 2000 XP

[lamden]

Простите бестолкового - что это такое - GUID код, он что является принадлежностью продукта или как-то связан с конкретной регистрационной информацией - т.е. если есть две лицензионные копии одного EXCEL'а, установленные на разных компах с разными регистрационными номерами - будут-ли у них разные значения этого кода, или нет? И вообще - где его можно увидеть непосредственно?