求一个获得硬盘序列号或网卡mac的函数

54256

目前我有一个获取mac的函数，但是在64位下用不来
求好心人给一个，注软件用

fl202

54256 发表于 2015-8-17 16:03
不懂，望赐教
我都是在管理员账号下试的
这是我的函数

我的是64位的，运行正常，能得到结果。

toproc

54256 发表于 2015-8-17 16:03
不懂，望赐教
我都是在管理员账号下试的
这是我的函数

不连网就获取不了

toproc

54256 发表于 2015-8-17 16:03
不懂，望赐教
我都是在管理员账号下试的
这是我的函数

不连网就获取不了

lucas_3333

论坛多不胜数, 求比搜索简单多了...

54256

lucas_3333 发表于 2015-8-17 15:09
论坛多不胜数, 求比搜索简单多了...

搜来的只能在32位下用

lucas_3333

54256 发表于 2015-8-17 15:12
搜来的只能在32位下用

有时候你要知道 ,并不是32下能用,而64位就不能用了, 你确定不是权限问题造成的? 跟 uac 没关系?

54256

lucas_3333 发表于 2015-8-17 15:46
有时候你要知道 ,并不是32下能用,而64位就不能用了, 你确定不是权限问题造成的? 跟 uac 没关系?

不懂，望赐教
我都是在管理员账号下试的
这是我的函数
;;;获取mac地址
;;;()(获取mac地址)
(defun get-macip ( / wmi svr str mac s i)
(vl-load-com)
(setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))
(setq svr (vlax-invoke wmi 'ConnectServer))
(setq str "Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
(setq mac (vlax-invoke svr 'ExecQuery str))
(vlax-for i mac
        (setq s (cons (vlax-get i 'macAddress) s))
)
(vlax-release-object mac)
(vlax-release-object svr)
(vlax-release-object wmi)       
(car s)               
)
应该是第4句造成的，但是不知道怎么改

lucas_3333

54256 发表于 2015-8-17 16:03
不懂，望赐教
我都是在管理员账号下试的
这是我的函数

我说过了，检查你系统的uac...
我这里64位win7没有问题

迹扬

暂时还没发现LISP挑系统的事情

54256

lucas_3333 发表于 2015-8-17 21:54
我说过了，检查你系统的uac...
我这里64位win7没有问题

我试了下，把uac设到最下面那档
还是不行，不知道我设的对不对

clinber

54256 发表于 2015-8-19 17:49
我试了下，把uac设到最下面那档
还是不行，不知道我设的对不对

我这儿也可以