settingsLogin | Registersettings
Es tu primera visita? Te invitamos a visitar nuestra sección de preguntas frecuentes FAQ!
x
Show Menu

Como saber cuando fue el ultimo Login de un usuario de Dominio ?

0 votos
Hola,

Me gustaría saber si existe alguna forma de saber: cuando fue la ultima vez que un usuario de dominio se hizo login, osea, Cuando fue la ultima vez que Andres Martí (Domain User) uso su cuenta para entrar al dominio ?...

El Dominio esta bajo Windows 2003 Server.-
por (152 puntos)  
Estimado Anthony Tejada

Utilizar el visor de suceso del servidor dominio o equipo. Ve el siguiente articulo, es una pregunta similar. Puede que te sirva.

https://www.preguntaserver.com/3570/auditar-ultimo-inicio-sesion-usuario-especifico-servidor

3 Respuestas

0 votos
Hola

 

usa gpedit.msc, gvete a: Computer Configuration\Administrative Templates\Windows Components\Windows Logon Options\

disable this Display information about previous logons during user logon
por  
0 votos
Hola Anthony, podriamos utilizar vbs. Este por ejemplo te da los usuarios si estan habilitados o no, el ultimo loging y la cantidad de dias desde el ultimo login hasta hoy. Yo no calculo los que ingresaron en los ultimos 30 dias, eso porque asi lo requiero, pero eso es una simple formula de Excel. Esperemos que este te sirva.

Pegas a partir de aqui en un txt y lo guardas como un .vbs

'aqui pone el dominio de la empresa, por ejemplo "test.local"
strPreDomain = "test"
strPostDomain = "local"

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
intRow = 5
objExcel.Cells(1, 1).Value = "Reporte Usuarios"
objExcel.Cells(1, 2).Value = "AD Costa Rica"
objExcel.Cells(2, 6).Value = "Fecha Reporte:"
objExcel.Cells(2, 7).Value = "=NOW()"

objExcel.Cells(4, 1).Value = "Login Name"
objExcel.Cells(4, 2).Value = "First Name"
objExcel.Cells(4, 3).Value = "Last Name"
objExcel.Cells(4, 4).Value = "Full Name"
objExcel.Cells(4, 5).Value = "Description"
objExcel.Cells(4, 6).Value = "Last Login"
objExcel.Cells(4, 7).Value = "Password Last Changed"
objExcel.Cells(4, 8).Value = "AccountEnable"
objExcel.Cells(4, 9).Value = "Días Sin Sesión"

On Error Resume Next
Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = "Select ADsPath From 'LDAP://dc=" & strPreDomain & ",dc=" & strPostDomain & "' Where objectCategory='User' And userPrincipalName = '*'"

Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
strPath = objRecordSet.Fields("ADsPath").Value
Set objUser = GetObject(strPath)
objExcel.Cells(intRow, 1).Value = objUser.sAMAccountName
objExcel.Cells(intRow, 2).Value = objUser.FirstName
objExcel.Cells(intRow, 3).Value = objUser.LastName
objExcel.Cells(intRow, 4).Value = objUser.FullName
objExcel.Cells(intRow, 5).Value = objUser.Description
objExcel.Cells(intRow, 6).Value = objUser.LastLogin
objExcel.Cells(intRow, 7).Value = objUser.PasswordLastChanged

IsAccountDisabled = objUser.AccountDisabled
If IsAccountDisabled = "False" Then
     objExcel.Cells(intRow, 8).Value =  "Account enabled"
Else
     objExcel.Cells(intRow, 8).Value = "Account disabled"
End If
'cellFormula = "$G$2-F"&intRow
objExcel.Cells(intRow, 9).Value = "=IF(($G$2-F"&intRow&")>30,($G$2-F"&intRow&"),)"

objRecordSet.MoveNext
intRow = intRow + 1
Loop
objExcel.Range("A4:I4").Select
objExcel.Selection.Interior.ColorIndex = 19
objExcel.Selection.Font.ColorIndex = 11
objExcel.Selection.Font.Bold = True
objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
Set objRange = objExcel.Range("A5")
objRange.Sort objRange,1,,,,,,1

objExcel.Range("A1:B1").Select
objExcel.Selection.Interior.ColorIndex = 19
objExcel.Selection.Font.ColorIndex = 11
objExcel.Selection.Font.Bold = True

objExcel.Range("F2:G2").Select
objExcel.Selection.Interior.ColorIndex = 19
objExcel.Selection.Font.ColorIndex = 11
objExcel.Selection.Font.Bold = True

MsgBox "Done"
por (26 puntos)  
interesante
este codigo que hace eh? explicacion porfavor
Claro,  todo lo que dice objExcel, son los objetos para el manejo del reporte en excel, asignaciones de resultados por ejemplo. A nivel de AD lo importante esta en la linea del select que por medio de del string del dominio me trae toda la informacion donde la categoria sea usuarios y el nombre principal es cualquiera. Por medio del objeto correspondiente hace la asignacion correcta del resultado en la celdas del excel.

Saludos
0 votos
DUMPSEC, software gratuito que corre bien en 2003

 

avisanos si te sirvio la solucion

 

Serba
por (279 puntos)  
Fantástico! Incluso con el formato de listado
Hola, gracias por el aporte ami me sale  Account disabled    41746,50039 infinito yo lo pare si seguia asi. que estoy haciendo mal.. mi dominio es dominio.com.ar yo puse :

strPreDomain = "midominio"
strPostDomain = "com.ar"

me pone CPU 100%

tengo que cambiar lagomas uso Office 2010..

alguna ayuda por favor

desde ya muchas gracias
cambia objUser.AccountDisabled por esto objUser.userAccountControl tendrias que realizar un if anidado con los valores 512,514,66048, 66050 pruebalo a mi me funciono sin problemas hasta en windows 2012.

saludos
...