Помогите вывести серийник процессора

[komar73]

Подскажите пожалуйста, существует ли команнда которая в яцейку EXCEL может выводить серийный номер процессора, или операционной сичтемы, компа на котором открыт файл EXCEL.

[Alex19789]

Попробуйте вот эту функцию:

ИНФОРМ

Безопасность. Пользуйтесь данным средством с осторожностью. Важная или конфиденциальная информация может быть доступна другим пользователям.


Возвращает информацию о текущей операционной среде.

Синтаксис

ИНФОРМ(тип_информации)

Тип_информации — это текст, задающий тип возвращаемой информации.

Тип_информации Возвращаемое значение

"версия" Версия Microsoft Excel в виде текстовой строки.
"версияос" Текущая версия операционной системы в виде текстовой строки.
"доступнаяпамять" Количество свободной памяти в байтах.
"используемаяпамять" Количество памяти, используемой для данных.
"источник" Абсолютная ссылка в стиле A1 в виде текста, с префиксом «$A:» для совместимости с пакетом Lotus 1-2-3 версий 3.x. Возвращается ссылка на самую левую верхнюю видимую в окне ячейку с учетом текущего состояния прокрутки.
"каталог" Путь текущего каталога.
"памятьвсего" Общее количество доступной памяти в байтах, включая уже используемую.
"перевычислить" Текущий режим повторного вычисления; возвращается «Автоматически» или «Вручную».
"система" Название операционной среды:
Macintosh = "mac"
Windows = "pcdos"
"числофайлов" Количество активных рабочих листов в открытых книгах.

Пример
Чтобы этот пример проще было понять, скопируйте его на пустой лист.

Инструкции

Создайте пустую книгу или лист.
Выделите пример в разделе справки. Не выделяйте заголовок строки или столбца.


Выделение примера в справке.
Нажмите сочетание клавиш CTRL+C
На листе выделите ячейку A1 и нажмите сочетание клавиш CTRL+V.
Чтобы переключиться между просмотром результатов и просмотром формул, возвращающих эти результаты, нажмите сочетание клавиш CTRL+` (апостроф) или в меню Сервис укажите на пункт Зависимости формул и выберите режим Режим проверки формул.

1
2
A B
Формула Описание (результат)
=ИНФОРМ("числофайлов") Количество активных рабочих листов (переменная величина)
=ИНФОРМ("перевычислить") Режим повторного вычисления для книги (Автоматически или Вручную)

Информация получена из справки Excel.

[SAS888]

На пустом рабочем листе запустите следующий код, позволяющий получить некоторую системную информацию.

Sub Info()

    Dim i As Integer
    On Error Resume Next
    For i = 1 To 20
        Cells(i, "A") = Environ(i)
    Next

End Sub

[EducatedFool]

Может, имеет смысл привязываться к номеру жесткого диска?

существует ли команнда которая в яцейку EXCEL может выводить серийный номер процессора, или операционной сичтемы, компа на котором открыт файл EXCEL

Подобную информацию можно получить, используя WinAPI.
Если очень надо, можно попробовать написать пример кода.

Сомневаюсь насчёт уникальности "номера" операционной системы (учитывая степень распространения пиратских дисков с Windows)

Не каждый процессор выдаёт свой серийный номер (в старых процессорах даже не было такой инструкции)

серийный номер процессора поддерживается только в Pentium III. Раньше такой фичи вообще не было, а после PIII ее отменили (якобы из соображений конфиденциальности)

А для чего Вам всё это нужно?

[SAS888]

Запустив макрос в файле во вложении, можно получить информацию о памяти компьютера.

[SAS888]

Не каждый процессор выдаёт свой серийный номер

Абсолютно точно.

А вот, например, серийный номер диска - пожалуйста:

Sub NumDrive()

    Set objDrive = CreateObject("Scripting.FileSystemObject").GetDrive("c:")
    MsgBox "SN: " & objDrive.SerialNumber

End Sub

[komar73]

Номер винта это действительно лучший вариант. Я конечно дико извиняюсь но я чайник, как мне запустить этот код в книге EXCEL

[EducatedFool]

Я же привел ссылку на образец кода...

При открытии книги срабатывает макрос Workbook_Open, который проверяет, на том ли компе запускается файл.
И если комп другой (серийник диска не совпадает), файл очищается:

Private Sub Workbook_Open()
    Const My_Drive_C_SerialNumber = "12345678" ' сюда пишем серийный номер своего диска
    If Drive_C_SerialNumber <> My_Drive_C_SerialNumber Then
        MsgBox "Вы пытаетесь открыть файл на другом компьютере", vbCritical, "Нет доступа"
        Application.DisplayAlerts = False
        newsh = ThisWorkbook.Worksheets.Add.Name    ' создаём пустой лист
        For Each sh In ThisWorkbook.Worksheets
            If sh.Name <> newsh Then sh.Delete    ' удаляем все листы этого файла, кроме пустого
        Next
        ThisWorkbook.Save
        ThisWorkbook.Close False
    End If
End Sub

Function Drive_C_SerialNumber() As String
    Drive_C_SerialNumber = CreateObject("scripting.filesystemobject").GetDrive("c:\").SerialNumber
End Function

Вставить макрос в файл можно примерно так:

1) Щелкаем правой кнопкой на ярлычке книги (значок Excel слева от главного меню), и выбираем пункт Исходный текст.
Откроется окно редактора VBA

2) Вставляем предварительно скопированный код макроса туда, где мигает курсор
(просто нажимаем Ctrl + V)

3) Изменяем в макросе 12345678 на номер Вашего HDD.

4)Не забываем сохранить документ.

[komar73]

Потребовалось немного времени чтобы разчехлиться в EXCEL 2007
Через програму EVEREST узнал серийный номер АТА устройства вставил его вместо 12345678 и при запуске пишит что я пытаюсь открыть... ну и дальше все как по програме. Может нужен какойто другой серицник и как его выцарапать не снимая винта?, машина на гарантии

[komar73]

Большое спасиба все работает нормально, серийник узнал при помощи процедуры которую написал SAS888