2013年9月23日
摘要: Set objFSO = CreateObject("Scripting.FileSystemObject") Const ForAppending = 8 Const ForReading = 1'定义输出结果Set objTextFile = objFSO.OpenTextFile ("d:\Ping_Result.txt", ForAppending, True) '定义服务器IP列表Set ts = objFSO.OpenTextFile("d:\serverlist.txt", ForReading)do u 阅读全文
posted @ 2013-09-23 20:33 momingliu11 阅读(267) 评论(0) 推荐(0) 编辑