三十而立

面壁十年图破壁,难酬蹈海亦英雄! —周恩来
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

.net 列出局域网内所有的SQLserver服务器的名字

Posted on 2006-09-20 15:41  夏亚兵  阅读(368)  评论(0编辑  收藏  举报

 在网上看到用.net 列出局域网内所有的SQLserver服务器的名字的文章,觉得有用,编译通过后放上来share一下。

using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using System.Text;
using System.Runtime.InteropServices;

namespace showSqlServer
{
    
/// <summary>
    
/// Form1 的摘要说明。
    
/// </summary>

    public class Form1 : System.Windows.Forms.Form
    
{
        
/// <summary>
        
/// 必需的设计器变量。
        
/// </summary>

        private System.ComponentModel.Container components = null;
        [DllImport(
"odbc32.dll")]  private static extern short SQLAllocHandle(short hType, IntPtr inputHandle, out IntPtr outputHandle);
        [DllImport(
"odbc32.dll")]
        
private static extern short SQLSetEnvAttr(IntPtr henv, int attribute, IntPtr valuePtr, int strLength);
        [DllImport(
"odbc32.dll")]
        
private static extern short SQLFreeHandle(short hType, IntPtr handle); 
        [DllImport(
"odbc32.dll",CharSet=CharSet.Ansi)]
        
private static extern short SQLBrowseConnect(IntPtr hconn, StringBuilder inString, 
            
short inStringLength, StringBuilder outString, short outStringLength,
            
out short outLengthNeeded);

        
private const short SQL_HANDLE_ENV = 1;
        
private const short SQL_HANDLE_DBC = 2;
        
private const int SQL_ATTR_ODBC_VERSION = 200;
        
private const int SQL_OV_ODBC3 = 3;
        
private const short SQL_SUCCESS = 0;
        
private const short SQL_NEED_DATA = 99;
        
private const short DEFAULT_RESULT_SIZE = 1024;
        
private System.Windows.Forms.ComboBox comboBox1;
        
private const string SQL_DRIVER_STR = "DRIVER=SQL SERVER";

        
public Form1()
        
{
            
//
            
// Windows 窗体设计器支持所必需的
            
//
            InitializeComponent();

            
//
            
// TODO: 在 InitializeComponent 调用后添加任何构造函数代码
            
//
        }


        
public string[] GetServers()
        
{
            
string[] retval = null;
            
string txt = string.Empty;
            IntPtr henv 
= IntPtr.Zero;
            IntPtr hconn 
= IntPtr.Zero;
            StringBuilder inString 
= new StringBuilder(SQL_DRIVER_STR);
            StringBuilder outString 
= new StringBuilder(DEFAULT_RESULT_SIZE);
            
short inStringLength = (short) inString.Length;
            
short lenNeeded = 0;
            
try
            
{
                
if (SQL_SUCCESS == SQLAllocHandle(SQL_HANDLE_ENV, henv, out henv))
                
{
                    
if (SQL_SUCCESS == SQLSetEnvAttr(henv,SQL_ATTR_ODBC_VERSION,(IntPtr)SQL_OV_ODBC3,0))
                    
{
                        
if (SQL_SUCCESS == SQLAllocHandle(SQL_HANDLE_DBC, henv, out hconn))
                        
{
                            
if (SQL_NEED_DATA == SQLBrowseConnect(hconn, inString, inStringLength, outString, 
                                DEFAULT_RESULT_SIZE, 
out lenNeeded))
                            
{
                                
if (DEFAULT_RESULT_SIZE < lenNeeded)
                                
{
                                    outString.Capacity 
= lenNeeded;
                                    
if (SQL_NEED_DATA != SQLBrowseConnect(hconn, inString, inStringLength, outString, 
                                        lenNeeded,
out lenNeeded))
                                    
{
                                        
throw new ApplicationException("Unabled to aquire SQL Servers from ODBC driver.");
                                    }
 
                                }

                                txt 
= outString.ToString();
                                
int start = txt.IndexOf("{"+ 1;
                                
int len = txt.IndexOf("}"- start;
                                
if ((start > 0&& (len > 0))
                                
{
                                    txt 
= txt.Substring(start,len);
                                }

                                
else
                                
{
                                    txt 
= string.Empty;
                                }

                            }
 
                        }

                    }
 
                }

            }

            
catch (Exception ex)
            
{
#if (DEBUG)
                MessageBox.Show(ex.Message,
"Acquire SQL Servier List Error");
#endif 
                txt 
= string.Empty;
            }

            
finally
            
{
                
if (hconn != IntPtr.Zero)
                
{
                    SQLFreeHandle(SQL_HANDLE_DBC,hconn);
                }

                
if (henv != IntPtr.Zero)
                
{
                    SQLFreeHandle(SQL_HANDLE_ENV,hconn);
                }

            }

 
            
if (txt.Length > 0)
            
{
                retval 
= txt.Split(",".ToCharArray());
            }


            
return retval;
        }



        
/// <summary>
        
/// 清理所有正在使用的资源。
        
/// </summary>

        protected override void Dispose( bool disposing )
        
{
            
if( disposing )
            
{
                
if (components != null
                
{
                    components.Dispose();
                }

            }

            
base.Dispose( disposing );
        }


        
Windows 窗体设计器生成的代码

        
/// <summary>
        
/// 应用程序的主入口点。
        
/// </summary>

        [STAThread]
        
static void Main() 
        
{
            Application.Run(
new Form1());
        }


        
private void Form1_Load(object sender, System.EventArgs e)
        
{
            
this.comboBox1.Items.Clear();
            
string[] SqlServer=this.GetServers();
            
if(SqlServer==null ||SqlServer.Length==0)
                
return;
            
foreach(string server in SqlServer)
            
{
                
this.comboBox1.Items.Add(server);
            }

            
if(this.comboBox1.Items.Count>0)
                
this.comboBox1.SelectedIndex=0;
        }

    }

}

最后的显示效果: