Tag: ldap

将用户特定的数据从Excel表单导入Active Directory / Exchange: 我想从Excel表单（姓名，部门，电话等）自动分配数据到可用的AD用户。哪种编程/脚本语言或LDAP-API对于这个问题是实用的？有没有人有一些例子？

如何使用Excel VBA（Edirectory不AD）检索LDAP用户详细信息（标题）: 我感谢你的时间。我有一个2010年的Excel文档，我想当用户打开文档获取他的环境“用户”的名称，并填充一个单元格，我想用这个信息来search该用户的“标题”的LDAP我们正在使用Novell Edirectory而不是活动目录，但肯定有一个LDAP服务器。（也许有可能获得有关用户标题没有填充“用户”字段的信息？内置到当前login用户的LDAPsearch不确定最好的方法。）（我当然已经在这个networking上的所有networking只想重新开始，说我没有什么可以继续下去的。）谢谢胜利

在Active Directory中searchlocking的帐户（Excel / VB）: 我正在尝试使用Excel VBA提供Active Directory域上的用户帐户的帐户信息。我在“Active Directory用户和计算机”中的“帐户”标签中的选项中苦苦挣扎，特别检查一个帐户是否被locking。我有下面的代码，但不pipe我尝试获取帐户locking状态我无法获得输出或它失败（假设我的代码尝试是无效的）。我到目前为止的代码适用于下面的所有其他属性。任何人都可以build议一种方法来扩展现有的代码捕获，如果该帐户被locking或不。感谢史蒂夫 Sub UpdateInfoFromAD() Dim wksSheet As Worksheet Dim strID As String Set wksSheet = Sheets("IDs") Application.ScreenUpdating = False 'Turns off screen updating ldapFilter = "(samAccountType=805306368)" Set rootDSE = GetObject("LDAP://rootDSE") domainDN = rootDSE.Get("defaultNamingContext") Set ado = CreateObject("ADODB.Connection") ado.Provider = "ADSDSOObject" ado.Open "ADSearch" strID = "A" i = 3 With wksSheet Do […]

LDAP查询通过URL: 我正在尝试通过Visual Basic进行LDAP查询。我没有Active Directory的pipe理员权限，但是我可以查看所有用户对象。我不知道有什么限制，如果有我通过LDAPsearch目录：//查询。在我正在构build的Excel应用程序中，我有一个用于input用户标识的列。一旦用户input了用户ID，我想根据与该用户关联的服务器端信息自动填充其他列（例如电子邮件地址）比方说，c.Value是已经input到电子表格中的用户ID值： strUser = "CN=" & c.Value & ",OU=User Accounts, OU=Area ,OU=Users,OU=Accounts,DC=joe,DC=bloggs,DC=co,DC=uk/" Set objUser = GetObject("LDAP://" & strUser) 问题是这个 – 其中OU = Area是已知的，search是成功的。但是，我想查询检查所有区域用户名的用户名。据我所知，他们不是在中央位置举行或镜像。在这样的查询中是否可以使用通配符？有没有人有任何其他的想法或build议，以交替的方式去做到这一点？谢谢，汤姆

Excel VBA子串: 我正在编写一个macros，它采用LDAP格式的名称列表将其转换为First，Last（region）。对于那些不知道LDAP是什么样子的人来说，下面是： CN=John Smith (region),OU=Legal,DC=example,DC=comand 在Excel VBA中，我似乎无法使用string.substring（start，end）。谷歌search似乎显示，中（string，开始，结束）是最好的select。问题是这样的：在Mid中，end的整数是从开始的距离，而不是字符的实际索引位置。这意味着不同的名字大小将有不同的结束位置，我不能使用“）”索引来查找区域的结尾。由于所有的名字都以CN =开头，所以我可以正确地find第一个子string的结尾，但是我找不到“）”，因为名字长短不一。我有一些代码如下： mgrSub1 = Mid(mgrVal, InStr(1, mgrVal, "=") + 1, InStr(1, mgrVal, "\") – 4) mgrSub2 = Mid(mgrVal, InStr(1, mgrVal, ","), InStr(1, mgrVal, ")") – 10) manager = mgrSub1 & mgrSub2 有没有人知道一个方法来实际使用一个设定的终点，而不是一个终点，是从开始的那么多值？