Listar servidores de Sql instalados

[elkin dario uribe torres]

Buenos dias

Alguien conoce o tiene algun Procedimiento / Funcion para conocer los servidores instalados de Sql Server que me pueda facilitar, he investigado en Google pero los que he bajado no me sirven (no traen los datos como son) o no funcionan, el codigo de mas abajo me lista el servidor con el nombre (local), cuando en realidad lo que quiero es el nombre que aparece al ingresar al Sql Server Management.

LOCAL lnIndi, loServidoresSQL, loListaServidoresDisponibles

loServidoresSQL = CREATEOBJECT( "SQLDMO.SQLServer2" )

loListaServidoresDisponibles = loServidoresSQL.Application.ListAvailableSQLServers

? "Total de Servidores SQL Server disponibles : " + ALLTRIM( STR(loListaServidoresDisponibles.Count ) )

FOR lnIndi = 1 TO loListaServidoresDisponibles.Count

? "Servidor: " + loListaServidoresDisponibles.Item( lnIndi )

ENDFOR

RELEASE loServidoresSQL, loListaServidoresDisponibles

Todo es para armar un login parecido a cualquiera de los dos que adjunto.

Saludos

Elkin Uribe

Medellin - Colombia

[Pablo Daniel Lissa]

Hola:

El tema es que (local) es un servidor válido (así como localhost, por
ejemplo), desde la misma máquina. Desde otras máquinas van a acceder a
dicho servidor mediante la dirección IP o un nombre que se forma con
el nombre de la PC.

Me explico: Si existe una PC con nombre SERVIDOR-SQL
- Desde esa PC: (local) = localhost = SERVIDOR-SQL
- Desde otra PC: debería mostrarte solamente SERVIDOR-SQL (o SERVIDOR-
SQL\SQLEXPRESS, varía según el motor específico).

Saludos.
------------------------------------------------------------------------------------------------------

On 24 feb, 11:15, elkin dario uribe torres <eduribe2...@gmail.com>
wrote:

>  ingreso1.PNG
> 49 KVerDescargar
>
>  ingreso2.PNG
> 28 KVerDescargar

[Marco Plaza]

Prueba si Wmi te da lo que necesitas:

objWMIService = GetObject("winmgmts:\\")

oMsSql= objWMIService.ExecQuery("Select * from Win32_Service Where
Name = 'MSSQLServer")

for each servidor in oMsSql

with servidor

? .Caption
? .Description
? .DisplayName
? .InstallDate
? .Name
? .Started
? .StartMode
? .StartName
? .State
? .Status
? .SystemName

endfor


Marco Plaza

On 24 feb, 11:37, Pablo Daniel Lissa <pablo.daniel.li...@gmail.com>
wrote:

[Marco Plaza]

el codigo corregido..

objWMIService = GetObject("winmgmts:\\")

oMsSql= objWMIService.ExecQuery("Select * from Win32_Service Where
Name = 'MSSQLServer' ")

for each servidor in oMsSql

with servidor

? .Caption
? .Description
? .DisplayName
? .InstallDate
? .Name
? .Started
? .StartMode
? .StartName
? .State
? .Status
? .SystemName

ENDWITH

ENDFOR


Saludos
Marco

[elkin dario uribe torres]

Buenas tardes

perdonen por demararme en contestar, pero es que en estos momentos estoy incapacitado y no puedo ensayar el código.

Por ahora tratare de seguir el foro.

Saludos

Elkin Uribe
Medellín Colombia

[elkin uribe]

Buenos dias Marcos

¿De donde sacas los datos del servidor, para poder mirar que otros me
podrian servir ?

Muchas gracias

Saludos

Elkin Uribe
Medellin - Colombia

[elkin dario uribe torres]

Muchas gracias a todos

Ya solucione los inconvenientes de una forma muy rebuscada pero igual me sirve, las pantallas quedaron de la siguiente forma y pulire algunos detalles.

Saludos

Elkin Uribe

Medellin - Colombia

[Ronald Bartens Amaro]

Elkin,

 Nos puedes pasar tu codigo para ver como funciona,

Gracias !!!

[Daniel Sánchez]

Si te fijas en DataExplorer que viene con vfp 9 trae el código fuente que utiliza para esta herramienta, seria bueno que le des una mirada y ahí encontraras el código deseado. La ruta donde se encuentra el archivo xsource.zip que es el que contiene los fuentes de diversas como dataexplorer

SO en 32bits

C:\Program Files\Microsoft Visual FoxPro 9\Tools\xsource

SO en 64 bits

C:\Program Files (x86)\Microsoft Visual FoxPro 9\Tools\xsource

Saludos

--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047
Trujillo - Perú

[Ronald Bartens Amaro]

Gracias Daniel pero tengo la version SQL Server 2008 express, Tu crees que lo que me indicas me pueda servir.

He adjuntado una imagen donde ejecuto el Data Explorer y despliego el Item SQL Server y después de buscar no muestra nada.

Ronald

[Daniel Sánchez]

Que extraño, en mi caso si me muestra los servidores activos en mi red, en esta pc no tengo el express (ya que fue cambiado el HD), porque si no en la imagen alcanzada también lo indicaría

Saludos

--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047
Trujillo - Perú

PD. Uso V