在pb中获取当前网络中所存在的SQLServer实例名

OLEObject lole_test,lole_NameList
INTEGER  li_ret
LONG   ll_Count,ll_Index

lole_test = CREATE OLEObject
lole_NameList = CREATE OLEObject

li_ret = lole_test.ConnectToNewObject('SQLDMO.Application')
IF li_ret <> 0 THEN
 Destroy lole_test
 MessageBox('系统信息','SQLDMO对象连接失败')
 RETURN
END IF

lole_NameList = lole_test.ListAvailableSQLServers()

lole_test.DisconnectObject()
Destroy lole_test

ll_Count = lole_NameList.Count
FOR ll_Index = 1 TO ll_Count
 MessageBox('当前网络中所存在的SQLServer实例名',String(lole_NameList.Item(ll_Index)))
NEXT

Destroy lole_NameList

用上面的办法能够获取当前网络中所存在的SQLServer实例名，然后，判断其中包括本机机器名的（如果没有斜线/，就是那个实例所在机器名，如果有斜线，则斜线前为实例所在机器名），应该就是本机中所安装的实例名了