通过VBScript从主机名列表中连续ping到Exel的更新

' 创建Excel对象
Set objExcel = CreateObject("Excel.Application")
' 打开Excel文件
Set objWorkbook = objExcel.Workbooks.Open("C:\path\to\your\excel.xlsx")
' 选择第一个工作表
Set objWorksheet = objWorkbook.Worksheets(1)

' 读取主机名列表
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\path\to\your\hostname.txt", 1)
strHostnames = objFile.ReadAll
objFile.Close

' 分割主机名列表为数组
arrHostnames = Split(strHostnames, vbCrLf)

' 遍历主机名列表
For Each strHostname In arrHostnames
    ' 执行ping测试
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & strHostname & "'")
    For Each objResult In objPing
        ' 更新Excel表格
        objWorksheet.Cells(i, 1).Value = strHostname
        objWorksheet.Cells(i, 2).Value = objResult.StatusCode
        i = i + 1
    Next
Next

' 保存并关闭Excel文件
objWorkbook.Save
objWorkbook.Close
objExcel.Quit