以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  有人能转换成浏览局域网内的服务器代码吗？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=15910)
--  作者：lihe60
--  发布时间：2012/1/17 13:20:00
--  有人能转换成浏览局域网内的服务器代码吗？

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

 

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

有人可以把这段代码转换成狐表可以运行的代码吗？
--  作者：狐狸爸爸
--  发布时间：2012/1/17 14:48:00
--  
Dim instance As System.Data.Sql.SqlDataSourceEnumerator = System.Data.Sql.SqlDataSourceEnumerator.Instance
Dim DataTable As System.Data.DataTable = instance.GetDataSources()
For Each Row As data.DataRow In DataTable.Rows
    output.show(Row("ServerName"))
Next
--  作者：lihe60
--  发布时间：2012/1/17 16:17:00
--  
以下是引用狐狸爸爸在2012-1-17 14:48:00的发言：
Dim instance As System.Data.Sql.SqlDataSourceEnumerator = System.Data.Sql.SqlDataSourceEnumerator.Instance
Dim DataTable As System.Data.DataTable = instance.GetDataSources()
For Each Row As data.DataRow In DataTable.Rows
    output.show(Row("ServerName"))
Next

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

[此贴子已经被作者于2012-1-18 8:02:57编辑过]
--  作者：lihe60
--  发布时间：2012/1/18 8:44:00
--  

 

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%\'

 

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

[此贴子已经被作者于2012-1-18 9:45:10编辑过]