Const FORREADING=1
strFile="e:\temp\servers.txt"

Set objFSO=CreateObject("Scripting.FileSystemObject")

Set objTS=objFSO.OpenTextFile(strFile,FORREADING)

Do While objTS.AtEndOfStream<>True
    strComputer=objTS.ReadLine
    WScript.Echo "Checking " & strComputer
    'call additional code that takes strComputer
    'as a parameter
    'example:
    'Call CheckSP strComputer
Loop

objTS.Close