Discussion :

[debug]

Bonjour,

J'ai une demande spécifique d'un client, qui souhaite : savoir qui imprime sur quelle imprimante.

Y'a-t-il moyen d'avoir un journal d'audit spécifique pour cela ?
Question subsidiaire : y'-t-il moyen automatique de transmettre ce rapport par mail ?

Mes vieilles connaissances d'admin 2003 sont loins

[Flamby38]

En principe tes logs d'impression apparaissent dans l'onglet système de l'observateur d'evenement.

Pour ce qui est de l'utilisateur et du nom de l'imprimante, ils apparaissent dans le message de l'evenement.

C'est donc pas forcement simple mais faisable si tu as un outil pour interroger les logs, de charger les logs et de faire une recherche de ceux qui concernent une imprimante ou un utilisateur.

Je sais que powershell sait faire des choses dans le genre par contre je n'ai pas d'exemple sous la main.

EDIT : autre approche, avec wmi tu dois pouvoir récolter la liste des imprimantes installés chez un utilisateur, mais ca veut pas dire qu'il les utilise.

[debug]

Effectivement j'ai bien les événements dans ce journal.

Ce que j'ai fait pour les récupérer en format texte :

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
23
24
25
26
27
28
29
30
31
dtmThisDay = Day(Date)
dtmThisMonth = Month(Date)
dtmThisYear = Year(Date)
strBackupName = dtmThisYear & "-" & dtmThisMonth & "-" & dtmThisDay& ".txt"

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Backup)}!\\" & strComputer & "\root\cimv2")

Set colLoggedEvents = objWMIService.ExecQuery ("Select * from Win32_NTLogEvent where LogFile='system' AND SourceName='Print'")

' generate a filename base on the script name
strOutputFile = "./" & Split(WScript.ScriptName, ".")(0) & ".out"

Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strBackupName, TRUE)

For Each objEvent in colLoggedEvents
    objOutputFile.WriteLine( "Category: " & objEvent.Category)
    objOutputFile.WriteLine( "Computer Name: " & objEvent.ComputerName)
    objOutputFile.WriteLine( "Event Code: " & objEvent.EventCode)
    objOutputFile.WriteLine( "Message: " & objEvent.Message)
    objOutputFile.WriteLine( "Record Number: " & objEvent.RecordNumber)
    objOutputFile.WriteLine( "Source Name: " & objEvent.SourceName)
    objOutputFile.WriteLine( "Time Written: " & objEvent.TimeWritten)
    objOutputFile.WriteLine( "Event Type: " & objEvent.Type)
    objOutputFile.WriteLine( "User: " & objEvent.User)
Next
objOutputFile.Close
Set objFileSystem = Nothing
MsgBox "Fini"
WScript.Quit(0)

Merci pour ta réponse !!

[icimarseille]

essayes cette plateforme :

http://www.czsolution.com/print-mana...FZkA4wodcXGboQ

A plus