这是获取网卡mac的程序，为什么运行会有错误提示

congcong

(defun c:pcmac (/ ll path fib nn nr )
(SETQ ll (findfile "C:\\WINNT"))
(IF (= ll "C:\\WINNT")
(setq path "C:\\WINNT\\pcmac.txt")
(setq path "C:\\WINDOWS\\pcmac.txt")
)
(if (= (findfile path) nil)
(vl-cmdf "_.Shell" (strcat "ipconfig /all >" path))
(progn
(vl-file-delete path)
(vl-cmdf "_.Shell" (strcat "ipconfig /all >" path))
)
) (setq fib (open path "R")
nn t
)
(while nn
(setq nr (read-line fib))
(if (and (/= nr nil)
(wcmatch nr "*Physical Address*")
)
(setq mac (substr nr 38 17)
nn nil)
)
(if (= nr nil)
(setq nn nil)
)
);end while

(close fib)
(vl-file-delete path)
) 不知为何运行后会有error: bad argument type: FILE nil的提示。 如果一行一行试运行的话程序完全是正确的。 大家看看吧

江南十笑

highflybir 发表于 2013-1-13 11:37
http://blogs.msdn.com/b/wmi/archive/2009/09/16/wmi-remote-query-for-win32-product-class-results-in ...

这个链接打不开  我也遇到类似问题了

toproc

highflybir 发表于 2013-1-4 11:23

不连网的情况，如何获取mac地址呢？

龙龙仔

程序在"C:\\WINNT\\pcmac.txt"這個檔案還沒有出現前 就開始執行 (setq FIB (open PATH "r") 當然會有error: bad argument type: FILE nil的提示。

congcong

不明白你的意思，我在(setq FIB (open PATH "r")之前就已经有生成C:\\WINNT\\pcmac.txt这个文件了呀. (if (= (findfile path) nil)
(vl-cmdf "_.Shell" (strcat "ipconfig /all >" path))
(progn
(vl-file-delete path)
(vl-cmdf "_.Shell" (strcat "ipconfig /all >" path))
)
) (setq fib (open path "R")
nn t
) 那位帮我改改这个程序吧

meflying

你只是去做了,但生没有生成你并没有确定,就是说生成这样一个文件需要时间,你可能在这个时间内就执行了以下的程序...


你可以这样


(while (not (findfile path))


         (command "_.delay" 100)


)

congcong

多谢指点。程序已经成功了

srv2

我遇过同一区网, MAC号相同的, 查了半天网路老是不通.

Nico

w7  如何搞

highflybir

Nico 发表于 2013-1-4 11:06
w7  如何搞

2. 
   
3. (defun C:MAC (/ WMI SVR MAC S STR)
   
4.   (vl-load-com)
   
5.   (setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))
   
6.   (setq SVR (vlax-invoke WMI 'ConnectServer))
   
7.   (setq str "Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
   
8.   (setq MAC (vlax-invoke SVR 'ExecQuery str))
   
9.   (vlax-for i MAC
   
10.     (setq S (cons (vlax-get i 'MACAddress) S))
    
11.   )
    
12.   (vlax-release-object MAC)
    
13.   (vlax-release-object SVR)
    
14.   (vlax-release-object WMI)
    
15.   (princ s)
    
16.   (princ)
    
17. )
    

<br /> (defun C:MAC (/ WMI SVR MAC S STR)<br />   (vl-load-com)<br />   (setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))<br />   (setq SVR (vlax-invoke WMI 'ConnectServer))<br />   (setq str "Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")<br />   (setq MAC (vlax-invoke SVR 'ExecQuery str))<br />   (vlax-for i MAC<br />     (setq S (cons (vlax-get i 'MACAddress) S))<br />   )<br />   (vlax-release-object MAC)<br />   (vlax-release-object SVR)<br />   (vlax-release-object WMI)<br />   (princ s)<br />   (princ)<br /> )<br />

Nico

highflybir 发表于 2013-1-4 11:23

非常感谢

Nico

highflybir 发表于 2013-1-4 11:23

错误: SWbemServicesEx: Generic failure   出现这个 怎么办?