LISTING 2: Get Version Information from List of Servers

'This script outputs the version info
'from a list of servers provided in a text file.

IF Wscript.Arguments.Count = 0 THEN
  MsgBox "Server List Missing", vbCritical
  Wscript.Quit
END IF

SET oServer = CreateObject("SQLDMO.SQLServer")
oServer.LoginSecure = True

SET fso = CreateObject("Scripting.FileSystemObject")

SET oFileTargets = fso.OpenTextFile(Wscript.Arguments(0),1)

DO UNTIL oFileTargets.AtEndOfStream
  sTarget = oFileTargets.ReadLine
  oServer.Connect sTarget
  Wscript.Echo sTarget & ": " & oServer.VersionString
  oServer.Disconnect
LOOP

''''Clean up'''''
SET oServer = Nothing
SET oFileTargets = Nothing
SET fso = Nothing