ダイヤルアップとVPNの接続設定の一覧を取得する: MicrosoftIE_LanSettings
■Topics
ダイヤルアップとVPNの接続設定の一覧を取得するサンプルです。名前空間は「Root\CIMV2\Applications\MicrosoftIE」、クラスが「MicrosoftIE_LanSettings」になります。
Private Sub Command1_Click()
Dim MieSet As SWbemObjectSet
Dim Mie As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(, "Root\CIMV2\Applications\MicrosoftIE")
Set MieSet = Service.ExecQuery("Select * From MicrosoftIE_ConnectionSettings")
For Each Mie In MieSet
MesStr = MesStr & "名前：" & Mie.Name & vbCrLf & _
"モデム：" & Mie.Modem & vbCrLf & vbCrLf
Next
MsgBox "ダイヤルアップとVPNの接続設定の一覧です。" & vbCrLf & _
vbCrLf & MesStr & "ですよ。"
Set MieSet = Nothing
Set Mie = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
Dim MieSet As SWbemObjectSet
Dim Mie As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(, "Root\CIMV2\Applications\MicrosoftIE")
Set MieSet = Service.ExecQuery("Select * From MicrosoftIE_ConnectionSettings")
For Each Mie In MieSet
MesStr = MesStr & "名前：" & Mie.Name & vbCrLf & _
"モデム：" & Mie.Modem & vbCrLf & vbCrLf
Next
MsgBox "ダイヤルアップとVPNの接続設定の一覧です。" & vbCrLf & _
vbCrLf & MesStr & "ですよ。"
Set MieSet = Nothing
Set Mie = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
実行すると現在設定されているダイヤルアップ接続や仮想プライベートネットワーク接続の一覧を表示します。今回のサンプルではあくまで設定の名前とモデム名しか表示していませんが、それ以外にも「NetworkProtocols」プロパティを使用すればどのようなプロトコルで接続するか取得できますし、「ProxyServer」プロパティでプロキシサーバ名も取得できます。それ以外にもIPアドレス、DNS、WINSなどの設定も取得できます。
MicrosoftIE_LanSettings クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。