I've attached some VB.NET code I've hacked together (some taken from
MS examples & newsgroup postings) that will perform a ping or
IcmpSendEcho using the icmp.dll (see this for more info:
http://support.microsoft.com/default...b;en-us;170591 ).
The problem I have is in order to perform a discovery/ping of an
entire subnet (192.168.1.* for instance) I have to do a FOR loop to
itterate through all of the addresses. That it seems VERY inefficient
to me.
I originally tried to use the IcmpSendEcho function in IPHLPAPI.DLL
version 5.0.2195.6602 (see these for more info:
http://msdn.microsoft.com/library/de..._functions.asp
http://msdn.microsoft.com/library/en...mpsendecho.asp
)
because the documentation for the IcmpSendEcho in the Platform SDK IP
Helper indicated that replybuffer was an array of ICMP_ECHO_REPLY
structures (and I was hoping to be able to perform a broadcast ping
and have all of the results in this array). However, it doesn't
actually seem to support this function...I got an error indicating
that my program couldn't find the entry point, and upon reviewing the
..DLL I didn't see that function listed in it. So, I reverted to using
the function in icmp.dll.
Essentially, I'd like to be able to ping 255.255.255.255 (the
broadcast IP address) a single time and get a list of all of the
successful pings. I'd appreciate any/all help with this. Does anyone
know if there are any plans to add ICMP and similar networking support
to the .NET Framework in the future (or if there's currently support
for this that I don't know about)?
Thanks!
-Ed
--------------------------------------------------
Option Strict On
Imports System.Net
Imports System.Net.Sock ets
Imports System.Runtime. InteropServices
Public Class IPHlp
Private Const ICMP_SUCCESS As Long = 0
Private Const ICMP_STATUS_BUF FER_TO_SMALL As Int32 = 11001
'Buffer Too Small
Private Const ICMP_STATUS_DES TINATION_NET_UN REACH As Int32 = 11002
'Destination Net Unreachable
Private Const ICMP_STATUS_DES TINATION_HOST_U NREACH As Int32 =
11003 ' Destination Host Unreachable
Private Const ICMP_STATUS_DES TINATION_PROTOC OL_UNREACH As Int32 =
11004 'Destination Protocol Unreachable
Private Const ICMP_STATUS_DES TINATION_PORT_U NREACH As Int32 =
11005 'Destination Port Unreachable
Private Const ICMP_STATUS_NO_ RESOURCE As Int32 = 11006 'No
Resources
Private Const ICMP_STATUS_BAD _OPTION As Int32 = 11007 'Bad Option
Private Const ICMP_STATUS_HAR DWARE_ERROR As Int32 = 11008
'Hardware Error
Private Const ICMP_STATUS_LAR GE_PACKET As Int32 = 11009 'Packet
Too Big
Private Const ICMP_STATUS_REQ UEST_TIMED_OUT As Int32 = 11010
'Request Timed Out
Private Const ICMP_STATUS_BAD _REQUEST As Int32 = 11011 'Bad
Request
Private Const ICMP_STATUS_BAD _ROUTE As Int32 = 11012 'Bad Route
Private Const ICMP_STATUS_TTL _EXPIRED_TRANSI T As Int32 = 11013
'TimeToLive Expired Transit
Private Const ICMP_STATUS_TTL _EXPIRED_REASSE MBLY As Int32 = 11014
'TimeToLive Expired Reassembly
Private Const ICMP_STATUS_PAR AMETER As Int32 = 11015 'Parameter
Problem
Private Const ICMP_STATUS_SOU RCE_QUENCH As Int32 = 11016 'Source
Quench
Private Const ICMP_STATUS_OPT ION_TOO_BIG As Int32 = 11017 'Option
Too Big
Private Const ICMP_STATUS_BAD _DESTINATION As Int32 = 11018 'Bad
Destination
Private Const ICMP_STATUS_NEG OTIATING_IPSEC As Int32 = 11032
'Negotiating IPSEC
Private Const ICMP_STATUS_GEN ERAL_FAILURE As Int32 = 11050
'General Failure
Public Function Ping(ByVal sIP As String, _
Optional ByRef IP As IPAddress = Nothing, _
Optional ByRef Reply As String = "", _
Optional ByRef RoundTrip As Int32 = 0) As Boolean
IP = Dns.GetHostByNa me(sIP).Address List(0)
Return Ping(IP, Reply, RoundTrip)
End Function
Public Function Ping(ByVal IP As IPAddress, _
Optional ByRef Reply As String = "", _
Optional ByRef RoundTrip As Int32 = 0) As Boolean
Dim ICMPHandle As IntPtr
Dim iIP As Int32
Dim sData As String
Dim oICMPOptions As New IPHlp.ICMP_OPTI ONS
Dim ICMPReply As ICMP_ECHO_REPLY
Dim iReplies As Int32
Ping = False
ICMPHandle = IcmpCreateFile
iIP = System.BitConve rter.ToInt32(IP .GetAddressByte s, 0)
sData = "x" 'Placeholder?
oICMPOptions.Tt l = 255
iReplies = IcmpSendEcho(IC MPHandle, iIP, sData, sData.Length,
oICMPOptions, ICMPReply, Marshal.SizeOf( ICMPReply), 30)
Reply = EvaluatePingRes ponse(ICMPReply .Status)
RoundTrip = ICMPReply.Round TripTime
If ICMPReply.Statu s = 0 Then
Ping = True
End If
ICMPHandle = Nothing
IP = Nothing
oICMPOptions = Nothing
ICMPReply = Nothing
End Function
Public Function EvaluatePingRes ponse(ByVal PingResponse As Long)
As String
Select Case PingResponse
'success
Case ICMP_SUCCESS
EvaluatePingRes ponse = "Success!"
'some error occurred
Case ICMP_STATUS_BUF FER_TO_SMALL
EvaluatePingRes ponse = "Buffer Too Small"
Case ICMP_STATUS_DES TINATION_NET_UN REACH
EvaluatePingRes ponse = "Destinatio n Net Unreachable"
Case ICMP_STATUS_DES TINATION_HOST_U NREACH
EvaluatePingRes ponse = "Destinatio n Host Unreachable"
Case ICMP_STATUS_DES TINATION_PROTOC OL_UNREACH
EvaluatePingRes ponse = "Destinatio n Protocol
Unreachable"
Case ICMP_STATUS_DES TINATION_PORT_U NREACH
EvaluatePingRes ponse = "Destinatio n Port Unreachable"
Case ICMP_STATUS_NO_ RESOURCE
EvaluatePingRes ponse = "No Resources"
Case ICMP_STATUS_BAD _OPTION
EvaluatePingRes ponse = "Bad Option"
Case ICMP_STATUS_HAR DWARE_ERROR
EvaluatePingRes ponse = "Hardware Error"
Case ICMP_STATUS_LAR GE_PACKET
EvaluatePingRes ponse = "Packet Too Big"
Case ICMP_STATUS_REQ UEST_TIMED_OUT
EvaluatePingRes ponse = "Request Timed Out"
Case ICMP_STATUS_BAD _REQUEST
EvaluatePingRes ponse = "Bad Request"
Case ICMP_STATUS_BAD _ROUTE
EvaluatePingRes ponse = "Bad Route"
Case ICMP_STATUS_TTL _EXPIRED_TRANSI T
EvaluatePingRes ponse = "TimeToLive Expired Transit"
Case ICMP_STATUS_TTL _EXPIRED_REASSE MBLY
EvaluatePingRes ponse = "TimeToLive Expired Reassembly"
Case ICMP_STATUS_PAR AMETER
EvaluatePingRes ponse = "Parameter Problem"
Case ICMP_STATUS_SOU RCE_QUENCH
EvaluatePingRes ponse = "Source Quench"
Case ICMP_STATUS_OPT ION_TOO_BIG
EvaluatePingRes ponse = "Option Too Big"
Case ICMP_STATUS_BAD _DESTINATION
EvaluatePingRes ponse = "Bad Destination"
Case ICMP_STATUS_NEG OTIATING_IPSEC
EvaluatePingRes ponse = "Negotiatin g IPSEC"
Case ICMP_STATUS_GEN ERAL_FAILURE
EvaluatePingRes ponse = "General Failure"
'unknown error occurred
Case Else
EvaluatePingRes ponse = "Unknown Response"
End Select
End Function
Declare Auto Function IcmpCreateFile Lib "ICMP.DLL" () As IntPtr
Declare Auto Function IcmpSendEcho Lib "ICMP.DLL" _
(ByVal IcmpHandle As IntPtr, _
ByVal DestinationAddr ess As Integer, _
ByVal RequestData As String, _
ByVal RequestSize As Integer, _
ByRef RequestOptions As ICMP_OPTIONS, _
ByRef ReplyBuffer As ICMP_ECHO_REPLY , _
ByVal ReplySize As Integer, _
ByVal Timeout As Integer) As Integer
<StructLayout(L ayoutKind.Seque ntial, CharSet:=CharSe t.Ansi)> _
Public Structure ICMP_OPTIONS
Public Ttl As Byte
Public Tos As Byte
Public Flags As Byte
Public OptionsSize As Byte
Public OptionsData As IntPtr
End Structure
<StructLayout(L ayoutKind.Seque ntial, CharSet:=CharSe t.Ansi)> _
Public Structure ICMP_ECHO_REPLY
'Public Address As Integer
Public Address As Integer
Public Status As Integer
Public RoundTripTime As Integer
Public DataSize As Short
Public Reserved As Short
Public DataPtr As IntPtr
Public Options As ICMP_OPTIONS
<MarshalAs(Unma nagedType.ByVal TStr, SizeConst:=250) > _
Public Data As String
End Structure
End Class
--------------------------------------------------
