如何使用 WMI 來列舉出 IE 瀏覽器的代理伺服器 ( Proxy Server )
如何使用 WMI 來列舉出 IE 瀏覽器的代理伺服器 ( Proxy Server )
<<VB.Net寫法>>
' 加入參考 System.Management
Imports System.Management
Private Sub btnListProxy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListProxy.Click
' 使用 SelectQuery 物件下 SELECT 陳述式查詢
Dim objQry As New SelectQuery("Win32_Proxy")
' SELECT * FROM WIN32_PROXY 語法可省略 , 直接寫 WMI 類別名稱即可
'使用 ManagementObjectSearcher 物件取回一個 WMI 物件基底之查詢的 集合物件(Collection)
Dim objSearch As New ManagementObjectSearcher(objQry)
Dim objInfo As ManagementObject ' ManagementObject 類別
' 使用 ManagementObjectSearcher.Get 方法, 叫用指定的 WMI 查詢，並傳回產生的集合。
For Each objInfo In objSearch.Get()' 列舉出 Win32_Proxy WMI 類別中每一個代理伺服器 (成員)
Debug.WriteLine("Proxy Server : " & objInfo!ProxyServer) ' 代理伺服器位置
Debug.WriteLine("Proxy Port : " & objInfo!ProxyPortNumber) ' 代理伺服器 Port
Next
End Sub
================================================================
<<VB6寫法>>
Dim objItem As Object
' 列舉出 Win32_Proxy WMI 類別中每一個代理伺服器 (成員)
For Each objItem In GetObject("winmgmts:").InstancesOf("Win32_Proxy")
Debug.Print "Proxy Server: " & objItem.ProxyServer ' 代理伺服器位置
Debug.Print "Proxy Port Number: " & objItem.ProxyPortNumber ' 代理伺服器 Port
Next