在 VB.net 中 Ping 机器列表

问题描述

我有一个机器列表，在一个名为 devices.txt 的文件中每行 1 个.

I have a list of machines, 1 per line in a file called devices.txt.

我需要做的是ping这些机器中的每一个，然后将每个在线的机器输出到另一个名为machines.txt的文本文件

What I need to be able to do is to ping each of these machines, and then output each machine that is online to another text file called machines.txt

文件只需是机器名称，每行有 1 台机器.

The files need to just be the machine name and have 1 machine per line.

谁能帮帮我?

推荐答案

类似的事情?

    Sub main()

    Dim results As New Dictionary(Of String, Boolean)

    Using myReader As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader("c:\AllComputerNames.txt")

        Do While myReader.Peek() >= 0
            Dim computerName As String = myReader.ReadLine

            Debug.WriteLine(computerName, "Pinging computer :")

            results.Add(computerName, My.Computer.Network.Ping(computerName))

        Loop

    End Using

End Sub

编辑或如果您想将其写入文件:

Edit or if you want to write it to file :

        Using writer = My.Computer.FileSystem.OpenTextFileWriter("C:\ComputersOutput", False)

        Using myReader As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader("c:\AllComputerNames.txt")

            Do While myReader.Peek() >= 0
                Dim computerName As String = myReader.ReadLine

                Debug.WriteLine(computerName, "Pinging computer :")

                writer.WriteLine(String.Join(" - ", computerName, My.Computer.Network.Ping(computerName)))

            Loop

        End Using

    End Using

这篇关于在 VB.net 中 Ping 机器列表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！