54256 发表于 2015-8-17 15:07:22

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

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

fl202 发表于 2017-12-4 14:05:53

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


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

toproc 发表于 2017-12-1 11:52:32

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


不连网就获取不了

toproc 发表于 2017-12-1 11:51:40

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


不连网就获取不了

lucas_3333 发表于 2015-8-17 15:09:23

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

54256 发表于 2015-8-17 15:12:04

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

搜来的只能在32位下用

lucas_3333 发表于 2015-8-17 15:46:26

54256 发表于 2015-8-17 15:12 static/image/common/back.gif
搜来的只能在32位下用

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

54256 发表于 2015-8-17 16:03:17

lucas_3333 发表于 2015-8-17 15:46 static/image/common/back.gif
有时候你要知道 ,并不是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 发表于 2015-8-17 21:54:52

本帖最后由 lucas_3333 于 2015-8-18 08:09 编辑

54256 发表于 2015-8-17 16:03 static/image/common/back.gif
不懂,望赐教
我都是在管理员账号下试的
这是我的函数

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



迹扬 发表于 2015-8-18 09:21:27

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

54256 发表于 2015-8-19 17:49:04

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

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

clinber 发表于 2015-8-19 17:54:44

54256 发表于 2015-8-19 17:49 static/image/common/back.gif
我试了下,把uac设到最下面那档
还是不行,不知道我设的对不对

我这儿也可以
页: [1] 2
查看完整版本: 求一个获得硬盘序列号或网卡mac的函数