Internet Explorerのプロキシ設定を取得する: MicrosoftIE_LanSettings - WMI Sample (VB)

Topics

Internet Explorerのプロキシ設定を取得するサンプルプログラムです。名前空間は「Root\CIMV2\Applications\MicrosoftIE」、クラスが「MicrosoftIE_LanSettings」になります。

VBS(WSH)版のサンプルコードはこちらで公開しています。

Sample Code

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_LanSettings")

For Each Mie In MieSet

MesStr = "プロキシサーバーを使用する：" & Mie.Proxy & vbCrLf & _
"アドレス：" & Mie.ProxyServer & vbCrLf & _
"例外:" & Mie.ProxyOverride

Next

MsgBox "Internet ExplorerのProxy設定です。" & vbCrLf & _
vbCrLf & MesStr & vbCrLf & vbCrLf & "ですよ。"

Set MieSet = Nothing
Set Mie = Nothing
Set Service = Nothing
Set Locator = Nothing

End Sub

Comment

実行すると現在のInternet Explorerのプロキシ設定を表示します。
今回のサンプルではレジストリ周りのサンプルと同様で違った名前空間「Root\CIMV2\Applications\MicrosoftIE」名前空間を参照していることがポイントです。この名前空間はInternet Explorer 5 以降頃から実装されている名前空間のようでして、Internet Explorerに纏わる様々な情報を取得することが出来るようです。

なおWMIの使い方(VB6, VBS, VBA, VB.NET, VC#, PowerShellを対象)に関してはWMI Stepも参考にしてみてください。(WMI初心者・入門編としてもおすすめです。) 各種言語を使用したWMIを使用するたたき台としてソースコードテンプレートも公開しています。WMIプログラム/スクリプト作成時に役立てば…と思っています。

Recommended book

個人的にお勧めする本の紹介です。


WMI Fun !! > WMI Sample (VB) > Internet Explorerのプロキシ設定を取得する

WMI Fun !! > WMI Sample (VB) > Internet Explorerのプロキシ設定を取得する

Internet Explorerのプロキシ設定を取得する: MicrosoftIE_LanSettings - WMI Sample (VB)

Topics

Sample Code

Comment

Recommended book