摘要:
Subtest2()DimStr$,Arr,N&,I&,FN$FN=ThisWorkbook.Path&"\IpInfo.txt"'设定输出临时文件位置WithCreateObject("wscript.shell").RunEnviron("comspec")&"/cipconfig/all>"""&FN&"""",0,1'利用WSH对象隐藏执行命令行命令并输出到文件中,等待执行完成后 阅读全文
posted @ 2012-07-26 14:56
Erich
阅读(1273)
评论(0)
推荐(0)
浙公网安备 33010602011771号