获得机器的MAC地址

marting

1. (defun get_macaddress (/ Locator Server Query ret)
   
2.   (if (and (setq Locator (vlax-create-object "WbemScripting.SWbemLocator"))
   
3.            (setq
   
4.              Server (vlax-invoke Locator 'ConnectServer "." "root\\cimv2")
   
5.            )
   
6.            (setq Query
   
7.                   (vlax-invoke
   
8.                     Server
   
9.                     'ExecQuery
   
10.                     "select * from Win32_NetworkAdapterConfiguration where IPEnabled = True"
    
11.                   )
    
12.            )
    
13.       )
    
14.     (vlax-for item Query (setq ret (vlax-get item 'MacAddress)))
    
15.   )
    
16.   (foreach obj '(Locator Server Query)
    
17.     (vl-catch-all-apply 'vlax-release-object (list obj))
    
18.   )
    
19.   ret
    
20. )
    

(defun get_macaddress (/ Locator Server Query ret)<br />   (if (and (setq Locator (vlax-create-object "WbemScripting.SWbemLocator"))<br />            (setq<br />              Server (vlax-invoke Locator 'ConnectServer "." "root\\cimv2")<br />            )<br />            (setq Query<br />                   (vlax-invoke<br />                     Server<br />                     'ExecQuery<br />                     "select * from Win32_NetworkAdapterConfiguration where IPEnabled = True"<br />                   )<br />            )<br />       )<br />     (vlax-for item Query (setq ret (vlax-get item 'MacAddress)))<br />   )<br />   (foreach obj '(Locator Server Query)<br />     (vl-catch-all-apply 'vlax-release-object (list obj))<br />   )<br />   ret<br /> )<br />

_$ (GET_MACADDRESS)
"00:E0:4C:36:0F:3D"

cfc123456

谢谢提供！！

2013127ll

顶起！！！！！！！！！！！

lisperado

直接以自带命令提取再粘贴或输出txt文件再过滤（虽然command会有点慢）
顺便也提取TCP/IP

1. (vl-cmdf "_SHELL" "GETMAC | CLIP")

(vl-cmdf "_SHELL" "GETMAC | CLIP")

Physical Address    Transport Name                                            
=================== ==========================================================
00-24-54-B5-88-D4   Media disconnected                                       
00-26-B5-FF-1B-7F   \Device\Tcpip_{1929A578-69B3-4CBD-BBE2-BAE546A12A1F}      
00-26-B5-FF-15-A7   Media disconnected                                       
00-26-B5-FF-2A-8F   Media disconnected                                       

newer

lisperado 发表于 2018-11-26 11:30
直接以自带命令提取再粘贴或输出txt文件再过滤（虽然command会有点慢）
顺便也提取TCP/IP

这个也是个方法，按你说的，使用API的SHELL函数，可以直接在ACAD里面得到


打印命令

1. (defun c:tt (/ handle sResult)
   
2.   (setq        handle (xdrx_shell_open "c:\\windows\\system32\\getmac.exe"
   
3.                           ""
   
4.                )
   
5.   )
   
6.   (if (/= nil handle)
   
7.     (progn
   
8.       (while (/= nil (setq sResult (xdrx_shell_readdata handle)))
   
9.         (princ sResult)
   
10.       )
    
11.       (xdrx_shell_close handle)
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )
    

(defun c:tt (/ handle sResult)<br />   (setq        handle (xdrx_shell_open "c:\\windows\\system32\\getmac.exe"<br />                           ""<br />                )<br />   )<br />   (if (/= nil handle)<br />     (progn<br />       (while (/= nil (setq sResult (xdrx_shell_readdata handle)))<br />         (princ sResult)<br />       )<br />       (xdrx_shell_close handle)<br />     )<br />   )<br />   (princ)<br /> )<br />

sResult 是返回值

lisperado

newer 发表于 2018-11-26 12:40
这个也是个方法，按你说的，使用API的SHELL函数，可以直接在ACAD里面得到

虽然同样shell思路，但见识到API或其它思路以增长知识！学习学习谢谢　

jsygsl

版主：请问如何获得域名和局域网内的电脑名？