LISTAR HOSTNAME DAS MÁQUINAS DA REDE

 Tópico anterior Próximo tópico Novo tópico

LISTAR HOSTNAME DAS MÁQUINAS DA REDE

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#489475 - 13/07/2019 00:11:41

TRTNCG
CAMPINA GRANDE
Cadast. em:Fevereiro/2004


Alguém já viu ou tem algum exemplo que mostre como listar o hostname das máquinas da rede e jogar em um listbox?



#489476 - 13/07/2019 01:24:39

JABA
CABO FRIO
Cadast. em:Agosto/2005


social.msdn.microsoft.com/Forums/pt-BR/46132b20-fc73-4766-9d15-54e14ddd4e4c/achando-os-nomes-das-maquinas-em-rede?forum=vscsharppt

www.macoratti.net/14/04/vb_netw1.htm

_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizar quando o corpo está em movimento?



Resposta escolhida #489478 - 13/07/2019 13:06:45

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


Tenta isso!!!!!!!      

Dim Grupo As String = GrupoTrapabalho
        If Grupo <> "" Then
            Dim PC As New DirectoryServices.DirectoryEntry()
            PC.Path = "WinNT://" + Grupo
            For Each d As DirectoryServices.DirectoryEntry In PC.Children()
                If d.SchemaClassName = "Computer" Then Combo1.Items.Add(d.Name)
            Next
            If Combo1.Items.Count = 0 Then Combo1.Items.Add(Dns.GetHostName)
        End If


        Public Function GrupoTrapabalho() As String
            Dim X As String = ""
            Dim CNN As New ConnectionOptions()
            Dim Comp As String = My.Computer.Name
            ' Máquina a ser pesquisada.
            Dim Scopo As New System.Management.ManagementScope("\\" & Comp & "\root\cimv2", CNN)
            ' Consulta.
            Dim query As New System.Management.ObjectQuery("SELECT * FROM Win32_ComputerSystem")
            Dim Lista As New ManagementObjectSearcher(Scopo, query)
            Dim Objetos As ManagementObjectCollection = Lista.Get()
            For Each Obj As ManagementObject In Objetos
                If X <> "" Then Exit For
                For Each P As PropertyData In Obj.Properties
                    Try
                        Select Case P.Name.ToUpper
                            Case "WORKGROUP"
                                X = Obj(P.Name).ToString
                                Exit For
                        End Select
                    Catch ex As Exception
                    End Try
                Next
            Next
            Return X
        End Function





 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por TRTNCG em 15/07/2019 23:35:00