[VBS-] 在AD上查詢帳號最後一次的登入日期、時間
在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