获取电脑名？？？急，在线等待

Question

如何在VB代码实现自动获取局域里有装SQL SERVER的电脑名？

Answer 1

我以为什么呢,还以为谁RZh到不会GetUserName了:)
这个我不知道!

Answer 2

引用Microsoft SQLDMO object 来实现
Sub test()
    Dim iObj As New SQLDMO.Application
    Dim iName As SQLDMO.NameList
    Dim i&
    Set iName = iObj.ListAvailableSQLServers
    For i = 0 To iName.Count - 1
        Debug.Print iName(i)
    Next
End Sub