SQL Server 버전을 찾으려면 WMI를 사용하는 VBScript

Question

누구나 vbscript (WMI 사용)를 사용하여 설치된 SQL Server 버전을 찾을 수 있습니까? SQL Server 2008 R2 또는 SQL Server 2012를 컴퓨터에 설치할 수있는 시나리오가 있습니다. the first Google search result here의 코드를 기반으로

Answer 1

: WMI이 작업을 수행하는 가장 빠른 방법이 아니라고

Dim WMI, Col, Prod, Q 
Set WMI = GetObject("WinMgmts:") 
Q = "Select * FROM Win32_Product WHERE Vendor = " & _ 
    "'Microsoft Corporation' AND Name LIKE 'SQL Server%Database Engine Services'" 
Set Col = WMI.ExecQuery(Q) 
For Each Prod in Col 
    if left(Prod.version, 3) = "11." then 
    msgbox "SQL Server 2012 was found!" & vbCrLf & prod.version 
    elseif left(Prod.version, 4) = "10.5" then 
    msgbox "SQL Server 2008 R2 was found!" & vbCrLf & prod.version 
    end if 
Next 
Set Col = Nothing 
Set WMI = Nothing 

참고. WMI를 거치지 않고 레지스트리를 직접 확인해 보셨습니까?

UPDATE 대신 레지스트리를 사용하여 영업 이익의 솔루션을 제공하고, 2008R2 또는 2012 정확히 하나가 설치 될 수 있다는 가정하에 :

RegKey2012 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\" & _ 
      "Microsoft SQL Server\MSSQL11.MSSQLSERVER\" 
If RegKeyExists(RegKey2012) Then 
    WScript.StdOut.Write("2012") 
Else 
    WScript.StdOut.Write("2008R2") 
End If 

Function RegKeyExists(Key) 
    Dim oShell, entry 
    On Error Resume Next 
    Set oShell = CreateObject("WScript.Shell") 
    entry = oShell.RegRead(Key) 
    If Err.Number <> 0 Then 
    Err.Clear 
    RegKeyExists = False 
    Else 
    Err.Clear 
    RegKeyExists = True 
    End If 
End Function