有关域服务器免登录问题以及获取域服务器下所有登录账号【深海原创】

原文地址：http://blog.csdn.net/lfywy/archive/2008/07/16/2658623.aspx

前段日子在CSDN上求助：http://topic.csdn.net/u/20080702/21/fc3826ba-2296-41f6-8049-3d0fbe5710b8.html

最后还是自己研究解决了问题：

首先，在B/S上登录首先判断是否在域中:

<script language="javascript" type="text/javascript">
var Is='<%=Is%>';
var IsTo='<%=IsTo%>';
//获取浏览器窗口宽
function getViewportInfoWidth()
{
var w = (window.innerWidth) ? window.innerWidth : (document.documentElement && document.documentElement.clientWidth) ? document.documentElement.clientWidth : document.body.offsetWidth;

return w;
}
//获取浏览器窗口高
function getViewportInfoHeight()
{

var h = (window.innerHeight) ? window.innerHeight : (document.documentElement && document.documentElement.clientHeight) ? document.documentElement.clientHeight : document.body.offsetHeight;
return h;
}

document.getElementById("login").width=getViewportInfoWidth();
document.getElementById("login").height=getViewportInfoHeight();
if(Is=="1")
{
try{
var WshNetwork = new ActiveXObject("WScript.Network");
window.location="Login.aspx?lug="+WshNetwork.UserName+"&don="+WshNetwork.UserDomain;//拿到域名
}catch(e){alert("请您把本站添加为可信任的站点或ActiveX控件和插件设为启用!然后重新登录系统!错误:"+e.toString());}
}
if(IsTo=="1")
{
window.location="LoginIndex.aspx";
}
</script>

不过要首先判断是否在某个网段内，CS代码：

/// <summary>
/// 判断是否为DomainIP，Webconfig里配置的网段
/// </summary>
/// <returns></returns>
private bool IsLan()
{
num = Convert.ToInt32(DomainNum);
LoHostIP = HttpContext.Current.Request.UserHostAddress;
IPSectCon = DomainIP.Split(new char[1] { '.' });
IPSectLoc = LoHostIP.Split(new char[1] { '.' });
if (num == 0)
{
IPCon = "127";//不需要通过域服务器IP来选择的情况
IPLoc = "";
}
for (int i = 0; i < num; i++)
{
if (i == 0)
{
IPCon += IPSectCon[i];
IPLoc += IPSectLoc[i];
}
else
{
IPCon += "." + IPSectCon[i];
IPLoc += "." + IPSectLoc[i];
}
}
IPCon = IPSectCon[0];
IPLoc = IPSectLoc[0];
if (IPCon.Equals(IPLoc) || IPCon.Equals("127") || IPCon.Equals("127.0") || IPCon.Equals("127.0.0") || IPCon.Equals("127.0.0.1"))
{
return true;
}
return false;
}

这样解决了，免登录问题，不过免登录首先还得需和数据里的用户表挂钩，此时就做了一个C/S架构的服务器，把在域里的所有登录账号用户先录入到数据库中，这样做以上步骤就顺理成章了！如下服务器截图：

做好的C/S之后打包，安装后如下图：

界面信息：

上面显示了CN=Users的账号都是域用户登录账号，不过不同的域可能这里的名字不一样，我们到用户那里部署时却是semd_user，当然可以在config里设置！

打开后右下方显示如下托盘：

桌面添加为以下：

程序里添加如下：

从上面又学了一招打包，不过卸载也是很简单，打包生成好后有一个叫.msi文件，调用此文件即可修复程序或卸载程序！到此解决问题！

域服务器的关键代码如下：

#region 获取设定的域服务器信息
/// <summary>
/// 获取设定的域服务器信息
/// </summary>
protected void SetLogonInformation()
{
UserType = (ConfigurationSettings.AppSettings["UserType"] == "" ? null : ConfigurationSettings.AppSettings["UserType"]);
UserServer = (ConfigurationSettings.AppSettings["UserServer"] == "" ? null : ConfigurationSettings.AppSettings["UserServer"]);
RoleId = (ConfigurationSettings.AppSettings["RoleId"] == "" ? null : ConfigurationSettings.AppSettings["RoleId"]);
SQLPwd = (ConfigurationSettings.AppSettings["SQLPwd"] == "" ? null : ConfigurationSettings.AppSettings["SQLPwd"]);
DUserPwd = (ConfigurationSettings.AppSettings["DUserPwd"] == "" ? null : ConfigurationSettings.AppSettings["DUserPwd"]);
username = (ConfigurationSettings.AppSettings["DomainUN"] == "" ? null : ConfigurationSettings.AppSettings["DomainUN"]);
password = (ConfigurationSettings.AppSettings["DomainPW"] == "" ? null : ConfigurationSettings.AppSettings["DomainPW"]);
hostname = (ConfigurationSettings.AppSettings["DomainIP"] == "" ? null : ConfigurationSettings.AppSettings["DomainIP"]);
if (hostname != "") hostname += "/";
}

/// <summary>
/// 获取设定的域服务器信息SetNaming
/// </summary>
protected void SetNamingContext()
{
using (DirectoryEntry de = new DirectoryEntry())
{
string path = "LDAP://" + hostname + "rootDSE";
de.Username = username;
de.Password = password;
de.Path = path;

schemaNamingContext = de.Properties["schemaNamingContext"][0].ToString();
defaultNamingContext = de.Properties["defaultNamingContext"][0].ToString();
}
}

/// <summary>
/// 设置参数
/// </summary>
/// <returns></returns>
protected string[] GetProperties()
{
string[] properties = new string[1];
//int i = 0;
//int bs = 0;
//for (int j = 0; j < listBoxProperties.SelectedItems.Count; j++)
//{
// if (listBoxProperties.Items[j].ToString() == "userPassword")
// {
// bs = j;
// }
//}
////new listBoxProperties.SelectedItems[bs];
//foreach (string s in listBoxProperties.SelectedItems)
//{
// properties[i++] = s;
//}
properties[0] = "userPassword";
return properties;
}

protected string[] GetSchemaProperties(string schemaNamingContext, string objectType)
{
string[] data;
using (DirectoryEntry de = new DirectoryEntry())
{
de.Username = username;
de.Password = password;
de.Path = "LDAP://" + hostname + "CN=" + objectType + "," + schemaNamingContext;
DS.PropertyCollection properties = de.Properties;
DS.PropertyValueCollection values = properties["systemMayContain"];
data = new String[values.Count];
values.CopyTo(data, 0);
}
return data;
}

protected void SetUserProperties(string schemaNamingContext)
{
StringCollection properties = new StringCollection();
string[] data = GetSchemaProperties(schemaNamingContext, "User");
properties.AddRange(GetSchemaProperties(schemaNamingContext, "Organizational-Person"));
properties.AddRange(GetSchemaProperties(schemaNamingContext, "Person"));
properties.AddRange(GetSchemaProperties(schemaNamingContext, "Top"));
}
#endregion

#region 线程数据提示语
private void ThreadProcUnsafe()
{
this.txtbox.Text = "This text was set unsafely.";
}

private void ThreadProcSafe()
{
this.SetText("This text was set safely.");
}
#endregion

#region 利用委托方法把内容显示在textbox上
private void SetText(string text)
{
k = 1;
p = 1;
try
{
if (this.txtbox.InvokeRequired)
{
SetTextCallback d = new SetTextCallback(SetText);
this.Invoke(d, new object[] { text });
}
else
{
this.txtbox.Text = text;
ustr=text.Split(new char[1] { '|' });
userstr = this.txtbox.Text;
this.txtbox.Text = userstr;
userstr = "";
for (int i = 0; i < ustr.Length-1; i++)
{
ustrr = ustr[i].Split(new char[1] { ',' });
uname = ustrr[0].Split(new char[1] { '=' });
utype = ustrr[1].Split(new char[1] { '=' });
utype2 = ustrr[2].Split(new char[1] { '=' });
if ((utype[1] == UserType) || (utype2[1] == UserType))
{
AccessData(uname[1]);
if (i == 0)
{
userstr += Convert.ToString(p++) + "、" + uname[1] + "\r\n";
}
else
{
userstr += Convert.ToString(p++) + "、" + uname[1] + "\r\n";
}
}
}
if (AccessUN == "")
{
AccessUN = "☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆暂时没有新添加的域登录账号☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆";
}
this.txtbox.Text = "服务器启动成功！\r\n****************************************************************************************************\r\n获取域下所有入库账号如下列表：\r\n" + AccessUN + "\r\n获取域下所有登录帐号如下列表：\r\n" + userstr + "\r\n****************************************************************************************************\r\n服务器获取该域所有登录用户成功！\r\n****************************************************************************************************\r\n域服务器参考信息如下：\r\n" + this.txtbox.Text;
this.txtbox.Text += "\r\nEND***************************************************************************************************";
}
}
catch (Exception ex)
{
MessageBox.Show("请核对你的各种配置数据!错误：" + ex.Message);
t.Close();
Application.Exit();//退出应用程序
}
}
#endregion

#region 读取域下面的所有登录帐号并入程序WEB下~/App_Data/Sys.mdb库中
public void AccessData(string username)
{
int userid;
int sid;
int SID;
AccessUN = "";
try
{
Name = username.Trim().Replace("'", "‘");
DataTable dt = (new sqlconn()).DataTable("select SID,USERNAME,USERLOGINNAME,COMID,TEL,EMAIL,USERID,ISUSING from UserInfo where USERLOGINNAME='" + Name + "'");
if (dt.Rows.Count <= 0)
{
AccessUN += Convert.ToString(k++) + "、" + Name + "\r\n";
SID = (new sqlconn()).Max("select Max(SID) from USERINFO") + 1;
sid = (new sqlconn()).Max("select Max(SID) from USER2ROLE") + 1;
userid = (new sqlconn()).Max("SELECT max(USERID) FROM USERINFO") + 1;
//如果userid在USER2ROLE当中存在一个，则先删除此行
string strsql1 = "delete from USER2ROLE where USERID=" + userid;
string strsql2 = "insert into USERINFO (SID,USERID,USERNAME,USERLOGINNAME,USERPWD,COMID,TEL,EMAIL,ADDR)values('" + SID + "','" + userid + "','" + Name + "','" + Name + "','" + DUserPwd + "','0','','','')";
string strsql3 = "insert into USER2ROLE (SID,USERID,ROLEID)values('" + sid + "','" + userid + "','" + Convert.ToInt32(RoleId) + "')";
(new sqlconn()).ExecuteSql(strsql1);
(new sqlconn()).ExecuteSql(strsql2);
(new sqlconn()).ExecuteSql(strsql3);
DataTable dt2 = (new SqlDataAccess(UserServer)).RunSqlDT("select SID,USERNAME,USERLOGINNAME,COMID,TEL,EMAIL,USERID,ISUSING from UserInfo where USERLOGINNAME='" + Name + "'");
if (dt2.Rows.Count <= 0)
{
string strsql2005 = "insert into USERINFO (SID,USERID,USERNAME,USERLOGINNAME,USERPWD,COMID,TEL,EMAIL,ADDR)values('" + SID + "','" + userid + "','" + Name + "','" + Name + "','" + SQLPwd + "','0','','','')";
(new SqlDataAccess(UserServer)).DataCom(strsql2005);
}
}
}
catch (Exception ex)
{
MessageBox.Show("请核对你的config连接数据配置数据或改Sys.mdb为可写！或同步到sql2005表里时候出错，请核对各个连接字符串和配置是否正确！错误： " + ex.Message);
}
}
#endregion

#region 读取域信息
public void ReadData(object source, System.Timers.ElapsedEventArgs e)
{
try
{
SetLogonInformation();
SetNamingContext();

SetUserProperties(schemaNamingContext);
using (DirectoryEntry root = new DirectoryEntry())
{
root.Username = username;
root.Password = password;
root.Path = "LDAP://" + hostname + defaultNamingContext;

using (DirectorySearcher searcher = new DirectorySearcher())
{
searcher.SearchRoot = root;
searcher.SearchScope = SearchScope.Subtree;
searcher.Filter = "(objectClass=user)";
searcher.PropertiesToLoad.AddRange(GetProperties());

SearchResultCollection results = searcher.FindAll();
StringBuilder summary = new StringBuilder();
foreach (SearchResult result in results)
{
foreach (string propName in result.Properties.PropertyNames)
{
foreach (string s in result.Properties[propName])
{
summary.Append(" " + propName + ": " + s);
}
}
summary.Append("\r\n" + "|");
}
SetText(summary.ToString());//最后在屏幕上显示信息
}
}
}
catch (Exception ex)
{
MessageBox.Show("请核对你的域服务器地址、账号、密码等配置数据!错误： " + ex.Message);
}
}
#endregion

#region 服务程序入口
/// <summary>
/// 应用程序的主入口点。
/// </summary>
[STAThread]
static void Main()
{
Application.Run(new GetDomainLUN());
}
#endregion

#region 服务启动,服务停止,服务退出
private void btnStart_Click(object sender, EventArgs e)
{
btnStart.Enabled = false;
btnCancel.Enabled = true;
//t.Enabled = true;
t.Start();
this.lblxszt.Text = "运行中";
this.lblxszt.ForeColor = System.Drawing.Color.Green;
}

private void btnGet_Click(object sender, EventArgs e)
{
btnStart.Enabled = true;
btnCancel.Enabled = false;
//t.Enabled = false;
t.Stop();
this.lblxszt.Text = "已停止";
this.lblxszt.ForeColor = System.Drawing.Color.Red;
t.Close();
}

private void btnCancel_Click(object sender, EventArgs e)
{
t.Close();
Application.Exit();//退出应用程序
}
#endregion

#region 点击右下角图标应用程序显示与隐藏
private void notifyIcon1_Click(object sender, EventArgs e)
{
if (con % 2 == 0)
{
this.Visible = false;
}
else
{
this.Visible = true;
}
con++;
}
#endregion

当然，域服务器获取账号下载：http://download.csdn.net/source/540535

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/lfywy/archive/2008/07/16/2658623.aspx