dotNETportal.cz

Ahoj, potřeboval bych zjsistit, který počítače mi běží v síti (od 192.168.1.1 do 192.168.1.54). Nejsnadší cesta je asi pomocí pingu, ale výchozí ping je dost pomalej.

Tady je kód:

       BackgroundWorker1.WorkerReportsProgress = True
        BackgroundWorker1.WorkerSupportsCancellation = True
        Dim progress As Integer = 0
        For w As Integer = 1 To 54
            progress = progress + 5
            If (My.Computer.Network.Ping("192.168.1." & w)) = True Then
                BackgroundWorker1.ReportProgress(progress, "192.168.1." & w)

            Else
                BackgroundWorker1.ReportProgress(progress, "nic")
            End If

        Next

Je tu jiná/lepší/rychlejší cesta jak ty počítače najít? Na některých nebeží ani Windowsy (printserver), takže je potřeba nějaké univerzální rešení. Díky

Ping je nejrozumější cesta,jen si upravte parametry samotného pingu

Nepomohlo by toto? Nastavíte adresu IP a nějaký malý timeout a je to.

http://msdn.microsoft.com/en-us/library/...

Přesně tak.tato .Net metoda nakonec stejně volá standardní ping s parametry,takže výsledek je stejný.Jen pro nezkušeného uživatele je to takto přívětivější ;-)