[求助]：如何用VLisp获取硬盘序列号

fcd2002 · 发表于 2005-5-15 11:09:36

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

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

×

请教：如何用VLisp获取硬盘序列号？

kohi · 发表于 2005-5-16 09:04:14

REFER to:
[php]
(defun GetDriveInfos (Drv / DrvObj FilSys RetVal)
(setq FilSys (vlax-create-object "Scripting.FileSystemObject")
   RetVal (cond
            ((= (vlax-invoke FilSys 'DriveExists Drv) 0) 0)
            ((setq DrvObj (vlax-invoke FilSys 'GetDrive Drv))
            (cond
               ((= (vlax-get DrvObj 'IsReady) 0) -1)
               ((list
               (/ (vlax-get DrvObj 'TotalSize) 1000.0)
               (/ (vlax-get DrvObj 'FreeSpace) 1000.0)
               (vlax-get DrvObj 'DriveType)
               (vlax-get DrvObj 'FileSystem)
               (vlax-get DrvObj 'SerialNumber)
               (vlax-get DrvObj 'ShareName)
               (vlax-get DrvObj 'VolumeName)
               )
               )
            )
            )
            )
)
(if DrvObj (vlax-release-object DrvObj))
(vlax-release-object FilSys)
RetVal
)
[/php]

fcd2002 · 发表于 2005-5-16 21:46:16

非常感谢帮助的朋友!!!

lzy0511 · 发表于 2005-5-17 13:31:09

怎么用啊

urljit · 发表于 2005-5-17 18:11:03

_$ (GetDriveInfos)
; 错误: 参数太少
_$ (GetDriveInfos c)
; 错误: 参数不可选。
_$ (GetDriveInfos c:)
; 错误: 参数不可选。
_$ (GetDriveInfos 0)
0
_$ (GetDriveInfos 1)
0
_$ (GetDriveInfos 3)
0
_$ (GetDriveInfos 2)
0

到底是如何使用呢？

mmmm · 发表于 2005-5-17 20:36:53

得到“软”的序列号

(Defun vldos-driveinfo (Drv Key / pos rtn)
(if (/= (type key) 'STR)
(setq rtn (vldos-alldriveinfo drv))
(if (setq pos (vl-position
(setq key (strcase key))
(list "TOTALSIZE" "FREESPACE"
"DRIVETYPE" "FILESYSTEM"
"SERIALNUMBER" "SHARENAME"
"VOLUMENAME"
)
)
)
(setq rtn (nth pos (vldos-alldriveinfo drv)))
)
)
rtn
)
(Defun vldos-alldriveinfo (Drv / DrvObj FilSys RetVal)
(if (setq
FilSys (vlax-get-or-create-object "Scripting.FileSystemObject")
)
(progn
(setq RetVal
(cond
((= (vlax-invoke FilSys "DriveExists" Drv) 0) 0)
((setq DrvObj (vlax-invoke FilSys "GetDrive" Drv))
(cond
((= (vlax-get DrvObj "IsReady") 0) -1)
((list
(vlax-variant-value
(vlax-get-property DrvObj "TotalSize")
)
(vlax-variant-value
(vlax-get-property DrvObj "FreeSpace")
)
(vlax-get-property DrvObj "DriveType")
(vlax-get-property DrvObj "FileSystem")
(vlax-get-property DrvObj "SerialNumber")
(vlax-get-property DrvObj "ShareName")
(vlax-get-property DrvObj "VolumeName")
)
)
)
)
)
)
(if (equal (type DrvObj) 'vla-object)
(vlax-release-object DrvObj)
)
(vlax-release-object FilSys)
)
)
RetVal
)

(Defun vldos-driveinfo (Drv Key / pos rtn) 
  (if (/= (type key) 'STR) 
    (setq rtn (vldos-alldriveinfo drv)) 
    (if        (setq pos (vl-position 
                    (setq key (strcase key)) 
                    (list "TOTALSIZE"            "FREESPACE" 
                          "DRIVETYPE"            "FILESYSTEM" 
                          "SERIALNUMBER"    "SHARENAME" 
                          "VOLUMENAME" 
                         ) 
                  ) 
        ) 
      (setq rtn (nth pos (vldos-alldriveinfo drv))) 
    ) 
  ) 
  rtn 
) 
(Defun vldos-alldriveinfo (Drv / DrvObj FilSys RetVal) 
  (if (setq 
        FilSys (vlax-get-or-create-object "Scripting.FileSystemObject") 
      ) 
    (progn 
      (setq RetVal 
             (cond 
               ((= (vlax-invoke FilSys "DriveExists" Drv) 0) 0) 
               ((setq DrvObj (vlax-invoke FilSys "GetDrive" Drv)) 
                (cond 
                  ((= (vlax-get DrvObj "IsReady") 0) -1) 
                  ((list 
                     (vlax-variant-value 
                       (vlax-get-property DrvObj "TotalSize") 
                     ) 
                     (vlax-variant-value 
                       (vlax-get-property DrvObj "FreeSpace") 
                     ) 
                     (vlax-get-property DrvObj "DriveType") 
                     (vlax-get-property DrvObj "FileSystem") 
                     (vlax-get-property DrvObj "SerialNumber") 
                     (vlax-get-property DrvObj "ShareName") 
                     (vlax-get-property DrvObj "VolumeName") 
                   ) 
                  ) 
                ) 
               ) 
             ) 
      ) 
      (if (equal (type DrvObj) 'vla-object) 
        (vlax-release-object DrvObj) 
      ) 
      (vlax-release-object FilSys) 
    ) 
  ) 
  RetVal 
)

得到“硬”的序列号

(defun vldos-phyhar (/ ret serx lccon item lox objw)
(vl-load-com)
(setq serx '())
(if (SETQ OBJW (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
(progn
(SETQ lccon (VLAX-INVOKE
OBJW 'ConnectServer "."
"\\root\\cimv2" "" ""
"" "" 128 nil
)
)
(setq lox (vlax-invoke
lccon
'ExecQuery
"Select SerialNumber,Tag from Win32_PhysicalMedia"
)
)
(vlax-for item lox
(setq serx (cons (list (vlax-get item 'Tag)
(vlax-get item 'SerialNumber)
)
serx
)
)
)
(vlax-release-object lox)
(vlax-release-object lccon)
(vlax-release-object objW)
)
)
(reverse serx)
)

(defun vldos-phyhar        (/ ret serx lccon item lox objw) 
  (vl-load-com) 
  (setq serx '()) 
  (if (SETQ OBJW (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator")) 
    (progn 
      (SETQ lccon (VLAX-INVOKE 
                    OBJW       'ConnectServer             "." 
                    "\\root\\cimv2"          ""             "" 
                    ""               ""          128             nil 
                   ) 
      ) 
      (setq lox        (vlax-invoke 
                  lccon 
                  'ExecQuery 
                  "Select SerialNumber,Tag from Win32_PhysicalMedia" 
                ) 
      ) 
      (vlax-for        item lox 
        (setq serx (cons (list (vlax-get item 'Tag) 
                               (vlax-get item 'SerialNumber) 
                         ) 
                         serx 
                   ) 
        ) 
      ) 
      (vlax-release-object lox) 
      (vlax-release-object lccon) 
      (vlax-release-object objW) 
    ) 
  ) 
  (reverse serx) 
)

CADghost · 发表于 2005-5-19 10:22:52

直接用DOSLIB不行吗?

snd83 · 发表于 2005-5-19 11:49:24

没用过DOSLIB

Job_ho · 发表于 2005-5-19 14:05:58

這樣用
(GetDriveInfos "C:")

如果用DOSLIB,那還要加載DOSLIB,,程序就不是單一個了

CADghost · 发表于 2005-5-20 08:03:43

那也就只需两行,doslib的出现不就是为了简化编程吗?

lzy0511 · 发表于 2005-5-20 08:28:59

六楼楼主，请问你的程序怎么用呀？

panzhongw · 发表于 2005-5-20 09:44:04

使用硬盘序列号是想加密，但此方法有一个缺点：一旦对方重装系统，侧硬盘序列号就可能变化，就需要重生成安装号。有其他更好的方法吗？比如计算机用户名或CPU的ID。

啵浪鼓 · 发表于 2005-5-21 00:21:31

(if(/= "登陆账号名" (getvar "LOGINNAME"))(exit))
(if(/= "机算机名称" (getenv "ComputerName"))(exit))

monkeyzxp · 发表于 2005-6-3 15:38:30

请问怎样取得CPU的ID呢？

小菜 · 发表于 2005-6-3 16:15:50

6楼的硬序列号程序不能执行，错误：
错误: SWbemLocator: 无效参数

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

[求助] [求助]：如何用VLisp获取硬盘序列号

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

相关帖子

浏览过的版块