以下是引用有点甜在2014-7-7 11:09:00的发言：
Dim domainName As String = "test.com"
try
Dim entry As New System.DirectoryServices.DirectoryEntry("LDAP://" & domainName)
Dim mySearcher As New System.DirectoryServices.DirectorySearcher(entry)
mySearcher.Filter = ("(objectClass=user)") 'user表示用户,group表示组
For Each resEnt As System.DirectoryServices.SearchResult In mySearcher.FindAll()
msgbox(resEnt.GetDirectoryEntry().Name & " | " & resEnt.GetDirectoryEntry().UserName)
Next
catch ex As exception
msgbox("连接不上......自己做操作")
msgbox(ex.message)
End try
private string GetCurrentFullName()
{
string DomainName = System.Environment.UserDomainName;
string AccountName = System.Environment.UserName.ToLower();
DirectoryEntry de = new DirectoryEntry("LDAP://" + DomainName);
DirectorySearcher ds = new DirectorySearcher(de);
ds.Filter = ("(objectClass=user)");
foreach (SearchResult sr in ds.FindAll())
{
string fullName = sr.GetDirectoryEntry().Name.ToString();
if (sr.GetDirectoryEntry().Properties["samaccountname"].Value.ToString().ToLower() == AccountName)
{
return fullName.Substring(3, fullName.Length-3);
}
}
return "";
}
甜总能不能把这个改一改我不会弄，这个应该是可以判断出当前用户名的
加好友 
发短信
Post By：2014/5/16 10:13:00 [显示全部帖子]
