SQL Server 2008のインスタンス情報を取得する: SqlService
■Topics
SQL Server 2008のインスタンス情報を取得するサンプルです。名前空間は「Root\Microsoft\SQLServer\ComputerManagement10」、クラスが「SqlService」になります。
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
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
実行するとSQL Server 2008のインスタンス情報を表示します。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。