获取硬盘序列号

marting · 发表于 2021-1-29 01:36:54

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun Get_Hard_Serial (Path / fsObj hSn abPth)
(vl-load-com)
(if
(and
(setq fsObj (vlax-create-object "Scripting.FileSystemObject"))
(not
(vl-catch-all-error-p
(setq abPth (vl-catch-all-apply
'vlax-invoke-method
(list fsObj 'GetAbsolutePathName Path)
)
) ; end setq
) ; end vl-catch-all-error-p
) ; end not
) ; end and
(progn
(setq cDrv (vlax-invoke-method
fsObj
'GetDrive
(vlax-invoke-method
fsObj
'GetDriveName
abPth
) ; end vlax-invoke-method
) ;end vlax-invoke-method
) ; end setq
(if
(vl-catch-all-error-p
(setq hSn (vl-catch-all-apply
'vlax-get-property
(list cDrv 'SerialNumber)
)
)
)
(progn
(vlax-release-object cDrv)
(setq hSn nil)
) ; end progn
) ; end if
(vlax-release-object fsObj)
) ; end progn
) ; end if
hSn
) ; end of Get_Hard_Serial

(defun Get_Hard_Serial (Path / fsObj hSn abPth) 
  (vl-load-com) 
  (if 
    (and 
      (setq fsObj (vlax-create-object "Scripting.FileSystemObject")) 
      (not 
        (vl-catch-all-error-p 
          (setq        abPth (vl-catch-all-apply 
                        'vlax-invoke-method 
                        (list fsObj 'GetAbsolutePathName Path) 
                      ) 
          )                                ; end setq 
        )                                ; end vl-catch-all-error-p 
      )                                        ; end not 
    )                                        ; end and 
     (progn 
       (setq cDrv (vlax-invoke-method 
                    fsObj 
                    'GetDrive 
                    (vlax-invoke-method 
                      fsObj 
                      'GetDriveName 
                      abPth 
                    )                        ; end vlax-invoke-method 
                  )                        ;end vlax-invoke-method 
       )                                ; end setq 
       (if 
         (vl-catch-all-error-p 
           (setq hSn (vl-catch-all-apply 
                       'vlax-get-property 
                       (list cDrv 'SerialNumber) 
                     ) 
           ) 
         ) 
          (progn 
            (vlax-release-object cDrv) 
            (setq hSn nil) 
          )                                ; end progn 
       )                                ; end if 
       (vlax-release-object fsObj) 
     )                                        ; end progn 
  )                                        ; end if 
  hSn 
)                                        ; end of Get_Hard_Serial

命令: (GET_HARD_SERIAL "c:")
1724137436
命令: (GET_HARD_SERIAL "d:")
574924694

aisong220 · 发表于 2021-1-29 11:13:29

hh_lj007 · 发表于 2021-1-29 14:24:07

每日一码，每日一抄

xvjiex · 发表于 2021-4-1 00:23:37

感谢楼主分享获取硬盘序列号，优秀作品，收藏！

janshyl · 发表于 2021-4-1 13:52:02

值得學習感謝樓主分享

一张单程票 · 发表于 2022-6-9 09:17:52

看到好贴必赞，感谢分享！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 获取硬盘序列号

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。