Usuário com melhor resposta
Exibir Computadores de Uma Rede Local

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...
- Editado Márcio Silva Lima domingo, 10 de agosto de 2014 22:53
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 SubMárcio Silva Programador desde "Visual Basic 6" nas horas vagas! Estou aprendendo...
- Marcado como Resposta Márcio Silva Lima 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
-
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
- Sugerido como Resposta Daniel Brito br segunda-feira, 11 de agosto de 2014 18:22
- Marcado como Resposta Ricardo Barbosa Cortes terça-feira, 12 de agosto de 2014 17:37
- Não Marcado como Resposta Márcio Silva Lima sábado, 16 de agosto de 2014 00:34
-
-
-
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 SubMárcio Silva Programador desde "Visual Basic 6" nas horas vagas! Estou aprendendo...
- Marcado como Resposta Márcio Silva Lima sábado, 16 de agosto de 2014 00:33