SE の雑記

If InStr(UCase(WScript.FullName), “WSCRIPT”) > 0 Then
    WScript.Echo “WScript では実行できません。CScriptを使用して実行してください。”
    WScript.Quit
End If

Do While (0=0)
    For Each strIP In aryTarget
        Set objWMIService = GetObject(“winmgmts:\.rootcimv2”)
        Set colItems = objWMIService.ExecQuery _
            (“Select * from Win32_PingStatus ” & _
                “Where Address = ‘” & strIP & “‘”)
        For Each objItem in colItems
            If objItem.StatusCode = 0 Then
            WScript.Echo Now() & “: ” & strIP & “: Reply received. bytes=”  &  objItem.BufferSize & “: time=” & objItem.ResponseTime & “: TTL=” & objItem.TimeToLive
            Else
                WScript.Echo Now() & “: ” & strIP & “: Request timed out.”         
            End If
        Next
    Next
    WScript.Sleep(intSleepms)
    WScript.Echo vbCrLf
Loop