uhm ok...
però ora ho complicato un po' le cose... e non mi funziona più
codice:
Dim hostname
hostname = WScript.Arguments(0)
Set objUser = GetObject("LDAP://CN=" + hostname ",OU=pluto,DC=pippo,DC=com")
On Error Resume Next
Set objLastLogon = objUser.Get("lastLogonTimestamp")
If (Err.Number <> 0) Then
On Error GoTo 0
Wscript.Echo "Last logon never"
Else
On Error GoTo 0
intLastLogonTime = objLastLogon.HighPart * (2^32) + objLastLogon.LowPart
intLastLogonTime = intLastLogonTime / (60 * 10000000)
intLastLogonTime = intLastLogonTime / 1440
Wscript.Echo "Last logon time: " & intLastLogonTime + #1/1/1601#
End If