SQL Server 2008のバージョンやその他プロパティ値を取得する: SqlServiceAdvancedProperty
■Topics
SQL Server 2008のバージョンやその他プロパティ値を取得するサンプルです。名前空間は「Root\Microsoft\SQLServer\ComputerManagement10」、クラスが「SqlServiceAdvancedProperty」になります。
Private Sub Command1_Click()
Dim SqlSet As SWbemObjectSet
Dim Sql As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(, "Root\Microsoft\SQLServer\ComputerManagement10")
Set SqlSet = Service.ExecQuery("Select * From SqlServiceAdvancedProperty")
For Each Sql In SqlSet
MesStr = MesStr & "プロパティ名:" & Sql.PropertyName & vbCrLf
MesStr = MesStr & "サービス名:" & Sql.ServiceName & vbCrLf
If Sql.PropertyValueType = 0 Then
MesStr = MesStr & "値:" & Sql.PropertyStrValue & vbCrLf & vbCrLf
Else
MesStr = MesStr & "値:" & Sql.PropertyNumValue & vbCrLf & vbCrLf
End If
Next
MsgBox "SQL Serverサービスのインスタンス情報です。" & vbCrLf & vbCrLf & MesStr
Set SqlSet = Nothing
Set Sql = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
Dim SqlSet As SWbemObjectSet
Dim Sql As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(, "Root\Microsoft\SQLServer\ComputerManagement10")
Set SqlSet = Service.ExecQuery("Select * From SqlServiceAdvancedProperty")
For Each Sql In SqlSet
MesStr = MesStr & "プロパティ名:" & Sql.PropertyName & vbCrLf
MesStr = MesStr & "サービス名:" & Sql.ServiceName & vbCrLf
If Sql.PropertyValueType = 0 Then
MesStr = MesStr & "値:" & Sql.PropertyStrValue & vbCrLf & vbCrLf
Else
MesStr = MesStr & "値:" & Sql.PropertyNumValue & vbCrLf & vbCrLf
End If
Next
MsgBox "SQL Serverサービスのインスタンス情報です。" & vbCrLf & vbCrLf & MesStr
Set SqlSet = Nothing
Set Sql = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
実行するとSQL Serverのバージョンやログのパス情報などが表示されます。手元のSQL Server 2008で実行すると下記のようなプロパティ情報が取得出来ました。
BROWSER
CLUSTERED
DATAPATH
DUMPDIR
ERRORREPORTING
FILEVERSION
INSTALLPATH
INSTANCEID
ISWOW64
LANGUAGE
REGROOT
SKU
SKUNAME
SPLEVEL
SQLSTATES
SQMREPORTING
STARTUPPARAMETERS
VERSION
VSNAME
先日SQL Server 2008を使用する機会があったのでSQL Server 2000の時に存在したMSSQL_SQLServerクラスでのバージョン取得を試みたのですがWMIクラスの構造がSQL Server のバージョンアップに伴い変更になったようです。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。