excel VBA查询AD上次登录用户

Question

我创建了一个Excel 2010 ss，用于查询AD用户LDAP并填充3列pc名称，描述和在线/离线。

我现在想添加最后登录的用户。

Set objRootDSE = GetObject("LDAP://rootDSE")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"

Set objCommand = CreateObject("ADODB.Command")

objCommand.CommandText = "<LDAP://FQDN;(objectCategory=computer);Name,Description;subtree"

我是否必须再次这样做？

objCommand.CommandText = "<LDAP://FQDN;(objectCategory=user);sAMAccount;subtree"

如何将其链接到特定的PC或者是否有办法查询最后一位用户登录的PC名称？我必须说我对此非常陌生，并且说到目前为止，说教育程度最低。 提前感谢任何提示

Answer 1

少数事情：

1. AD不存储用户上次登录的PC。你必须构建一些自定义的东西来跟踪它。建造它们并不是一件容易的事。
2. 要搜索当前的计算机对象，您需要将其过滤到(&(objectCategory=computer)(objectClass=computer)(sAMAccountName=<PC NAME>$))。
3. 在搜索用户时，您需要sAMAccountName属性（您有sAMAccount）。