Get the last_login of a computer on an active directory

[rikho]

Hello everyone,

This is my code, anyway when i am checking the whenchanged date or whencreated seem's to be correct.

expandcollapse popup

Func go()
$strHostServer = 'myserver_name'

    _ADGetObjectsInOU ($asComputers, $sOU, "(objectClass=computer)", 2, "name,createTimeStamp,modifyTimeStamp")

    $tt = 15
    GUICtrlSetData($Pr3, $tt)
    GUICtrlSetData($Label4, $asComputers[0][0])
    $x = 0
    
    FileOpen($report, 2)

    For $i = 0 To $asComputers[0][0]

        GUICtrlSetData($Label2, $i)
        $whenCreated = $asComputers[$x][1]
        $whenChanged = $asComputers[$x][2]

        
        MsgBox(4096, '$lastlogon_poste', $lastlogon_poste, 1000)
        

        $yyyy = StringMid($whenCreated, 1, 4)
        $mm = StringMid($whenCreated, 5, 2)
        $dd = StringMid($whenCreated, 7, 2)
        $sNewDate1 = $dd & '/' & $mm & '/' & $yyyy

        $yyyy2 = StringMid($whenChanged, 1, 4)
        $mm2 = StringMid($whenChanged, 5, 2)
        $dd2 = StringMid($whenChanged, 7, 2)
        $sNewDate2 = $dd2 & '/' & $mm2 & '/' & $yyyy2
        $x = $x + 1

        
        $lastlogon_computer = $dd3 & '/' & $mm3 & '/' & $yyyy3

        FileWriteLine($report, $asComputers[$x][0] & ';' & $sNewDate1 & ';' & $sNewDate2 & @CRLF)

        $tt = $tt + 1
        $P3 = ($tt * 100) / ($asComputers[0][0])
        GUICtrlSetData($Pr3, $P3)
        
    Next
    FileClose($report)

EndFunc

is someone got a better code to get lastlogin domain computer (and not user)

Regards.

[rikho]

Need Guru help please >_

[water]

I'm a bit late. To get the last login date you could use the function _AD_GetLastLoginDate from the rewritten Active Directory UDF.

Edited December 6, 2009 by water