tengo - que es la intercalacion en sql server

¿Alguien tiene una consulta WQL para encontrar la edición de una instancia de SQL Server?

Question

¿Alguien sabe cómo usar WMI para obtener la edición de una instalación de SQL Server (no se preocupe por la versión) en VBScript?

He intentado usar el registro (pero eso requiere que sepas el nombre de la instancia y la versión del Servidor SQL.

He intentado usar una consulta SQL (pero eso requiere que tengas permisos en la base de datos y mi proceso está usando el usuario LOCAL, sin permisos en el DBMS de SQL Server).

Entonces, me queda usar WQL para consultar WMI.

Supongo que necesito:

1) consultar un objeto WMI (cuál) para obtener los nombres de instancia. 2) Luego, para cada instancia, consulta otro objeto y obtén la Edición.

Revisé la documentación de Microsoft y no puedo encontrar los objetos para usar.

¿Alguien puede ayudar?

QuietLeni

Answer 1

Comience aquí: Cómo modificar las propiedades avanzadas del servicio SQL Server utilizando VBScript

La primera muestra:

set wmi = GetObject("WINMGMTS://./root/Microsoft/SqlServer/ComputerManagement10")
for each prop in wmi.ExecQuery("select * from SqlServiceAdvancedProperty where SQLServiceType = 1 AND PropertyName = ''VERSION''")
WScript.Echo prop.ServiceName & " " & prop.PropertyName & ": " & prop.PropertyStrValue
next

parece hacer lo que pediste. Marque "Otras versiones" si no está usando la versión 2008.

Answer 2

Gracias por eso. Aquí está el script que creé. Espero que ayude a alguien más en mi posición:

Dim strValueName, strSKUName, strEdition, strVersion, strArchitecture
Dim objWMI, objProp
On Error Resume Next
'' First try SQL Server 2008/2008 R2:
Set objWMI = GetObject("WINMGMTS://./root/Microsoft/SqlServer/ComputerManagement10")
If Err.Number <> 0 Then
'' Next, try SQL Server 2005:
Set objWMI = GetObject("WINMGMTS://./root/Microsoft/SqlServer/ComputerManagement")
If Err.Number <> 0 Then
'' Next, try SQL Server 2012:
Set objWMI = GetObject("WINMGMTS://./root/Microsoft/SqlServer/ComputerManagement11")
End If
End If
If Err.Number = 0 Then
On Error Goto 0
'' Go through the properties (which is just one) and find the name of the SKU.
For Each objProp In objWMI.ExecQuery("select * from SqlServiceAdvancedProperty where SQLServiceType = 1 AND (PropertyName = ''SKUNAME'' OR PropertyName = ''VERSION'')")
If objProp.PropertyName = "SKUNAME" THEN
strSKUName = objProp.PropertyStrValue
Else
strVersion = objProp.PropertyStrValue
End If
Next
'' We do not want the number of bits, so chop it off!
If Instr(strSKUName, " (") <> 0 Then
strEdition = Left(strSKUName, Instr(strSKUName, " ("))
strArchitecture = "64-bit"
Else
strEdition = strSKUName
strArchitecture = "32-bit"
End If
WScript.Echo strEdition & " / " & strSKUName & " / " & strArchitecture
End If