Назад | Перейти на главную страницу

Простой скрипт аудита принтера

Я работаю над Windows Server 2008 R2 и хочу создать простой скрипт для аудита печати, выполняемой в компании.

Я хотел бы, чтобы эти данные были проверены в текстовом файле в общей папке и чтобы сценарий запускался после того, как кто-то отправит что-то на печать:

«имя пользователя, имя компьютера, имя документа и путь, количество страниц, имя принтера, дата, время»

Любые предложения будут ценны.

Спасибо.

Ребята, вот сценарий (-ы), который я использовал в прошлой жизни. Это было на сервере печати 2003 года, но я полагаю, что они нормально работали и в 2008 году. Я получил большую часть этого онлайн из чьего-то сообщения в блоге, но я не помню, где ... это было много лет назад.

Как это устроено:

auditprinters.bat = командный файл (по расписанию ежедневно), который выполняет следующие действия:

  1. Анализирует ввод через цикл FOR серверов печати. В моем случае у меня был только один сервер печати, но если у вас был дополнительный, вы могли изменить цикл FOR, чтобы разрешить входной файл и т. Д.
  2. Устанавливает различные папки вывода
  3. Удаляет журналы старше 30 дней
  4. Сбрасывает журналы принтера, используя DUMPEL (убедитесь, что у вас установлен Windows Resource Kit, или получите dumpel и поместите его где-нибудь и измените эту строку командного файла)
  5. Делает резервную копию текущих журналов
  6. Обработка журналов вызова processprinterlogs.vbs

ProcessPrinterLogs.vbs = сценарий, анализирующий журналы принтера (форматирование и т. д.)

Затем я использовал Excel, чтобы открыть файлы и выполнить свою собственную сортировку, при необходимости манипулировать.

КОД:

auditprinters.bat

For  %%S IN (PRINTSERVER.MDMARRA.LOCAL) DO (

Set print_server=%%S
Call :s_get_logs

)
Goto eof

:s_get_logs
Set MainDir=C:\PrinterLogs\%print_server%
Set PrintDir=%MainDir%\printdir
Set LogDir=%MainDir%\logs

:: Delete log files older than 30 days
forfiles /p %LogDir% /d -30 /c "CMD /C del @FILE"

:: Create needed directories
If not Exist %PrintDir% MD %PrintDir%
If not Exist %LogDir% MD %LogDir%

:: Set date format
For /f "tokens=1-8 delims=/:. " %%i IN ('echo %date%') do Set DateFlat=%%j%%k%%l

:: Set log an backup files
Set LogFile=%print_server%_jobs_%DateFlat%.csv
Set BackFile=PrintJobs_%DateFlat%.csv

:: Dump the printer log
:: Using full path for safety
"C:\Program Files\Resource Kit\dumpel" -s \\%print_server% -l System -e 10 -m Print -d 1 >> %logDir%\%LogFile%

:: Make a backup copy
Copy %logDir%\%print_server%_jobs_%DateFlat%.csv %PrintDir%\%BackFile% /y

:: Process the logs
cscript ProcessPrinterLogs.vbs /f:%LogDir% /o:%MainDir%\%print_server%_auditoutput.csv
:eof

ProcessPrinterLogs.vbs

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")

Main()


Sub Main()
    If WScript.Arguments.Named.Exists("f") Then
        sSource = WScript.Arguments.Named("f")
    Else
        WScript.Arguments.ShowUsage()
        WScript.Echo "Source file or directory must be supplied"
        WScript.Quit(2)
    End If

    If WScript.Arguments.Named.Exists("o") Then
        sOutputFile = WScript.Arguments.Named("o")
    Else
        dNow = Now   
        dLogDate = DatePart("yyyy", dNow)
        dLogDate = dLogDate & String(2 - Len(DatePart("m", dNow)), "0") & DatePart("m", dNow)
        dLogDate = dLogDate & String(2 - Len(DatePart("d", dNow)), "0") & DatePart("d", dNow)   
        sOutputFile = Left(WScript.ScriptName, InStrRev(WScript.ScriptName, ".vbs") - 1) & "_" & dLogDate & ".csv"
    End If

    WScript.echo "Input file/dir: '" & sSource & "'"
    WScript.echo "Output file: '" & sOutputFile & "'"


    If objFSO.FileExists(sSource) Then
        sFileSet = sSource                                        ' Process a single file
        WScript.echo "Single file specified - " & sFileSet
    ElseIf objFSO.FolderExists(sSource) Then
        WScript.echo "Source specified was a directory, reading files from '" & sSource & "'"
        sFileSet = ""
        Set oFolder = objFSO.GetFolder(sSource)                                ' Get the folder
        Set oFiles = oFolder.Files
        For Each oFile In oFiles                                    ' For each file
            sFileset = sFileset & vbCRLF & oFile.Path                         ' Append to the fileset
        Next
        If Len(sFileSet) > Len(vbCRLF) Then sFileSet = Right(sFileSet, Len(sFileSet) - Len(vbCRLF))    ' Trim the leading CRLF
    End If

    Set dPrinters = CreateObject("Scripting.Dictionary")                            ' Create the dictionary objects
    Set dUsersPerPrinter = CreateObject("Scripting.Dictionary")
    Set dusers = CreateObject("Scripting.Dictionary")   
    Set dDates = CreateObject("Scripting.Dictionary")
    Set dJobs = CreateObject("Scripting.Dictionary")

    For Each sFile In Split(sFileset, vbCRLF)                                ' For Each file

        Set objFile = objFSO.GetFile(sFile)       
        If objFile.size > 0 Then           ' Don't process the file if it is a 0 byte file
            WScript.echo "Processing '" & sFile & "'"
            sBuffer = ""
            Set objTextStream = objFSO.OpenTextFile(sFile, ForReading)     
            sBuffer = objTextStream.ReadAll

            For Each sLine In Split(sBuffer, vbCRLF)                            ' For each line in this file
                Call ProcessLogEntry(sLine, dPrinters, dUsers, dDates, dJobs, dUsersPerPrinter)                ' Process the log entry
            Next
        End If
    Next


    Call ProduceOutput(sOutput, dPrinters, dUsers, dDates, dJobs, dUsersPerPrinter)                        ' Produce the output
    Set objTextStream = objFSO.OpenTextFile(sOutputFile, ForWriting, True)
    objTextStream.Write sOutput
    WScript.echo "Output saved to '" & sOutputFile & "', " & Len(sOutput) & " characters."

End Sub

Function ProduceOutput(ByRef sOutput, ByRef dPrinters, ByRef dUsers, ByRef dDates, ByRef dJobs, ByRef dUsersPerPrinter)
    Dim strPrinter, strPort, dtmDate, strUser, strserver, strDocumentName, intSize, intPages, strInformation, strTotal
    Dim strUserTotal, strPrinterTotal, strDateTotal, strJobTotal, aJobTotal

    sOutput = ""
    For Each strPrinter In dPrinters.Keys       
        sOutput = sOutput & vbCRLF & strPrinter & "," & dPrinters.Item(strPrinter)
    Next

    sOutput = sOutput & vbCRLF
    For Each strUser In dUsers.Keys
        sOutput = sOutput & vbCRLF & strUser & "," & dUsers.Item(strUser)
    Next

    'new portion to output list of users per print queue
    sOutPut = sOutput & vbCRLF
    For Each strPrinter In dUsersPerPrinter.Keys
        sOutput = sOutput & vbCRLF & strPrinter & "," & dUsersPerPrinter.Item(strPrinter)
    Next
    'end of new output

    sOutput = sOutput & vbCRLF
    For Each dtmDate In dDates.Keys
        sOutput = sOutput & vbCRLF & dtmDate & "," & dDates.Item(dtmDate)
    Next

    sOutput = sOutput & vbCRLF
    For Each strTotal In dJobs.Keys
        strJobTotal = dJobs.Item(strTotal)
        aJobTotal = Split(strJobTotal, ",")
        sOutput = sOutput & vbCRLF & "Total Jobs," & aJobTotal(0)
        sOutput = sOutput & vbCRLF & "Total Pages," & aJobTotal(1)
        sOutput = sOutput & vbCRLF & "Total Size (MB)," & aJobTotal(2)
    Next

    sOutput = sOutput & vbCRLF
    strUserTotal = UBound(dUsers.Keys) + 1
    strPrinterTotal = UBound(dPrinters.Keys) + 1
    strDateTotal = UBound(dDates.Keys) + 1
    sOutput = sOutput & vbCRLF & "Printers," & strPrinterTotal
    sOutput = sOutput & vbCRLF & "Users," & strUserTotal
    sOutput = sOutput & vbCRLF & "Days," & strDateTotal

    aJobTotal = Split(strJobTotal, ",")
    sOutput = sOutput & vbCRLF

    sOutput = sOutput & vbCRLF & "Average jobs/person," & CInt(aJobTotal(0) / strUserTotal)
    sOutput = sOutput & vbCRLF & "Average pages/person," & CInt(aJobTotal(1) / strUserTotal)
    sOutput = sOutput & vbCRLF & "Average pages/person/day," & CInt(CInt(aJobTotal(1) / strUserTotal) / strDateTotal)
    sOutput = sOutput & vbCRLF & "Average pages/minute," & CInt(aJobTotal(1) / (strDateTotal * 8 * 60))

End Function

Function ProcessLogEntry(ByRef sLine, ByRef dPrinters, ByRef dUsers, ByRef dDates, ByRef dJobs, ByRef dUsersPerPrinter)
    Dim strPrinter, strPort, dtmDate, strUser, strserver, strDocumentName, intSize, intPages, strInformation
    Dim aPrintJob, intOffset, strTemp, aTemp

    aPrintJob = Split(sLine, vbTAB)


    If UBound(aPrintJob) = 9 Then
        dtmDate = aPrintJob(0) ' & " " & aPrintJob(1)
        aTemp = Split(dtmDate, "/")
        dtmDate = Right("00" & Trim(aTemp(1)), 2) & "/" & Right("00" & Trim(aTemp(0)), 2) & "/" & aTemp(2)        ' Trim, pad and switch to dd/mm/yyyy instead of mm/dd/yyyy
        strServer = aPrintJob(8)

        strInformation = Trim(aPrintJob(9))
        strInformation = Right(strInformation, Len(strInformation) - InStr(strInformation, " "))    ' Remove the job ID
        intOffset = InStrRev(strInformation, " ")
        intPages = Right(strInformation, Len(strInformation) - intOffset)        ' Extract the number of pages from the end
        strInformation = Left(strInformation, intOffset - 1)                ' Trim the string

        intOffset = InStrRev(strInformation, " ")
        intSize = Right(strInformation, Len(strInformation) - intOffset)        ' Extract the number of bytes from the end
        strInformation = Left(strInformation, intOffset - 1)                ' Trim the string   

        intOffset = InStrRev(strInformation, " ")
        strPort = Right(strInformation, Len(strInformation) - intOffset)        ' Extract the port from the end
        strInformation = Left(strInformation, intOffset - 1)                ' Trim the string   

        intOffset = InStrRev(strInformation, " ")
        strPrinter = Right(strInformation, Len(strInformation) - intOffset)        ' Extract the printer from the end
        strInformation = Left(strInformation, intOffset - 1)                ' Trim the string   

        intOffset = InStrRev(strInformation, " ")
        strUser = Right(strInformation, Len(strInformation) - intOffset)        ' Extract the user from the end
        strInformation = Left(strInformation, intOffset - 1)                ' Trim the string   

        strDocumentName = strInformation

        If dPrinters.Exists(strPrinter) Then                         ' Does this printer already exist in the dictionary?
            aTemp = Split(dPrinters.Item(strPrinter), ",")                ' Find the existing printer job/page count
            aTemp(0) = aTemp(0) + 1                            ' Increment the job count
            aTemp(1) = aTemp(1) + CInt(intPages)                    ' Add to the page count
            aTemp(2) = aTemp(2) + CInt(intSize / 1024 / 1024)                ' Add to the byte count
            dPrinters.Item(strPrinter) = Join(aTemp, ",")                ' Update the dictionary
        Else
            aTemp = Array(1, intPages, CInt(intsize / 1024 / 1024))            ' Start the job/page count
            dPrinters.Add strPrinter, Join(aTemp, ",")                ' Create this item
        End If

        If dUsers.Exists(strUser) Then                             ' Does this user already exist in the dictionary?
            aTemp = Split(dUsers.Item(strUser), ",")                ' Find the existing user job/page count
            aTemp(0) = aTemp(0) + 1                            ' Increment the job count
            aTemp(1) = aTemp(1) + CInt(intPages)                    ' Add to the page count
            aTemp(2) = aTemp(2) + CInt(intSize / 1024 / 1024)                ' Add to the byte count
            dUsers.Item(strUser) = Join(aTemp, ",")                    ' Update the dictionary
        Else
            aTemp = Array(1, intPages, CInt(intsize / 1024 / 1024))            ' Start the job/page count
            dUsers.Add strUser, Join(aTemp, ",")                    ' Create this item
        End If

        If dDates.Exists(dtmDate) Then                             ' Does this date already exist in the dictionary?
            aTemp = Split(dDates.Item(dtmDate), ",")                ' Find the existing date job/page count
            aTemp(0) = aTemp(0) + 1                            ' Increment the job count
            aTemp(1) = aTemp(1) + CInt(intPages)                    ' Add to the page count
            aTemp(2) = aTemp(2) + CInt(intSize / 1024 / 1024)                ' Add to the byte count
            dDates.Item(dtmDate) = Join(aTemp, ",")                    ' Update the dictionary
        Else
            aTemp = Array(1, intPages, CInt(intsize / 1024 / 1024))            ' Start the job/page count
            dDates.Add dtmDate, Join(aTemp, ",")                    ' Create this item
        End If

        If dJobs.Exists(JOB_TOTAL) Then                         ' Does the total already exist in the dictionary?
            aTemp = Split(dJobs.Item(JOB_TOTAL), ",")                ' Find the existing total counts
            aTemp(0) = aTemp(0) + 1                            ' Increment the job count
            aTemp(1) = aTemp(1) + CInt(intPages)                    ' Add to the page count
            aTemp(2) = aTemp(2) + CInt(intSize / 1024 / 1024)                ' Add to the byte count
            dJobs.Item(JOB_TOTAL) = Join(aTemp, ",")                ' Update the dictionary
        Else
            aTemp = Array(1, intPages, CInt(intsize / 1024 / 1024))            ' Start the job/page count
            dJobs.Add JOB_TOTAL, Join(aTemp, ",")                    ' Create this item
        End If

        ' This section creates a list of users that are using each print queue
        If dUsersPerPrinter.Exists(strPrinter) Then      ' Does the printer exist as a key in the dictionary?
            Dim bTemp
            bTemp = dUsersPerPrinter.Item(strPrinter) & "," & strUser ' build up the list of users
            dUsersPerPrinter.Item(strPrinter) = DedupeString(bTemp, ",") ' dedupe sting of users and populate dictionary
        Else
            dUsersPerPrinter.Add strPrinter, strUser     ' Create this item
        End If
        ' End of user list creation

    Else
        WScript.echo "skipped '" & sLine & "'"       ' line skipped because number of elemnts in array not equal to 9 ( need to figure this one out)
    End If
End Function


' Deduping  a  string
' must use this function so we end up with a unique list of users with no duplicates
Function DedupeString(inString, strSeperate)
    Dim vObjects, myDict, index, strFinal
    strFinal = ""
    Set myDict = CreateObject("Scripting.Dictionary")
    vObjects = Split(inString, strSeperate)
    For index = 0 To UBound(vObjects)
        If (Not myDict.Exists(vObjects(index))) Then
            myDict.Add vObjects(index), vObjects(index)
            If (Len(strFinal)) > 0 Then
                strFinal = strFinal & strSeperate & myDict(vObjects(index))
            Else
                strFinal = myDict(vObjects(index))
            End If
        End If
    Next
    DedupeString = strFinal
End Function