none
Exibir Computadores de Uma Rede Local RRS feed

  • Pergunta

  • 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...


    domingo, 10 de agosto de 2014 22:43

Respostas

  • 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...

    sábado, 16 de agosto de 2014 00:33

Todas as Respostas

  • 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

    segunda-feira, 11 de agosto de 2014 18:01
  • 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

    segunda-feira, 11 de agosto de 2014 18:14
  • Bem interessante! Vou dar uma boa lida. Abraço e obrigado

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

    terça-feira, 12 de agosto de 2014 03:10
  • Exatamente!!!

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

    terça-feira, 12 de agosto de 2014 03:10
  • 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...

    sábado, 16 de agosto de 2014 00:33