SQL Server 2008 のインスタンス情報を取得する: SqlService - 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 SqlService")

For Each Sql In SqlSet

MesStr = MesStr & "サービス名: " & Sql.ServiceName & vbCrLf
MesStr = MesStr & "パス: " & Sql.BinaryPath & vbCrLf
MesStr = MesStr & "説明: " & Sql.Description & vbCrLf & vbCrLf

Next

MsgBox "SQL Server サービスのインスタンス情報です。" & vbCrLf & vbCrLf & MesStr

Set SqlSet = Nothing
Set Sql = Nothing
Set Service = Nothing
Set Locator = Nothing

End Sub