'Objective: Find SQL Server version on the network
'Author: MAK
'Contact: mak_999@yahoo.com
'Date: Aug 18, 2004
Set iFSO = CreateObject("Scripting.FilesyStemObject")
Set oFSO = CreateObject("Scripting.FilesyStemObject")
InputFile="c:\version\sqlserversRAW.txt"
Outputfile="c:\version\SQLServers.txt"

Set ofile = ofso.createTextFile(OutputFile, True)
Set ifile = iFSO.OpenTextFile(inputfile)  

'Read Empty line
Computer	= ifile.ReadLine

'Read Header
Computer	= ifile.ReadLine

Do until ifile.AtEndOfLine
Computer	= ifile.ReadLine
ofile.writeline ltrim(rtrim(Computer))
Loop