ルーティングテーブルを取得する: Win32_IP4RouteTable
■Topics
ルーティングテーブルを取得するサンプルです。Win32_IP4RouteTableクラスを使用します。
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
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
実行すると現在のルーティングテーブルを表示します。
内容としてはroute printコマンドで取得できるものと同様です。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。