清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

Const ForReading = 1 
 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objTextFile = objFSO.OpenTextFile _ 
    ("c:\scripts\servers and services.txt", ForReading) 
 
Do Until objTextFile.AtEndOfStream 
    strNextLine = objTextFile.Readline 
    arrServiceList = Split(strNextLine , ",") 
    Wscript.Echo "Server name: " & arrServiceList(0) 
    For i = 1 to Ubound(arrServiceList) 
        Wscript.Echo "Service: " & arrServiceList(i) 
    Next 
Loop