如何获取计算机的mac地址的代碼

萌图

1. /* 取的MAC address Function
   
2. 
   
3. */
   
4. procedure( getHostID()
   
5. prog( ()
   
6.     system("ipconfig /all > ipdata.txt")
   
7.     p = axlDMOpenFile("TEMP" "ipdata.txt", "r")
   
8.     while(gets(ln, p)
   
9.         when(index(ln, "Physical Address")
   
10.             hostId = car(last(parseString(ln, ": \n")))
    
11.           );end when
    
12.      );end while
    
13.     axlDMClose(p)
    
14.     deleteFile("./ipdata.txt");
    
15.     println(hostId)
    
16.     ); end prog
    
17. ); end procedure
    
18. ;
    
19. 
    
20. getHostID()

复制代码