■Topics

---

MS SQL Serverのバージョン情報を取得するサンプルです。名前空間は「Root\MicrosoftSQLServer」、クラスが「MSSQL_SQLServer」になります。

---

■Sample Code

---

Private Sub Command1_Click()

Dim SqlSet As SWbemObjectSet
Dim Sql As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim Ret As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(, "Root\MicrosoftSQLServer")
Set SqlSet = Service.ExecQuery("Select * From MSSQL_SQLServer")

For Each Sql In SqlSet

    Ret = "バージョン情報:" & Sql.VersionString

Next

MsgBox "SQL Serverのバージョン情報です。 " & vbCrLf & vbCrLf & Ret

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

End Sub

---

■Comment

---

実行すると現在のMS SQL Serverのバージョンが表示されます。
「Root\MicrosoftSQLServer」名前空間はMS SQL Server 2000を単にインストールしても使用できません。MS SQL Server 2000にはWMI SQL Server Administration providerというものが別途含まれており、こちらをインストールすることでこの名前空間が用意されます。

---