ルーティングテーブルを取得する: Win32_IP4RouteTable - WMI Sample (VB)

Private Sub Command1_Click()

Dim I4rSet As SWbemObjectSet
Dim I4r As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set I4rSet = Service.ExecQuery("Select * From Win32_IP4RouteTable")

For Each I4r In I4rSet

MesStr = MesStr & "Destination：" & I4r.Destination & vbTab & _
"Netmask：" & I4r.Mask & vbTab & _
"Gateway：" & I4r.NextHop & vbTab & _
"Metric：" & I4r.Metric1 & vbCrLf
Next

MsgBox "現在のルーティングテーブルです。" & vbCrLf & _
vbCrLf & MesStr & vbCrLf & "ですよ。"

Set I4rSet = Nothing
Set I4r = Nothing
Set Service = Nothing
Set Locator = Nothing

End Sub