硬件相关函数

尘缘一生

根据本坛及搜集的代码:
我的理解是：
  1：网卡的MAC是独立唯一的。
  3：CPU不能保证唯一
  4：硬盘序号：不能保证唯一，格式化后会变化；而物理硬盘序号， LISP取不了，硬盘类型函数也不是唯一的，可以取字符串用。
  5：主板类型：不唯一，可以取字符串用。
        
没有测试，是不是WIN7，WIN10这些都成功否，CAD所有版本都成功否？有用过的，贴上结论。。

2. ;|IP是在计算机里地址与MAC地址以MAC地址2表示的，IP是48位的[3]。
   
3. MAC的长度为48位（6个字节），为12个16个典型地址数
   
4. 代表前6位16的EA数字00-16-制造硬件网络的，它由电气与电子协会分配，
   
5. 而代表后6位16的爆系列商号AE-3C-40的网络产品制造（如网卡）
   
6. 只是不改变自己的MAC地址，MAC地址在世界是惟一的
   
7. 用法：(setq str (wdy_mac)) "4C:CC:6A:2B:6E:6E"
   
8. |;
   
9. ( defun wdy_mac ( / macip )
   
10.   ( setq WMI ( vlax-create-object "WbemScripting.SWbemLocator" ))
    
11.   ( setq SVR ( vlax-invoke WMI 'ConnectServer ))
    
12.   ( setq   str "Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE" )
    
13.   ( setq MAC ( vlax-invoke SVR 'ExecQuery str ))
    
14.   ( vlax-for i MAC ( setq s ( cons ( vlax-get i 'MACAddress ) S )))
    
15.   ( setq macip ( car s ))
    
16.   ( vlax-release-object MAC )
    
17.   ( vlax-release-object SVR )
    
18.   ( vlax-release-object WMI )
    
19.   ;;马西普
    
20. )
    
21. 
    
22. ;;获取CPU序列号 (get_cpu_number) "BFEBFBFF000906E9" CPUID很多电脑都一样
    
23. ( defun get_cpu_number ( / wmi meth1 meth2 cpu_id board_id )
    
24.   ( setq wmi ( vlax-create-object "WbemScripting.SWbemLocator" ))
    
25.   ( setq   meth1 ( vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil ) )
    
26.   ( setq   meth2 ( vlax-invoke-method meth1 'ExecQuery "Select * from Win32_Processor" nil nil nil ))
    
27.   ( vlax-for n meth2
    
28.     ;;(print (vlax-get n 'name)) ;"Intel(R) Core(TM) i5-7400 CPU @ 3.00GHz"
    
29.     ( setq cpu_id ( vlax-get n 'ProcessorId ))
    
30.   )
    
31.   ( foreach obj ( list wmi meth1 meth2 ) ( if   obj ( vlax-release-object obj )))
    
32.   cpu_id
    
33. )
    
34. 
    
35. ;;获取主板序列号(get_motherboard_number) "G416195192"
    
36. ( defun get_motherboard_number ( / wmi meth1 meth2 board_id )
    
37.   ( setq wmi ( vlax-create-object "WbemScripting.SWbemLocator" ))
    
38.   ( setq   meth1 ( vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil ) )
    
39.   ( setq   meth2 ( vlax-invoke-method meth1 'ExecQuery "Select * from Win32_BaseBoard" nil nil nil ))
    
40.   ( vlax-for n meth2
    
41.     ;; （princ（vlax-get n'name））；“产品”
    
42.     ( setq board_id ( vlax-get n 'SerialNumber ))
    
43.   )
    
44.   ( foreach obj ( list wmi meth1 meth2 ) ( if   obj ( vlax-release-object obj )))
    
45.   board_id
    
46. )
    
47. 
    
48. ;---- 获取硬盘序列号------(find_serialnumber "C:")
    
49. ( defun find_serialnumber (drive / filsys val )
    
50.   ( setq filsys ( vlax-create-object "Scripting.FileSystemObject" ))
    
51.   （setq val （vlax-invoke filsys “GetDrive”drive））
    
52.   ( setq val ( vl-catch-all-apply ' vlax-get ( list val "SerialNumber" )))
    
53.   ( vlax-release-object filsys )
    
54.   （if（vl-catch-all-error-p val ）  
    
55.     ( setq val nil )
    
56.     val
    
57.   )
    
58. )
    
59. ;|  返回磁盘的类型
    
60. 用法: (vldos-drivetype DriveLetter[STRING])
    
61.   参数1: 盘符 例如: "C:"
    
62. 说明:
    
63.     返回磁盘的类型
    
64. 返回值:
    
65. [成功]: 磁盘的类型
    
66. [失败]: NIL
    
67. |;
    
68. (Defun vldos-drivetype (drv / Fil drives drive typ rtn)
    
69.   (setq rtn "INVALID")
    
70.   (if
    
71.     (and (setq
    
72.     Fil (vlax-get-or-create-object "Scripting.FileSystemObject")
    
73.   )
    
74.   (equal :vlax-true (vlax-invoke-method Fil 'DriveExists drv))
    
75.     )
    
76.      (progn
    
77.        (setq drives (vlax-get-property Fil 'Drives)
    
78.       drive  (vlax-get-property drives 'Item drv)
    
79.       typ    (vlax-get-property drive 'DriveType)
    
80.       rtn    (nth typ
    
81.     (list "UNKNOWN"     "REMOVABLE"
    
82.           "FIXED"      "REMOTE"
    
83.           "CDROM"      "RAMDISK"
    
84.          )
    
85.       )
    
86.        )
    
87.        (vlax-release-object drive)
    
88.        (vlax-release-object drives)
    
89.        (vlax-release-object Fil)
    
90.      )
    
91.   )
    
92.   rtn
    
93. )

;|IP是在计算机里地址与MAC地址以MAC地址2表示的，IP是48位的[3]。<br /> MAC的长度为48位（6个字节），为12个16个典型地址数<br /> 代表前6位16的EA数字00-16-制造硬件网络的，它由电气与电子协会分配，<br /> 而代表后6位16的爆系列商号AE-3C-40的网络产品制造（如网卡）<br /> 只是不改变自己的MAC地址，MAC地址在世界是惟一的<br /> 用法：(setq str (wdy_mac)) "4C:CC:6A:2B:6E:6E"<br /> |;<br /> ( defun wdy_mac ( / macip )<br />   ( setq WMI ( vlax-create-object "WbemScripting.SWbemLocator" ))<br />   ( setq SVR ( vlax-invoke WMI 'ConnectServer ))<br />   ( setq   str "Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE" )<br />   ( setq MAC ( vlax-invoke SVR 'ExecQuery str ))<br />   ( vlax-for i MAC ( setq s ( cons ( vlax-get i 'MACAddress ) S )))<br />   ( setq macip ( car s ))<br />   ( vlax-release-object MAC )<br />   ( vlax-release-object SVR )<br />   ( vlax-release-object WMI )<br />   ;;马西普<br /> )<br /> <br /> ;;获取CPU序列号 (get_cpu_number) "BFEBFBFF000906E9" CPUID很多电脑都一样<br /> ( defun get_cpu_number ( / wmi meth1 meth2 cpu_id board_id )<br />   ( setq wmi ( vlax-create-object "WbemScripting.SWbemLocator" ))<br />   ( setq   meth1 ( vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil ) )<br />   ( setq   meth2 ( vlax-invoke-method meth1 'ExecQuery "Select * from Win32_Processor" nil nil nil ))<br />   ( vlax-for n meth2<br />     ;;(print (vlax-get n 'name)) ;"Intel(R) Core(TM) i5-7400 CPU @ 3.00GHz"<br />     ( setq cpu_id ( vlax-get n 'ProcessorId ))<br />   )<br />   ( foreach obj ( list wmi meth1 meth2 ) ( if   obj ( vlax-release-object obj )))<br />   cpu_id<br /> )<br /> <br /> ;;获取主板序列号(get_motherboard_number) "G416195192"<br /> ( defun get_motherboard_number ( / wmi meth1 meth2 board_id )<br />   ( setq wmi ( vlax-create-object "WbemScripting.SWbemLocator" ))<br />   ( setq   meth1 ( vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil ) )<br />   ( setq   meth2 ( vlax-invoke-method meth1 'ExecQuery "Select * from Win32_BaseBoard" nil nil nil ))<br />   ( vlax-for n meth2<br />     ;; （princ（vlax-get n'name））；“产品”<br />     ( setq board_id ( vlax-get n 'SerialNumber ))<br />   )<br />   ( foreach obj ( list wmi meth1 meth2 ) ( if   obj ( vlax-release-object obj )))<br />   board_id<br /> )<br /> <br /> ;---- 获取硬盘序列号------(find_serialnumber "C:")<br /> ( defun find_serialnumber (drive / filsys val )<br />   ( setq filsys ( vlax-create-object "Scripting.FileSystemObject" ))<br />   （setq val （vlax-invoke filsys “GetDrive”drive））<br />   ( setq val ( vl-catch-all-apply ' vlax-get ( list val "SerialNumber" )))<br />   ( vlax-release-object filsys )<br />   （if（vl-catch-all-error-p val ）  <br />     ( setq val nil )<br />     val<br />   )<br /> )<br /> ;|  返回磁盘的类型<br /> 用法: (vldos-drivetype DriveLetter[STRING])<br />   参数1: 盘符 例如: "C:"<br /> 说明:<br />     返回磁盘的类型<br /> 返回值:<br /> [成功]: 磁盘的类型<br /> [失败]: NIL<br /> |;<br /> (Defun vldos-drivetype (drv / Fil drives drive typ rtn)<br />   (setq rtn "INVALID")<br />   (if<br />     (and (setq<br />     Fil (vlax-get-or-create-object "Scripting.FileSystemObject")<br />   )<br />   (equal :vlax-true (vlax-invoke-method Fil 'DriveExists drv))<br />     )<br />      (progn<br />        (setq drives (vlax-get-property Fil 'Drives)<br />       drive  (vlax-get-property drives 'Item drv)<br />       typ    (vlax-get-property drive 'DriveType)<br />       rtn    (nth typ<br />     (list "UNKNOWN"     "REMOVABLE"<br />           "FIXED"      "REMOTE"<br />           "CDROM"      "RAMDISK"<br />          )<br />       )<br />        )<br />        (vlax-release-object drive)<br />        (vlax-release-object drives)<br />        (vlax-release-object Fil)<br />      )<br />   )<br />   rtn<br /> )

baitang36

主板和内存序列号有些电脑是空的。
新cpu已经没有唯一的id，同一批产品是一样的。
网卡的mac可以通过修改注册表来改变它，虚拟机也有虚拟的mac，不可靠。
简单加密用硬盘的软件序列号就行，值钱的软件建议用专业加密锁，我研究过用lisp读写专业锁。
获取硬盘物理序列号的程序：
(defun HDSerial        (/ wmi srv drv ser)
  (SETQ SER NIL)
  (vl-catch-all-apply
    (function
      (lambda ()
        (if
          (setq        wmi (vlax-create-object "WbemScripting.SWbemLocator")
                srv (vlax-invoke
                      wmi      'connectserver         nil          nil
                      nil      nil        nil         nil          nil
                      nil
                     ) ;_ vlax-invoke
                drv (vlax-invoke
                      srv
                      'execquery
                      "Select SerialNumber from Win32_DiskDrive"
                    ) ;_ vlax-invoke
          ) ;_ setq
           (vlax-for item drv
             (vlax-for prop (vlax-get item 'Properties_)
               (if (eq "SERIALNUMBER" (strcase (vlax-get prop 'name)))
                 (setq ser
                        (CONS (vl-string-trim " " (vlax-get prop 'value))
                              SER
                        ) ;_ CONS
                 ) ;_ setq
               ) ;_ if
             ) ;_ vlax-for
           ) ;_ vlax-for
        ) ;_ if
      ) ;_ lambda
    ) ;_ function
  ) ;_ vl-catch-all-apply
  (if drv
    (vlax-release-object drv)
  ) ;_ if
  (if srv
    (vlax-release-object srv)
  ) ;_ if
  (if wmi
    (vlax-release-object wmi)
  ) ;_ if
  (REVERSE ser)
) ;_ defun

返回一个表，所有硬盘的物理序列号。在win10下试验成功。别的系统没试验过。

尘缘一生

baitang36 发表于 2022-5-2 12:08
主板和内存序列号有些电脑是空的。
新cpu已经没有唯一的id，同一批产品是一样的。
网卡的mac可以通过修 ...

老哥，硬盘格式化没有变化吧？网卡MAC是，可谁会没事改这个呢？

尘缘一生

e2002 发表于 2022-4-24 10:00
改成网络授权才能解决破解问题

网络授权，搞不到技术代码，希望本坛有整理一并发布。并且，没有网的地方就不行了，尤其是搞工程的，经常荒天野地。

ynhh

可能还是用加密锁才好吧

e2002

改成网络授权才能解决破解问题

尘缘一生

ynhh 发表于 2022-4-24 09:32
可能还是用加密锁才好吧

软件正儿八经的开发商，大型的才值得。

1993063

感谢各位大神分享,学习了!

f4800

不错的源码 非常实用  多谢

f4800

不错的源码 非常实用  多谢

zj20190405

; 错误: 实参太少