[p4s8]

Как получить серийный номер жесткого диска- физический номер!
dos_serial no не годится- это серийник тома!

[Rost]

Дык он на корпусе указан.

[fixo]

Сообщение от p4s8 Как получить серийный номер жесткого диска- физический номер! dos_serial no не годится- это серийник тома!

Если на VBA:

Код:

[Выделить все]

'' Fatty (c) 2006
Sub GetSerial()
Dim fs, drvs, drv, lett
Set fs = CreateObject("Scripting.FileSystemObject")
Set drvs = fs.Drives
lett = InputBox("Enter drive letter" & "without colon:", "Driver Serial.No", "C")
For Each drv In drvs
If drv.Path = lett & ":" Then
MsgBox Chr(34) & CStr(Hex(drv.SerialNumber)) & Chr(34)
End If
Next drv
Set fs = Nothing
End Sub

На лиспе тот же самый алгоритм

Облом, это тоже серийник тома

Fatty

~'J'~

[Александр Ривилис]

Код:

[Выделить все]

(defun DriveList ( / propsets disks disk serial)
   (setq diskdrives (wmi-GetObjectSetPropertySets "Win32_DiskDrive"))
   (setq physdrives (wmi-GetObjectSetPropertySets "Win32_PhysicalMedia"))

   (foreach disk diskdrives
      (setq tmp '())
      (vlax-for prop (cdr disk)
         (setq name  (lisp-value (vlax-get-property prop 'Name)))
         (setq value (value-to-string (lisp-value (vlax-get-property prop 'Value))))
         (if  (or (= (strcase name) "MODEL") (= (strcase name) "MODEL")) (progn
           (setq tmp (list name value))
         ))
      )
      (setq disks (append disks (list (cons (car disk) (list tmp)))))
   )
   (foreach phys physdrives
      (vlax-for prop (cdr phys)
         (setq name  (lisp-value (vlax-get-property prop 'Name)))
         (setq value (value-to-string (lisp-value (vlax-get-property prop 'Value))))
         (cond 
          ((= (strcase name) "TAG")
           (setq disk value)
          ) 
          ((= (strcase name) "SERIALNUMBER")
           (setq serial value)
          )
         )
      )
      (setq disks (subst 
        (cons disk (append (cadr (assoc disk disks)) (list serial)))
        (assoc disk disks)
        disks
      ))            

   )
   disks
)

Остальное здесь: http://www.caddzone.com/wmi.lsp

[Garbag]

а программой типа Everest воспользоваться??? если
там много еще чего полезного можно получить

[Denido]

Сообщение от Garbag а программой типа Everest воспользоваться??? если там много еще чего полезного можно получить

Так вопрос был в разделе "Программирование", наверно он хочет сам написать чтото где одним из фрагментов будет привязка к конкретному железу по серийному номеру.
А если сам прогу не хочешь писать, то конечно можно взять готовую для мониторинга HDD и/или другого компутерного железа. Обзор такого софта на http://www.benchmarkhq.ru/
Многие проги работают без инсталяции, т.е. можно не устанавливать постоянно на компе а разместить на внешнем переносном носителе, например флешке.
EVEREST 3.00.626 Ultimate Edition выглядин на экране так
[ATTACH]1153725356.jpg[/ATTACH]

[Denido]

А если только для винчестера то что то типа программы HD Tune
[ATTACH]1153725522.jpg[/ATTACH]

[fixo]

Кстати, нашед тут код получения SN
Дает те же результаты что и мой

http://www.devx.com/tips/Tip/15908

~'J'~

[ShaggyDoc]

Привязка программ к оборудованию - бессмысленное и вредное дело. Бессмысленное - потому, что легко обходится, а вредное - потому, что создает ненужные проблемы законопослушным пользователям.

Разве в Microsoft или Autodesk не могут этого сделать? Могут, но знают, что бесполезно.

Что касается использования объектов для "скриптовых" языков (FSO, WMI, еще каких-то), то это дело ненадежное. Любой нормальный сисадмин запрещает их использование. Такие расширения - угроза безопасности. Вставив в WEB-страницу обращения к Scripting API злоумышленник получает доступ к ресурсам удаленного компьютера. Номер винчестера ему не нужен - там есть более аппетитные штучки.

Если уж нужен серийный номер, то лучше написать DLL (или ARX), получать его штатными методами, а потом, при необходимости, предоставлять доступ к нему LISP-программам или любым другим.

[fixo]

Тем не менее, на всякий случай на лиспе:

Код:

[Выделить все]

;;; Fatty (c) 2006 
(defun getSN()
(vl-load-com)
(setq fs (vlax-create-object "Scripting.FileSystemObject")
      drvs (vlax-get fs 'Drives))
(setq dn (getstring "\nEnter a drive name w/o colon : "))
(vlax-for a drvs
  (if (eq (strcat dn ":")(vlax-get a 'Path))
    (setq sn (vlax-get a 'SerialNumber))))
(alert (strcat "Serial No: " (vl-princ-to-string  sn) "\n(hexadecimal)"))
(vlax-release-object drvs)
(vlax-release-object fs)
  )
;Call : (setq ser_no (getSN))

~'J'~

[KSI]

На самом деле в продуктах Autodesk есть скрытая привязка к железу, в том числе и к винту.

[apxap]

К чему все так сложно?
Пуск/выполнить/label и получишь серийный номер

[Александр Ривилис]

Сообщение от apxap К чему все так сложно? Пуск/выполнить/label и получишь серийный номер

Эта не тот серйный номер диска! Не путай логический номер диска, который меняется при форматировании и у каждого из логических разделов физичекого диска он свой и физичекий номер винчестера, который присваивается производителем. Его поменять без спецоборудования IMHO невозможно, а логический номер меняется без проблем!

Сообщение от KSI На самом деле в продуктах Autodesk есть скрытая привязка к железу, в том числе и к винту.

Безусловно! Хотя мне больше нравилась защита с ключом Sentinel.

[Kryaker]

Хотя мне больше нравилась защита с ключом Sentinel

Чем если не секрет?

( глючно и ненадежно )

[Александр Ривилис]

Сообщение от Kryaker Хотя мне больше нравилась защита с ключом Sentinel Чем если не секрет? ( глючно и ненадежно )

Это наверное offtopic, но у меня более 10 лет стоял AutoCAD'овский ключ и чуть меньше ключ МАЭСТРО. Никогда (!!!) никаких проблем ни с ключами ни с драйверами (для Windows NT4/98/2000/XP) не было. Если возникала необходимость поработать с AutoCAD на чужом PC достаточно было взять с собой ключ и драйвера (на дискетку умещаются запросто). Никаких тебе переносов лицензий, проблем с изменением конфигурации PC и т.д.
Но это все IMHO. И некая ностальгия...

[gest]

Александр согласен, например тот же самый Plaxis, надо работу взять на дом выдернул ключик дома поставил драйвера и работай на здоровье, а привязка к железу машины ущемляет пользователя и проще в некоторых случаях прибегать к услугам сайтов, которые не обсуждаются на этом форуме :)

[ShaggyDoc]

Ну и что, помогла какой-нибудь фирме привязка к винчестеру?

Программу просто инсталлируют на другую машину (с требуемыми ритуальными заклинаниями) и все. Ключи - другое дело. Это достаточно надежная штука, хотя при востребованности программы и она обходится.

К винчестеру можно привязать программу, если она индивидуально компилируется. Да, бывают такие системы - дорогие и индивидуальные. Вплоть до того, что работают только на специальном фирменном железе. Здесь пользователь обречен использовать быстро устаревающие машины.

Но обычно авторы просто преувеличивают ценность своих программ. Особенно Особенно авторы, у которых вообще возникает вопрос "как получить номер". И спрашивающие на форумах " Как мне просто получить текстовое значение его елемента называемого "SerialNumber".

[VetalBY]

Да, конечно, ключик удобнее, особенно если его покупает фирма, а ты его носишь домой
А если стоимость программы сопоставима со стоимостью ключа? И если ты покупаешь ее домой, за свои кровные?
Сколько кстати стОит ключик?

[Кулик Алексей aka kpblc]

http://www.alladin.ru/price/price_list/ к примеру

[VetalBY]

Сообщение от kpblc http://www.alladin.ru/price/price_list/ к примеру

Что-то меня на "Оформление заказа" перебрасывает, цен не вижу :shock: