zoukankan      html  css  js  c++  java
  • Ping

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Const ForAppending = 8
    Const ForReading = 1
    '定义输出结果
    Set objTextFile = objFSO.OpenTextFile ("d:Ping_Result.txt", ForAppending, True)
    '定义服务器IP列表
    Set ts = objFSO.OpenTextFile("d:serverlist.txt", ForReading)

    do until ts.AtEndOfStream '判断是否到文件末尾
    IP = ts.readline
    WQL = "Select * from Win32_PingStatus Where Address = '$IP'"
    WQL = Replace(WQL,"$IP",IP)
    Set objWMIService = GetObject("winmgmts:\. ootcimv2")
    Set colItems = objWMIService.ExecQuery(WQL,,48)

    For Each objItem in colItems
    If objItem.StatusCode = 0 Then
    objTextFile.WriteLine IP & " " & "可以Ping通"
    Else
    objTextFile.WriteLine IP & " " & "无法Ping通"
    End If
    Next

    loop
    ts.close
    msgbox "脚本执行完成,输出结果位于 d:Ping_Result.txt"

  • 相关阅读:
    AJAX补充
    JQuery知识补充2
    JQuery知识补充1
    LiveBOS使用指南
    HTML5(1)
    .net 后台导出excel ,word
    Eval绑定方法:多条件绑定:
    repeater 的用法
    两个页面地址栏传值
    js取后台的值
  • 原文地址:https://www.cnblogs.com/dreamer-fish/p/3335643.html
Copyright © 2011-2022 走看看