Discussion :

[thierry007]

Quelqu'un aurait-il une solution pour retrouver le dernier user/user AD qui s'est connecter sur la machine ( Last logon session user )

Merci

[thierry007]

sa m'a l'air de ne pas être facile

[thierry007]

Voici une ebauche de ce que j'ai fait pour l'instant, maid je ne pèeutle faire tourner que sur la machine sur la quelle je suis loggé quelqu'un vois une façon de pouvoir le faire tourner a distance, en donnant simplement le nom de la machine sur la quelle je veux prendre les données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
StrComputer="."
 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colFolders = objWMIService.ExecQuery _
    ("Select * from Win32_Directory where Name Like '%c:\\documents and settings\\ad%'")
 
For Each objFolder in colFolders
 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists(objFolder.Name & "\ntuser.dat") Then
 
	Set objFile = objFSO.GetFile(objFolder.Name & "\ntuser.dat")
 
	WScript.Echo "Name: " & objFolder.Name
	WScript.Echo "Date last modified: " & objFile.DateLastModified
End If    
 
 
Next