主题：有人能转换成浏览局域网内的服务器代码吗？

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim instance As System.Data.Sql.SqlDataSourceEnumerator = System.Data.Sql.SqlDataSourceEnumerator.Instance
        Dim dataTable As System.Data.DataTable = instance.GetDataSources()

        Me.ListBox1.Items.Clear()
        For Each row As DataRow In dataTable.Rows
            If (row("InstanceName").ToString = String.Empty) Then
                Me.ListBox1.Items.Add(row("ServerName").ToString)
            Else
                Me.ListBox1.Items.Add(row("ServerName").ToString & "\" & row("InstanceName").ToString)
            End If
        Next
        Me.ListBox1.SelectedIndex = 0

    End Sub

End Class

这段代码可以浏览局域网内服务器的代码。

有人可以把这段代码转换成狐表可以运行的代码吗？

再问一个问题，如何获取该服务器的IP地址、机器码？

SELECT STUFF([output],1,CHARINDEX(':',[output]),'') AS [服务器IP地址]

FROM OPENROWSET(

    'SQLOLEDB',

    'Server=.;Trusted_Connection=yes',

    'SET FMTONLY OFF;

     EXEC master..xp_cmdshell ''ipconfig/all'''

) AS t

WHERE [output] LIKE '%IP Address%'

这个代码如何转换成狐表可执行语句。