使用Excel / VBA解析主机名的IP地址

Sub 解析主机名的IP地址()
    Dim hostName As String
    Dim ipAddr As String
    Dim rowIndex As Integer
    
    rowIndex = 2 ' 从第二行开始，第一行为标题
    
    Do While Cells(rowIndex, 1).Value <> ""
        hostName = Cells(rowIndex, 1).Value
        ipAddr = ResolveIP(hostName)
        Cells(rowIndex, 2).Value = ipAddr
        rowIndex = rowIndex + 1
    Loop
End Sub

Function ResolveIP(hostName As String) As String
    Dim objShell As Object
    Dim objExec As Object
    Dim strOutput As String
    
    Set objShell = CreateObject("WScript.Shell")
    Set objExec = objShell.Exec("ping -n 1 " & hostName)
    
    Do While objExec.Status = 0
        DoEvents
    Loop
    
    strOutput = objExec.StdOut.ReadAll
    
    If InStr(strOutput, "[") > 0 And InStr(strOutput, "]") > 0 Then
        ResolveIP = Mid(strOutput, InStr(strOutput, "[") + 1, InStr(strOutput, "]") - InStr(strOutput, "[") - 1)
    Else
        ResolveIP = "无法解析"
    End If
    
    Set objExec = Nothing
    Set objShell = Nothing
End Function