Druckkontingentierung auf Windows Servern mit Boardwerkzeugen/Freewaretools

ldifde -f ExportUsers.ldf -s DC -d "ou=hinten,ou=Berlin,dc=domäne,dc=de" -p subtree -r "(objectClass=person)" -l "SamAccountName"  

dn: CN=Schwanz,OU=hinten,OU=Berlin,DC=domäne,DC=de
changetype: add
sAMAccountName: userA

dn: CN=Ab,OU=hinten,OU=Berlin,DC=domäne,DC=de
changetype: add
sAMAccountName: userB

for /f "tokens=2 delims= " %%a in ('find "sAMAccountName:" ExportUsers.ldf ') do (echo %%a>> userlistall.txt)  

UserA
UserB

UserA
UserB
UserC

UserC

IF EXIST gesperrt.txt for /f %%x in (%userinfo%\%druckport%\gesperrt.txt) DO call :userf %%x
Goto:eof
:userf
	for /f "skip=2 tokens=1 delims= " %%a in ('find /V "%1" userlistall.txt') do (echo %%a >> userlist.txt)  
goto :eof

UserA
UserB

dumpel -f d:\drucker.log -m print -t -s \\Druckserver -l System -e 10 -format s -d 10

44	VE.PDF	UserA	Canon iR C3200 PCL5c	IP_172.22.44.71	481437	1	
46	VE.PDF	UserA	Canon iR C3200 PCL5c	IP_172.22.44.71	93056	1	
48	VEpdf	UserA	Canon iR C3200 PCL5c	IP_172.22.44.71	142196	1	
50	VE_Ban.pdf UserA	Canon iR C3200 PCL5c	IP_172.22.44.71	139116	1
4 Microsoft PowerPoint - 20060201_.ppt	UserB	Canon iR C3200 PCL5c	IP_172.22.44.71 50997	1
58	VE_Ban1.pdf UserA	Canon iR C3200 PCL5c	IP_172.22.44.88	139116	1

for /f "tokens=3,8 delims= " %%a in (drucker.log) do (echo %%a;%%b>> Logdatei.txt)   

find "IP_172.22.44.71" druck.log > druckport  

44	VE.PDF	UserA	Canon iR C3200 PCL5c	IP_172.22.44.71	481437	1	
46	VE.PDF	UserA	Canon iR C3200 PCL5c	IP_172.22.44.71	93056	1	
48	VEpdf	UserA	Canon iR C3200 PCL5c	IP_172.22.44.71	142196	1	
50	VE_Ban.pdf UserA	Canon iR C3200 PCL5c	IP_172.22.44.71	139116	1
4 Microsoft PowerPoint - 20060201_.ppt	UserB	Canon iR C3200 PCL5c	IP_172.22.44.71 50997	1

find "userA" drucker.log > userA  

44	VE.PDF	UserA	Canon iR C3200 PCL5c	IP_172.22.44.71	481437	1	
46	VE.PDF	UserA	Canon iR C3200 PCL5c	IP_172.22.44.71	93056	1	
48	VEpdf	UserA	Canon iR C3200 PCL5c	IP_172.22.44.71	142196	1	
50	VE_Ban.pdf UserA	Canon iR C3200 PCL5c	IP_172.22.44.71	139116	1

SED -e "s/^.*IP_172.22.44.71 /SET /p" -e "d" <userA > userA2  

SET 481437	1	
SET 93056	1	
SET 142196	1	
SET 139116	1

for /f "tokens=1,2,3 delims= " %%a in (userA2) DO (echo %%c >>userA3)  

1
1
1
1

for /f "tokens=1,2,3 delims= " %%a in ('find "userA" drucker.log^|SED -e "s/^.*IP_172.22.44.71 /SET /p" -e "d"') DO (echo %%c >> userA)  

REM Kontingent festlegen
set kontigent=100
for /f %%a in (userA) DO call :inner %%a
	:inner
		REM Hochzählen bedeutet zahl=zahl+%1
		Set /a "Zahl+=%1"  
		REM Infos fuer Späteres KIx auslesen erzeugen
		echo %user% %zahl% > %userinfo%\%druckport%\%user%

REM Abbruchbedingung eingefügt, damit Schleife nicht unnötig lang 
REM durchgelaufen wird
		
IF %abbruch%==-1 goto :endin

		REM Falls Kontigent überschritten wird die Subroutine Abfertigen aufgerufen		
		IF %kontingent% LEQ %Zahl% call :abfertigen
		
		:endin

goto :eof

echo %user% >> %userinfo%\%druckport%\gesperrt.txt

net send %user% Kontigent erschöpft

subinacl /printer %printer% /deny=domäne\%user%=F

Net group gruppenname %user% /add 

blat -installSMTP 172.22.44.xxx drucker@domaene.de
blat zuviel.txt -to %user%@domaene.de -bc admin@domaene.de -s "Kontingentüberschreitung auf Drucker XYZ"  

In der zuviel.txt Datei liegt der Textbody der zu versenden ist.

for /f %%x in (userlist.txt) do (set user=%%x && call :sua)
:eof
:sua
.... Mach was.....
:eof

REM Druckkontigent V 0.02 Datum:10.02.06

REm Verzeichnisse vorbereiten
	
	set stamm=d:\scripte\drucker
	set temp1=%stamm%\temp1
	set temp2=%stamm%\temp2
	set logpfad=%stamm%\log
	set userinfo=%stamm%\user
	md %temp1%
	md %temp2%
	md %logpfad%
	md %userinfo%
	del %logpfad%\userlist.txt

REM Kontigent setzen
	set kontingent=100

REM Variablen setzen fuer AD
	REM Domänencontroller
	set domainc=Server-DC
	REM Domänenname
	set dc1=domaene
	set dc2=de
	REM OU Informationen
	set ou1=Berlin
	set ou2=User

REm Variablen fuer Drucker setzen
	REM Druckerport
	set druckport=hplj4100
	REM Drucker UNC
	set printer=\\Printserver\pr-hplj4100
	REM Printserver (wo liegt die Logdatei)
	set server=\\Printserver
REM -------------------------------------

getalldatetimevar.cmd /s

REM Aufspaltung in Main und Subroutinen 
call :main
goto :end


REM -------------------------------------
REM Subroutinen
:main
	md %userinfo%\%druckport%

	REM Jetzt gehts Los

	REM Auslesen der Tage seit MOnatsbeginn wird benötigt für DUmpel
	REM Noch zu machen
	
	REM Auslesen der Benutzer für Filter
	ldifde -f %logpfad%\ExportUsers.ldf -s "%domainc%" -d "ou=%ou2%,ou=%ou1%,dc=%dc1%,dc=%dc2%" -p subtree -r "(objectClass=person)" -l "SamAccountName" >> %logpfad%\log.txt  
	REM Die Ausgabe muß nach Accountnamen gefilter werden
	find "sAMAccountName:" %logpfad%\ExportUsers.ldf > %logpfad%\userlist.tmp  
	REM AUschneiden der ersten 2 Zeilen die durch find reinkommen
	for /f "skip=2 tokens=2 delims= " %%a in (%logpfad%\userlist.tmp) do (echo %%a>> %logpfad%\userlist.txt)  
	del %logpfad%\userlist.tmp
	del ldif.log
	del %logpfad%\ExportUsers.ldf
	REM Userlistall.txt enthält alle Nutzer aus der OU
	copy %logpfad%\userlist.txt %logpfad%\userlistall.txt
	
	REM Rausfiltern der bereits gesperrten User (siehe Subroutinen TEil)
	REM Wird benötigt um Benutzer nicht mehrmals zu benachrichtigen
	IF EXIST %userinfo%\%druckport%\gesperrt.txt for /f %%x in (%userinfo%\%druckport%\gesperrt.txt) DO call :userf %%x

	REM Druckprotokoll auswerten 
	REM Zur Zeit -d 10 für 10 Tage
	dumpel -f %logpfad%\druck.log -m print -c -s \\debe-as-01 -l system -e 10 -d %dd% -format s
	REM Drucker rausfiltern
	find "%druckport%" %logpfad%\druck.log > %logpfad%\%druckport%  
	del %logpfad%\druck.log 


	REM Berechnung durchführen (siehe Subroutinen Teil)	

	for /f %%x in (%logpfad%\userlist.txt) do (set user=%%x && call :rech)


	REM Statistik
	REM Ausgabe einer Liste über Druckaufkommen
	for /f %%x in (%logpfad%\userlistall.txt) do (set user=%%x && call :statistik)
goto :eof

REM -------------------------------------
:rech
	REM Ausgabe so filtern, dass nur noch Dokumentenzahl drinsteht
		find "%user%" %logpfad%\%druckport% > %temp1%\%user%  
		SED -e "s/^.*"%druckport%" /SET /p" -e "d" <%temp1%\%user% >%temp2%\%user%  
		del %temp1%\%user%
		REM In der Logdatei die Zeitenzahlen rausfiltern und in %temp1% ausgeben
		for /f "tokens=1,2,3 delims= " %%a in (%temp2%\%user%) DO (echo %%c >>%temp1%\%user%)   
		del %temp2%\%user%

	REM Addieren der Seitenzahlen
	set /A "zahl=0"  
	set /A "abbruch=0"		  
	for /f %%a in (%temp1%\%user%) DO call :inner %%a
	:inner
		Set /a "Zahl+=%1"  

		REM Infos fuer Späteres KIx auslesen erzeugen
		echo %user% %zahl% > %userinfo%\%druckport%\%user%

		REM Abbruchbedingung Eingefügt, damit Schleife nicht unnötig lang durchgelaufen wird
		IF %abbruch%==-1 goto :endin

		REM Falls Kontigent überschritten wird die Subroutine Abfertigen aufgerufen		
		IF %kontingent% LEQ %Zahl% call :abfertigen
		
		:endin

goto :eof

REM ENDE von RECH
REM -------------------------------------
REM gesperrte Nutzer rausfiltern	
:userf
	find /V "%1" %logpfad%\userlist.txt > %logpfad%\userlist.tmp  
	del %logpfad%\userlist.txt
	for /f "skip=2 tokens=1 delims= " %%a in (%logpfad%\userlist.tmp) do (echo %%a >> %logpfad%\userlist.txt)  
	del %logpfad%\userlist.tmp
goto :eof

REM -------------------------------------
REM Was soll mit den passieren die das Kontigent überschritten haben
:abfertigen
	set /a "abbruch=-1"  
	echo %user% >> %userinfo%\%druckport%\gesperrt.txt
	REM net send %user% Kontigent erschöpft
	REM Sperrung zur Sicherheit auskommentiert
	REM subinacl /printer %printer% /deny=%dc%\%user%=F
:goto :eof

REM -------------------------------------
REM Ausgabe der Statistik
:statistik
for /f "tokens=1,2 delims= " %%a in (%userinfo%\%druckport%\%user%) DO (IF NOT %%b==0 echo %%a %%b >> "%userinfo%\%druckport%.txt")  
:goto :eof
REM -------------------------------------
:end

net group Gruppenname %user% /delete

dumpel -f eventlog.log -m print -c -s \\Servername -l system -e 10 -d 1 
blat -installSMTP 172.22.44.4 servername@domane.de
IF EXIST eventlog.log blat eventlog.log -to admin@domaene.de -s "Infos über Event"