![]() ' Website : ' Purpose : Retrieve the IP Address of a given host name ' Copyright : The following is release as Attribution-ShareAlike 4.0 International ' (CC BY-SA 4.0) - ' Req'd Refs: Late Binding -> none required ' ' Input Variables: ' ~~~~~~~~~~~~~~~~ ' sHostName : Host name to lookup the IP address of ' ' Usage: ' ~~~~~~ ' GetHostNameIP("") ' Returns -> 52.40.49.196 ' GetHostNameIP("") ' Returns -> 2607:f8b0:4006:813::200e,172.217.10.238 ' ' Revision History: ' Rev Date(yyyy-mm-dd) Description ' ************************************************************************************** ' 1 Initial Release, Forum Help ' 2 Update to handle the case of multiple addresses ' 3 Handle blank/empty sHostName calls '- Function GetHostNameIP( ByVal sHostName As String) As String Dim sResult As String Dim aResult As Variant Dim i As Long On Error GoTo Error_Handler '- ' Procedure : GetHostNameIP ' Author : Daniel Pineault, CARDA Consultants Inc.
0 Comments
Leave a Reply. |