Question

如何用fortran语言编程 提取电脑的物理地址(MAC)?

我主要是想利用Fortran语言编程提取电脑的物理地址，然后利用提取的物理地址字符串与程序中我给定的物理地址字符串进行比较，两个字符串相同程序运行，不同程序不运行，起到一个授权的作用。

Answer 1

call system(cmd)

if your system os is unix or linux, then cmd is ifconfig.
if your system os is windows, then cmd equals the string of ipconfig.

追问

我的系统是windows，在主程序中直接加入 call system(cmd) 这条语句出错，错误提示为：unresolved external symbol _SYSTEM@4。

追答

the cmd is a string defined by the type of your operation system:

unix : cmd ='ifconfig'

windows: cmd='ipconfig'

thus in your system you should write call system('ipconfig') in your code

追问

非常感谢。
还有个问题，通过call system('ipconfig') 这条语句，如何把物理地址字符串提取出来，赋给某个参数。
如：通过call system('ipconfig') ，显示电脑的物理地址为：A1-B2-C3-D4-E5-F6，那如何把物理地址"A1-B2-C3-D4-E5-F6"赋给“str”，即 str='A1-B2-C3-D4-E5-F6'。

追答

loop on output lines and find the prefix of the line containing the address you need.
for instance, for IPv4 you can write
loop over lines
if(line(4:7)=='IPv4') ipv4=line(26:40)

追问

对您的回答表示感谢！

由于本人是新手，实现的过程还是遇到困难了，请赐教。

运行call system('ipconfig') ，输出界面为：

本地的物理地址并没有输出来，如何确定是哪行？

能否用write命令把物理地址这串字符输出来。

不好意思，继续打扰您了，