Question

我正在开展一个项目。我的目标是，从excel列表中ping所有计算机，但无法弄清楚它为什么不起作用。我对这种编程语言很陌生，我确信我错过了一些东西，因为我收到了错误消息：需要对象

所以这是我的代码

主要：

Sub pingall_Click()
Dim c As Range
c = Target.Name

For Each c In Range("A1:N50")
    If (Left(c, 1) = "C" Or Left(c, 1) = "T") And IsNumeric(Right(c, 6)) And Len(c) = 7 Then
    c = sPing(c)
        If c = "timeout" Then
            MsgBox "timeout"
        ElseIf c < 16 And c > -1 Then
            MsgBox "ok"
        ElseIf c > 15 And c < 51 Then
            MsgBox "not ok"
        ElseIf c > 50 And c < 4000 Then
            MsgBox "big delay"
        Else
            MsgBox "error"

        End If
    End If
Next c
End Sub

功能：

Public Function sPing(sHost) As String

Dim oPing As Object, oRetStatus As Object

Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
  ("select * from Win32_PingStatus where address = '" & sHost & "'")

For Each oRetStatus In oPing
    If IsNull(oRetStatus.StatusCode) Or oRetStatus.StatusCode <> 0 Then
        sPing = "timeout" 'oRetStatus.StatusCode
    Else
        sPing = sPing & vbTab & oRetStatus.ResponseTime & Chr(10)
    End If
Next
End Function

如果我写sPing（＆＃34;＆＃34;），我可以得到结果，但我想让它获得列表中的pc-s的名称。这只是脚本的测试版本，我现在用一台PC测试它，这就是为什么我使用＆＃34; MsgBox＆＃34;。

谢谢

Answer 1

Sub pingall_Click()子例程中的第2行是抛出Object Required错误的行。即以下一行。

c = Target.Name

如果您将其评论或删除，则可以。（我试过了。）

此外，您不应将函数sPing的返回值分配回c。因为这样做会覆盖单元格中的服务器/ IP地址的名称，因为forloop使用c变量一次循环1个单元格。

相反，将它分配回一个新的字符串变量，然后随意做任何事情。

excel vba ping计算机列表

1 个答案: