摘要： Subtest2()DimStr$,Arr,N&,I&,FN$FN=ThisWorkbook.Path&"\IpInfo.txt"'设定输出临时文件位置WithCreateObject("wscript.shell").RunEnviron("comspec")&"/cipconfig/all>"""&FN&"""",0,1'利用WSH对象隐藏执行命令行命令并输出到文件中,等待执行完成后 阅读全文