PB中获取sqlserver服务器列表

OLEObject   SQLServer,   ServerList
String   jk
Integer   i,nServers
Long   ll_status
SQLServer   =   Create   OLEObject
ServerList   =   Create   OLEObject
ll_status   =   SQLServer.ConnectToNewObject("SQLDMO.Application")
If ll_status   <>   0   Then

Else
ServerList   = SQLServer.ListAvailableSQLServers()
nServers   =   ServerList.Count
For   i   =   1   To   nServers
jk = String(ServerList.Item(i))
ddlb_1.AddItem(jk)
Next
End If
ib_add = True
Destroy   SQLServer;
Destroy   ServerList;