作者cocakl (一出手便知有没有)
看板EzHotKey
标题[VBS-] 在AD上查询帐号最後一次的登入日期、时间
时间Sat Jul 17 13:04:04 2010
在MS的网站上有一段code(
http://ppt.cc/NWmP)存成vbs可以做查询用。
代码:
Set objUser = GetObject("LDAP://cn=Ken Myer, ou=Finance, dc=fabrikam, dc=com")
Set objLastLogon = objUser.Get("lastLogonTimestamp")
intLastLogonTime = objLastLogon.HighPart * (2^32) + objLastLogon.LowPart
intLastLogonTime = intLastLogonTime / (60 * 10000000)
intLastLogonTime = intLastLogonTime / 1440
Wscript.Echo "Last logon time: " & intLastLogonTime + #1/1/1601#
根据实际情况，修改成符合现阶段可用，并且加入GMT +8的修正。
代码:
'*********************************************************
' 一般查询时，需要修改的部份。
' 1. cn=网域使用者
' 2. ou=组织单位
' 3. dc=网域
'*********************************************************
Set objUser = GetObject("LDAP://cn=coca工程师, ou=资讯部, ou=北区, dc=twftp,
dc=org")
Set objLastLogon = objUser.Get("lastLogon")
intLastLogonTime = objLastLogon.HighPart * (2^32) + objLastLogon.LowPart
intLastLogonTime = intLastLogonTime / (60 * 10000000)
'下面这行是针对台湾时区（GMT+8）增加的，请视情况修改。
intLastLogonTime = intLastLogonTime + (60 * 8)
intLastLogonTime = intLastLogonTime / 1440
Wscript.Echo "最後登入时间：" & intLastLogonTime + #1/1/1601#
文章同步发表於
http://vbb.twftp.org/showthread.php?t=14853
--
Sleipnir
http://sleipnir.twftp.org
最新2.6.0 繁体中文版，2007年11月释出
免费 + RSS + Unicode + 支援IE/Gecko双核心的免安装浏览器
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.136.132.34