SQL Server 2008のバージョンやその他プロパティ値を取得する: SqlServiceAdvancedProperty - WMI Sample (VBS)

Topics

SQL Server 2008のバージョンやその他プロパティ値を取得するサンプルプログラムです。名前空間は「Root\Microsoft\SQLServer\ComputerManagement10」、クラスが「SqlServiceAdvancedProperty」になります。

従来のVB(VB6)版のサンプルはこちらで公開しています。

Sample Code

Option Explicit

'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oClassSet
Dim oClass
Dim oLocator
Dim oService
Dim sMesStr

'ローカルコンピュータに接続する。
Set oLocator = Wscript.CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocator.ConnectServer(, "Root\Microsoft\SQLServer\ComputerManagement10")
'クエリー条件をWQLにて指定する。
Set oClassSet = oService.ExecQuery("Select * From SqlServiceAdvancedProperty")

'コレクションを解析する。
For Each oClass In oClassSet

sMesStr = sMesStr & "プロパティ名:" & oClass.PropertyName & vbCrLf & _
"サービス名:" & oClass.ServiceName & vbCrLf

If oClass.PropertyValueType = 0 Then
sMesStr = sMesStr & "値:" & oClass.PropertyStrValue & vbCrLf & vbCrLf
Else
sMesStr = sMesStr & "値:" & oClass.PropertyNumValue & vbCrLf & vbCrLf
End If

Next

MsgBox ("SQL Serverのバージョンやその他のプロパティ値情報です。" & vbCrLf & vbCrLf & sMesStr)

'使用した各種オブジェクトを後片付けする。
Set oClassSet = Nothing
Set oClass = Nothing
Set oService = Nothing
Set oLocator = Nothing

Comment

実行すると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, VBA, VB.NET, VC#, PowerShellを対象)に関してはWMI Stepも参考にしてみてください。(WMI初心者・入門編としてもおすすめです。) 各種言語を使用したWMIを使用するたたき台としてソーステンプレートも公開しています。プログラム/スクリプト作成時に役立てば…と思っています。

Recommended book

個人的にお勧めする本の紹介です。

Latest sample information

最近WMI Sampleへ追加したサンプルのご紹介です。

興味のあるサンプル・クラスがありましたら参考にしてみて下さい。