Private Type MIB_IPSTATS
dwForwarding As Long ' IP forwarding enabled or disabled
dwDefaultTTL As Long ' default time-to-live
dwInReceives As Long ' datagrams received
dwInHdrErrors As Long ' received header errors
dwInAddrErrors As Long ' received address errors
dwForwDatagrams As Long ' datagrams forwarded
dwInUnknownProtos As Long ' datagrams with unknown protocol
dwInDiscards As Long ' received datagrams discarded
dwInDelivers As Long ' received datagrams delivered
dwOutRequests As Long '
dwRoutingDiscards As Long '
dwOutDiscards As Long ' sent datagrams discarded
dwOutNoRoutes As Long ' datagrams for which no route exists
dwReasmTimeout As Long ' datagrams for which all
dwReasmReqds As Long ' datagrams requiring reassembly
dwReasmOks As Long ' successful reassemblies
dwReasmFails As Long ' failed reassemblies
dwFragOks As Long ' successful fragmentations
dwFragFails As Long ' failed fragmentations
dwFragCreates As Long ' datagrams fragmented
dwNumIf As Long ' number of interfaces on computer
dwNumAddr As Long ' number of IP address on computer
dwNumRoutes As Long ' number of routes in routing table
End Type
Private Declare Function GetIpStatistics Lib "iphlpapi" (pStats As MIB_IPSTATS) As Long
Private Sub Form_Load()
Dim IpStats As MIB_IPSTATS
GetIpStatistics IpStats
Me.AutoRedraw = True
With IpStats
Me.Print "IP forwarding enabled or disabled: " + CStr(CBool(.dwForwarding))
Me.Print "Default time-to-live: " + CStr(.dwDefaultTTL)
Me.Print "Successful reassemblies: " + CStr(.dwReasmOks)
Me.Print "Failed reassemblies: " + CStr(.dwReasmFails)
End With
End Sub
