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实例名,然后,判断其中包括本机机器名的(如果没有斜线/,就是那个实例所在机器名,如果有斜线,则斜线前为实例所在机器名),应该就是本机中所安装的实例名了