Servers

Question

Servers

ishaan99

SSCertifiable

Points: 6261
More actions
October 27, 2004 at 12:50 pm

#165300

Does anyone have any script which loops through all servers and registers them on Enterprise Manager. Any help will be greatly appreciated
TIA

Viewing 6 posts - 1 through 5 (of 5 total)

You must be logged in to reply to this topic. Login to reply

Taj Mr or Mrs. 500 Points: 596 More actions · Answer 1

TIA,

I dont think it is a good idea to register sql servers through the script. You should register the servers manually because there are manual settings needed to do the registration.

I dont have a script but would not recommend it anyway.

Thanks

taj

Tajammal Butt

ishaan99 SSCertifiable Points: 6261 More actions · Answer 2

Well, thanks for our thoughts though. I have seen people using scripts with no problems while registering them in EM.specially if all servers have similar settings.

Taj Mr or Mrs. 500 Points: 596 More actions · Answer 3

OK....if you get it please let me know. I would like to test it too.

I have never seen or heard anyone using it.

Tajammal Butt

kozloski SSC Eights! Points: 804 More actions · Answer 4

You might try something like this, using VB script and SQL-DMO.

- J. Kozloski, MCDBA

' script using SQL-DMO to find available servers on network

' and register them in Enterprise Manager

' this is a quick-and-dirty script. things like error-handling

' are left as an exercise to the reader.

' variable declarations

Dim oSqlServer ' SQLDMO SQLServer object

Dim oApplication ' SQLDMO Application object

Dim oGroup ' SQLDMO ServerGroup object

Dim strGroupName ' string containing name of group to add servers to

Dim i ' counter

Dim nameList ' SQLDMO NameList object

' This can be changed, of course

strGroupName = "AutoRegisteredServers"

Sub CreateGroup(strNewGroupName)

Dim oNewGroup

set oNewGroup = CreateObject("SQLDMO.ServerGroup")

oNewGroup.Name = strNewGroupName

oApplication.ServerGroups.Add(oNewGroup)

set oNewGroup = Nothing

End Sub

Sub RegisterServer(strServerName)

Dim oRegServer

Wscript.Echo "Registering " & strServerName

' Create a new registered server object

Set oRegServer = CreateObject("SQLDMO.RegisteredServer")

With oRegServer

.Name = strServerName

.UseTrustedConnection = 1

' .Login = "username"

' .Password = "password"

End With

oGroup.RegisteredServers.Add(oRegServer)

Set oRegServer = Nothing

End Sub

' Create a new SQLServer object and obtain its Application object

Set oSqlServer = CreateObject("SQLDMO.SQLServer")

Set oApplication = oSqlServer.Application

' Create a new SQL Server Group in EM

CreateGroup(strGroupName)

' Get the servergroup we just created

Set oGroup = oApplication.ServerGroups(strGroupName)

' Get a list of available SQL Servers on the network

Set nameList = oApplication.ListAvailableSQLServers()

' Loop through the NameList object and register each server name

For i = 1 to nameList.Count

RegisterServer(nameList(i))

mssql_rules SSCrazy Points: 2783 More actions · Answer 5

Copy the registry contents from the old pc to the new pc from this location:

HKEY_CURRENT_USER\Software\Microsoft\Microsoft SQL Server\80\Tools\SQLEW\Registered Servers X

restore to the same location using any registry copy. I use this few times, every time I had to install sql tools for developers.