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

使用Excel / VBA解析主机名的IP地址可以通过以下步骤实现：

打开Excel，并在一个工作表中创建两列，分别命名为"主机名"和"IP地址"。
在"主机名"列中输入要解析的主机名，可以输入单个主机名或多个主机名。
在"IP地址"列中使用VBA代码进行解析。按下Alt + F11打开VBA编辑器，然后在工作表的代码模块中插入以下代码：

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