明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1913|回复: 11

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

[复制链接]
发表于 2015-8-17 15:07 | 显示全部楼层 |阅读模式
目前我有一个获取mac的函数,但是在64位下用不来
求好心人给一个,注软件用
发表于 2017-12-4 14:05 | 显示全部楼层
54256 发表于 2015-8-17 16:03
不懂,望赐教
我都是在管理员账号下试的
这是我的函数

我的是64位的,运行正常,能得到结果。
发表于 2017-12-1 11:52 | 显示全部楼层
54256 发表于 2015-8-17 16:03
不懂,望赐教
我都是在管理员账号下试的
这是我的函数

不连网就获取不了
发表于 2017-12-1 11:51 | 显示全部楼层
54256 发表于 2015-8-17 16:03
不懂,望赐教
我都是在管理员账号下试的
这是我的函数

不连网就获取不了
发表于 2015-8-17 15:09 | 显示全部楼层
论坛多不胜数, 求比搜索简单多了...
 楼主| 发表于 2015-8-17 15:12 | 显示全部楼层
lucas_3333 发表于 2015-8-17 15:09
论坛多不胜数, 求比搜索简单多了...

搜来的只能在32位下用
发表于 2015-8-17 15:46 | 显示全部楼层
54256 发表于 2015-8-17 15:12
搜来的只能在32位下用

有时候你要知道 ,并不是32下能用,而64位就不能用了, 你确定不是权限问题造成的? 跟 uac 没关系?
 楼主| 发表于 2015-8-17 16:03 | 显示全部楼层
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句造成的,但是不知道怎么改
发表于 2015-8-17 21:54 | 显示全部楼层
本帖最后由 lucas_3333 于 2015-8-18 08:09 编辑
54256 发表于 2015-8-17 16:03
不懂,望赐教
我都是在管理员账号下试的
这是我的函数

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



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2015-8-18 09:21 | 显示全部楼层
暂时还没发现LISP挑系统的事情
 楼主| 发表于 2015-8-19 17:49 | 显示全部楼层
lucas_3333 发表于 2015-8-17 21:54
我说过了,检查你系统的uac...
我这里64位win7没有问题

我试了下,把uac设到最下面那档
还是不行,不知道我设的对不对
发表于 2015-8-19 17:54 | 显示全部楼层
54256 发表于 2015-8-19 17:49
我试了下,把uac设到最下面那档
还是不行,不知道我设的对不对

我这儿也可以
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-5-16 04:26 , Processed in 0.187260 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表