Exibir Computadores de Uma Rede Local

Question

Olá, turma!

Saudações.

Desenvolvi um Programa de Monitoramento em minha Rede Local, para o PC de uma rádio onde tenho programa e faço manutenções; neste eu monitoro via Imagem.jpg, onde tem o Software Transmissor instalado e os Softwares Receptores nos do meu Laboratório. O Problema é que tenho que colocar nos códigos do Transmissor e Receptor os caminhos (ex. "\\NomePC\Users\Public\Pictures\MICIt \MICI.jpg" e \\NomePC\Users\Public\Pictures\MICIr\MICI.jpg").

O que eu quero, no entanto é "enxergar" os PCs da Rede, para que eu não dependesse de inserir linha de código com os caminhos entre eles. Evitaria e muito de eu copiar no Windows e colar no no "Combobox" do meu aplicativo. Então, o aplicativo não ficaria "escravo" sendo exclusivamente para "tais" Máquinas. Quero que eu visualize ou obtenha por um "ListBox". Fico muito grato.  Abraço! (Em VB2008, pode ser 2010)

---

Márcio Silva Programador desde "Visual Basic 6" nas horas vagas! Estou aprendendo...

Answer 1

Boa tarde,

Você quer que ele mostre todos os PC's da rede e coloque numa listbox é isso?

Att,

---

Ricardo Cortes Microsoft Contingent Staff

Esse contedo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.

MSDN Community Support

Answer 2

Simple,

Você conhece o System Center Configuration Manager, ele faz o que você esta querendo e muito mais da uma olhada que vale a pena.

http://www.microsoft.com/pt-br/server-cloud/products/system-center-2012-r2-configuration-manager/explore.aspx

Att,

---

Ricardo Cortes Microsoft Contingent Staff

Esse contedo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.

MSDN Community Support

Answer 3

Bem interessante! Vou dar uma boa lida. Abraço e obrigado

---

Márcio Silva Programador desde "Visual Basic 6" nas horas vagas! Estou aprendendo...

Answer 4

Exatamente!!!

---

Márcio Silva Programador desde "Visual Basic 6" nas horas vagas! Estou aprendendo...

Answer 5

Olá, pessoal, consegui resolver por aqui através desse código:

TextBox1.Text = ""
       
        Try
            Dim p As New Process()
            p.StartInfo = New ProcessStartInfo("cmd.exe", "/c net view")
            p.StartInfo.UseShellExecute = False
            p.StartInfo.RedirectStandardOutput = True
            p.Start()

            TextBox1.Text = "" & p.StandardOutput.ReadToEnd().ToString()
            p.WaitForExit()
        Catch ex As Exception

        End Try
    End Sub

---

Márcio Silva Programador desde "Visual Basic 6" nas horas vagas! Estou aprendendo...