Ciao a tutti,
ho un dominio con Windows Server 2008.
vorrei sapere come si fa a conoscere l'ultimo accesso effettuato da un utente nel mio dominio.
Per fare ciò ho tulizzato ldp e cercato l'utente in questione. Ma guardando l'attributo "lastLogon" questo vale "01/01/1601 01:00:00 ora solare Europa occidentale ora legale Europa occidentale;"
Cosa significa? Quest'utente non ha mai acceduto alla rete o forse è così tanto tempo (magari 1 anno o più) che non accede e tale informazione non è più disponibile? Inoltre "pwdLastSet" vale "01/01/1601 01:00:00 ora
solare Europa occidentale ora legale Europa occidentale;"
Se invece uso il seguente script:
'ADS_SCOPE_SUBTREE specifies the depth of the search operation performed against the BaseDN
'I suggest you to use cscript.exe from a command prompt to redirect the output of this script on a text file
On Error Resume Next
'Set here the depth of the search operation performed against the BaseDN
Const ADS_SCOPE_SUBTREE = 30
'Set here the LDAP Domain Name
strLDAPDomain = "dc=dominio,dc=local"
'Set here the LDAP BaseDN
strLDAPBaseDN = "dc=dominio,dc=local"
Const ADS_UF_ACCOUNTDISABLE = 2
Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000
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,Name,userAccountControl FROM 'LDAP://" & strLDAPBaseDN &"' WHERE objectCategory='User'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Wscript.Echo "User Name" & vbTab & "Account Status" & vbTab & "Account Expiration Date" & vbTab & "Password Status" & vbTab & "Password Expiration Date: " & vbTab & "Last Password Change: " & vbTab & "Last
Login: "
Do Until objRecordSet.EOF
strPath = objRecordSet.Fields("ADsPath").Value
Set objUser = GetObject(strPath)
Set objDomain = GetObject("LDAP://" & strLDAPDomain)
strPasswordChangeDate = ""
strAccExpDate = ""
strLastLogin = ""
strAccountDisabled =""
'strAccountDisabled ="Account Enabled"
strPwdExpires = "Password Expires"
Set maxPwdAge = objDomain.maxPwdAge
wscript.echo objUser.maxPwdAge
numDays = CCur((maxPwdAge.HighPart * 2 ^ 32) + maxPwdAge.LowPart) / CCur(-864000000000)
strName = objRecordSet.Fields("Name").Value
strPwdLastSet = objUser.PasswordLastChanged
strAccExpDate = objUser.AccountExpirationDate
strLastLogin = objUser.LastLogin
strPwdExpirationDate = DateAdd("d", numDays, objUser.PasswordLastChanged)
intUAC = objRecordset.Fields("userAccountControl").Value
boolAccountDisabled = objUser.AccountDisabled
'If (intUAC AND ADS_UF_ACCOUNTDISABLE) Then
'strAccountDisabled = "Account Disabled"
'End If
If boolAccountDisabled Then
strAccountDisabled = "Account Disabled"
Else
strAccountDisabled = "Account Enabled"
End If
If (intUAC AND ADS_UF_DONT_EXPIRE_PASSWD) Then
strPwdExpires = "Password Never Expires"
End If
Wscript.Echo strName & vbTab & strAccountDisabled & vbTab & strAccExpDate & vbTab & strPwdExpires & vbTab & strPwdExpirationDate & vbTab & strPwdLastSet & vbTab & strLastLogin
objRecordSet.MoveNext
Loop
---------
Nell'elenco che ottengo l'utente in questione ha impostato "Last Password Change" con "25/11/2010 08:25:05" e "Last Login" vuoto.
Non capisco quali siano i valori corretti, inoltre la data 01/01/1601 che significato ha? Vuol dire come non impostata? I dati di accesso per quanto tempo vengono salvati nel dominio?
Grazie a tutti per i chiarimenti che mi darete.
Alessio
