VB.netでマシンのリストをpingする

Question

私はdevices.txtというファイルに1行に1つのマシンのリストを持っています。私が行うことができるように必要なもの

は出力

ファイルだけでマシン名である必要はあり

とmachines.txtと呼ばれる別のテキストファイルにオンラインで各マシンを、これらの各マシンにpingを実行することであり、 1行に1マシンあります。

誰でも私を助けることができますか？

Answer 1

これは何か？

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 

編集や書き込みたい場合は、それをファイルに：

 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