Ping remote computer fra en Win2000 server

Nedenstående Script kører okay på en Win2003 server men ikke på en Win2000 server. Er der nogle forslag til hvordan mit problem kan løses........... Jane

On Error Resume Next

ArrComputere = Array("computer_1", "computer_2")

For Each StrComputer In ArrComputere
    Set objShell = CreateObject("WScript.Shell")
    Set objExec = objShell.Exec("ping -n 1 " & strComputer)
    strPingResultat = LCase(objExec.StdOut.ReadAll)

    If InStr(strPingResultat, "reply from") Then
        Wscript.Echo strComputer & " Svarer tilbage " & strPingResultat
            Set objWMIService = GetObject("winmgmts:" _
            & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
            Set colCompSystems = objWMIService.ExecQuery("SELECT * FROM " & _
            "Win32_ComputerSystem")
        For Each ObjCompSystem in ColCompSystems
        Next
    Else
        WScript.Echo strComputer & " svarer ikke tilbage"
    End If

Next