プロバイダを取得する: __Win32Provider
■Topics
システムに組み込まれている各種プロバイダを取得するサンプルです。__Win32Providerクラスを使用します。
Private Sub Command1_Click()
Dim WprSet As SWbemObjectSet
Dim Wpr As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set WprSet = Service.ExecQuery("Select * From __Win32Provider")
For Each Wpr In WprSet
MesStr = MesStr & Wpr.Name & vbCrLf
Next
MsgBox "組み込まれているプロバイダを列挙します。" & vbCrLf & _
vbCrLf & MesStr & "ですよ。"
Set WprSet = Nothing
Set Wpr = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
Dim WprSet As SWbemObjectSet
Dim Wpr As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set WprSet = Service.ExecQuery("Select * From __Win32Provider")
For Each Wpr In WprSet
MesStr = MesStr & Wpr.Name & vbCrLf
Next
MsgBox "組み込まれているプロバイダを列挙します。" & vbCrLf & _
vbCrLf & MesStr & "ですよ。"
Set WprSet = Nothing
Set Wpr = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
実行するとシステムに組み込まれているプロバイダの一覧が表示されます。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。