or download this
Set objUser = GetObject("LDAP://CN=Leigh.Smith,OU=USERS,OU=XXXX01,DC=X
+XX,DC=XXXX,DC=com")
Set objLastLogon = objUser.Get("lastLogonTimestamp")
...
intLastLogonTime = intLastLogonTime / 1440
WScript.Echo intLastLogonTime
Wscript.Echo "Last logon time: " & intLastLogonTime + #1/1/1601#