Const SYSTEM_FOLDER =  1 
Const TEMP_FOLDER =  2 

Function GetIp( _
  strHost As String) As String
    Dim fso As New Scripting.FileSystemObject
    Dim f As Scripting.TextStream
    Dim reg As New RegExp
    Dim matches As MatchCollection
    Dim match As match
    Dim strTempFile As String
    Dim strCmdLine As String
    Dim intI As Integer

    With fso
        strTempFile = .BuildPath( _
          .GetSpecialFolder(TEMP_FOLDER), .GetTempName)

        strCmdLine = .BuildPath(. _
          GetSpecialFolder(SYSTEM_FOLDER), "cmd.exe") _
          & " /c " & .BuildPath(. _
          GetSpecialFolder(SYSTEM_FOLDER), "ping.exe") _
          & " -n 1 " & strHost & " > " & strTempFile
    End With

    CreateObject("Wscript.Shell").Run strCmdLine,  0 , True

    reg.Pattern = "[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}"
    reg.Global = True
    reg.MultiLine = True

    Set f = fso.OpenTextFile(strTempFile,  1 )
    Set matches = reg.Execute(f.ReadAll)
    Set match = matches.Item( 0 )
    
    GetIp = match.Value
    
    'For intI = 0 To matches.Count - 1
    '    Set match = matches.Item(intI)
    '    Debug.Print match.Value
    '    Debug.Print match.FirstIndex
    '    Debug.Print match.Length
    'Next intI

    f.Close
    fso.DeleteFile strTempFile
End Function