Abaixo temos um simples script que tenho que mostra a data e hora do último login do usuário…

Bom vamos lá… primeiro passo e colar o código abaixo no Bloco de Notas e salvar como LastLogin.vbs:

Set oADSystemInfo = CreateObject(“ADSystemInfo”)
strDefaultDN = oADSystemInfo.username
strDN = InputBox(“Coloque o distinguished name” & _
vbCrLf & “(Exemplo ” & strDefaultDN & “)”, , strDefaultDN)

Set objUser = GetObject(“LDAP://” & strDN)
Set objLastLogon = objUser.Get(“lastLogon”)
intLastLogonTime = objLastLogon.HighPart * (2^32) + objLastLogon.LowPart
intLastLogonTime = intLastLogonTime / (60 * 10000000)
intLastLogonTime = intLastLogonTime / 1440

WScript.Echo “ULTIMO LOGON : ” & int(intLastLogonTime + #1/1/1601#)

Ao abrir o arquivo, temos a seguinte tela:

 

Ou seja, temos que inserir o DC Name do usuário (CN=USER, OU=NOMEOU, DC=DOMINIO, DC=COM, etc) e clicar no botão OK.

Por fim, nos é mostrado a seguinte tela:

Legal né… espero que tenham gostado!