通过 Excel ping 多台计算机，并在单独的列中具有 IP 地址

Question

我需要一个自动 ping 工具，因为我的网络中有 70 台计算机，我厌倦了每次都通过 cmd ping 它们。所以我有这张我已经完成的工作表（大部分）。

A 列包含我手动编写的计算机名称

B 列：它应该（但不）在 A 列中写出计算机的 IP 地址

C 列：根据 ping 显示计算机是在线还是离线。

D 列：我也手动输入了一些内容，以了解谁坐在哪台计算机后面，只是用户名。

我有两个按钮，ping 和 stop ping。他们工作正常。我怎样才能通过按下ping 按钮，让它通过column A 中的所有计算机，并同时显示它们的IP 以及它们是否在线？

当然，不必通过 excel 来完成，如果您有更好的解决方案，可以很好地了解我需要清楚地看到的所有 3 件事（comp name、comp ip、online/offline）和有用户名的第四件事会很高兴。

请帮帮我，我很绝望：

Dim objshell, boolcode
Set objshell = CreateObject("Wscript.Shell")
boolcode = objshell.Run("ping -n 1 -w 1000 " & strip, 0, True)
If boolcode = 0 Then
    Ping = True
Else
    Ping = False
End If
End Function
'_________________________
Sub PingSystem()
Dim strip As String
Do Until Sheet1.Range("G9").Value = "STOP"
Sheet1.Range("G9").Value = "Ping"
For introw = 1 To ActiveSheet.Cells(65536, 2).End(xlUp).Row
    strip = ActiveSheet.Cells(introw, 2).Value

    If Ping(strip) = True Then
        ActiveSheet.Cells(introw, 3).Interior.ColorIndex = 0
        ActiveSheet.Cells(introw, 3).Font.Color = RGB(0, 0, 0)
        ActiveSheet.Cells(introw, 3).Value = "Online"
        ActiveSheet.Cells(introw, 3).Font.Color = RGB(0, 200, 0)
    Else
        ActiveSheet.Cells(introw, 3).Interior.ColorIndex = 0
        ActiveSheet.Cells(introw, 3).Font.Color = RGB(200, 0, 0)
        ActiveSheet.Cells(introw, 3).Value = "Offline"
        ActiveSheet.Cells(introw, 3).Interior.ColorIndex = 6
    End If
    If Sheet1.Range("G9").Value = "STOP" Then
        Exit For
    End If
Next
Loop
Sheet1.Range("G9").Value = "Stop ping"
End Sub

Sub stop_ping()
    Sheet1.Range("G9").Value = "STOP"
End Sub

Answer 1

这对我有用

Sub temp()
    Set WshShell = CreateObject("WScript.Shell")
    RowCount = Worksheets("Sheet1").UsedRange.Rows.Count

For i = 1 To RowCount
    Url = Worksheets("Sheet1").Cells(i, 1).Value
    cmd = "ping " + Url
    Set WshShellExec = WshShell.Exec(cmd)
    result = WshShellExec.StdOut.ReadAll
    Worksheets("Sheet1").Cells(i, 2).Value = getIP(result)
    
    If (InStr(result, "Received = 4")) Then
        Worksheets("Sheet1").Cells(i, 3).Value = "Online"
    End If
Next
End Sub

Function getIP(result)
    ip = Split(result, vbNewLine)(1)
    startIndex = InStr(ip, "[") + 1
    endIndex = InStr(ip, "]")
    getIP = Mid(ip, startIndex, endIndex - startIndex)
End Function

Answer 2

查看 Excel 网络工具，使用 Excel 插件，您可以从 Excel ping 多个 IP 地址。