Morgen,
ich möchte gerne in einer Listbox den Computernamen und die dazugehörige IP anzeigen lassen.
Mit diesem Code wird mir der Computernamen angezeigt. Wie kriege ich es hin, das hinter dem Computernamen auch die IP angezeigt wird?
Danke euch
ich möchte gerne in einer Listbox den Computernamen und die dazugehörige IP anzeigen lassen.
Mit diesem Code wird mir der Computernamen angezeigt. Wie kriege ich es hin, das hinter dem Computernamen auch die IP angezeigt wird?
VB.NET-Quellcode
- Private Sub Button_Ping_Click(sender As Object, e As EventArgs) Handles Button_Ping.Click
- ListBox1.Items.Clear()
- Dim TList As New List(Of String)
- TList = GetComputerFromNetwork()
- If TList IsNot Nothing Then
- For Each items As String In TList
- Me.ListBox1.Items.Add(items)
- Next
- End If
- End Sub
- Private Function GetComputerFromNetwork() As List(Of String)
- Const Argument As String = " view"
- Try
- Dim TList As New List(Of String)
- Dim hProcess As Process = New Process()
- With hProcess.StartInfo
- .FileName = "net.exe"
- .Arguments = Argument
- .RedirectStandardOutput = True
- .UseShellExecute = False
- With hProcess
- .Start()
- .WaitForExit()
- Dim result As String = ""
- While .StandardOutput.Peek > -1
- result = .StandardOutput.ReadLine()
- If result.StartsWith("\\") = True Then
- TList.Add(result)
- End If
- End While
- End With
- End With
- Return TList
- Catch ex As Exception
- MessageBox.Show(ex.Message.ToString(), "Info - " & MethodBase.GetCurrentMethod().Name())
- End Try
- Return Nothing
- End Function
Danke euch