使用WMI查找SQL Server版本的VBScript

Question

任何人都可以通過vbscript（使用WMI）找到已安裝的SQL Server版本。我有一個方案，可以在一臺機器上安裝SQL Server 2008 R2或SQL Server 2012。

Answer 1

在the first Google search result here基於代碼：

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是不是這樣做的最快方法。你有沒有考慮直接檢查註冊表而不是通過WMI？

UPDATE給出使用註冊表，而不是OP的解決方案，並與假設的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