Create ICMPHostDiscovery.tcl