摘要： 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 阅读全文