得到硬盘的“硬”序列号.这个程序xp下得不到正确结果，错在哪里？

771466947

得到硬盘的“硬”序列号.这个程序在win7可以得到正确结果，如图：
但在xp下得不到正确结果，如图：




请问错在哪里？

源程序：
;;得到硬盘的“硬”序列号.
(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)
)

Lisphk

wbemScripting.SwbemLocator 这个貌似只能在VISTA以上的系统用。换个方法吧，搜索下论坛，有。

771466947

Lisphk 发表于 2017-6-28 14:56

谢谢，我再仔细找找，相信可以找到的

marting

771466947 发表于 2017-6-28 15:03

用 序列号 搜索论坛就有了， 试试那个 Scripting.FileSystemObject 方法。

771466947

Lisphk 发表于 2017-6-28 14:56

有什么法,提示下下

771466947

marting 发表于 2017-6-28 15:27

谢谢，找到了，下班后再测试下

771466947

771466947 发表于 2017-6-28 15:38

我搜索到了，有两个方法，但是还是没办法在XP下得到硬盘物理序列号。Scripting.FileSystemObject 这个方法得到的不是硬盘物理序列号，只是驱动器的序列号


求大师帮忙，谢谢

marting

771466947 发表于 2017-6-28 18:13

你又不是做 磁盘分析软件，你要序列号也是为了比如加密什么的用途吧，得到驱动器的逻辑序列号不也是唯一的识别出磁盘吗？为什么一定要需要物理磁盘序列号。

771466947

marting 发表于 2017-6-28 18:55

驱动器的逻辑序列号虽然也是唯一的识别出磁盘，但听说重新装系统后，驱动器的逻辑序列号有可能会变，所以用物理序列号就不会变啊

marting

771466947 发表于 2017-6-28 19:31

你可以试试，启动几次系统，看看会变不。

sicky111

这方法可以。