VBScript to register lots of SQL Servers at once

'  Declare variables
Const ForReading = 1, ForWriting = 2
  Dim dmoApp, dmoServerGroup, dmoRegServer
  Dim fso, MyFile, strServerName

  on error resume Next

' Create a ref to the SQL Server Object
  Set dmoApp = Wscript.CreateObject("SQLDMO.Application")

' Create a ServerGroup Object
'  Set dmoServerGroup = CreateObject("SQLDMO.ServerGroup")

  Set dmoServerGroup = Wscript.CreateObject("SQLDMO.ServerGroup")
  
' Add the CRAWLEY Server Group name
  dmoServerGroup.Name = "CRAWLEY"
  dmoApp.ServerGroups.Add(dmoServerGroup)

' Add the TAMPA Server Group name
  dmoServerGroup.Name = "TAMPA"
  dmoApp.ServerGroups.Add(dmoServerGroup)
   
' Register the TAMPA Servers
  Set dmoRegServer = Wscript.CreateObject("SQLDMO.RegisteredServer")
  dmoRegServer.UseTrustedConnection = 1
  
     
  Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
  Set MyFile = fso.OpenTextFile("C:\RWray\VBScripts\TampaServers.txt", ForReading, True)
 
  Do Until MyFile.AtEndOfStream
     strServerName = MyFile.Readline
     dmoRegServer.Name = strServerName
     Wscript.Echo strServerName

     dmoServerGroup.RegisteredServers.Add(dmoRegServer)
     WScript.Echo Err.Description
   Loop

   MyFile.Close
   
Set dmoApp = Nothing
Set dmoServerGroup = Nothing
set dmoRegServer = Nothing