VBS（VBScript）によるPCが持っているIPv4ルートテーブルの情報を取得する方法を紹介
WMIを使って、PCが持っているIPv4ルートテーブルの情報を取得（メトリック、ネクストホップ等）
サンプルソース
※取得可能なプロパティ（情報）は、以下手順で取得可能⇒WMIのクラス・プロパティ一覧の確認
※「型が一致しません」のエラーが出る場合⇒VBSのWMIの出力で、型が一致しませんのエラーが出る場合
（入力：cscript）
Dim qu,cl,swbe,service,sms1,sms2,sms3,sms4
Set swbe = WScript.CreateObject("WbemScripting.SWbemLocator")
Set service = swbe.ConnectServer
Set qu = service.ExecQuery("Select * From Win32_IP4RouteTable")
For Each cl In qu
sms1 = cl.Destination
sms2 = cl.Mask
sms3 = cl.Metric1
sms4 = cl.NextHop
Wscript.Echo "Destination：" & sms1
Wscript.Echo "Mask："& sms2
Wscript.Echo "Metric1："& sms3
Wscript.Echo "NextHop："& sms4
Wscript.Echo
Next
（出力）
Destination : 0.0.0.0
Mask : 0.0.0.0
Metric1 : 11
NextHop : 192.168.1.1
Destination : 127.0.0.0
Mask : 255.0.0.0
Metric1 : 306
NextHop : 0.0.0.0
Destination : 127.0.0.1
Mask : 255.255.255.255
Metric1 : 306
NextHop : 0.0.0.0
Destination : 127.255.255.255
Mask : 255.255.255.255
Metric1 : 306
NextHop : 0.0.0.0
Destination : 192.168.1.0
Mask : 255.255.255.0
Metric1 : 266
NextHop : 0.0.0.0
Destination : 192.168.1.3
Mask : 255.255.255.255
Metric1 : 266
NextHop : 0.0.0.0
Destination : 192.168.1.255
Mask : 255.255.255.255
Metric1 : 266
NextHop : 0.0.0.0
Destination : 224.0.0.0
Mask : 240.0.0.0
Metric1 : 306
NextHop : 0.0.0.0
Destination : 224.0.0.0
Mask : 240.0.0.0
Metric1 : 266
NextHop : 0.0.0.0
Destination : 255.255.255.255
Mask : 255.255.255.255
Metric1 : 306
NextHop : 0.0.0.0
Destination : 255.255.255.255
Mask : 255.255.255.255
Metric1 : 266
NextHop : 0.0.0.0