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

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