hubionmac.com » Softwareschmiede

Zählerstände von Druckern via SNMP auslesen

hubi — Sun, 06 Dec 2009 15:58:22 +0000

Bei der Arbeit hat es mich immer wieder genervt, wenn es alle 3-6 Monate hieß “Hubi, mach’ mal die Liste mit den Druckerzählerständen!”. Die Aktion kostet bei den 8 Druckern einiges an Zeit, man darf durch alle Räume rennen, ggf. auf dem Boden krabbeln und wie rufe ich noch mal die Zählerstände an diesem Modell ab? Dann das ganze Zeug in einer Excel-Tabelle pressen und sich anschließend fragen, was man eigentlich vorher machen wollt… NERV!
Aus diesem Umstand heraus habe ich mir einen kleinen SNMP-Reader gebastelt, der mir in

einer Sekunde eine Tabelle mit allen Zählerständen und Seriennummern der Netzwerk-Drucker erstellt. Da ich damit nur Ricoh Drucker (monochrom) und einen Oki Drucker (5400 farbe) auslesen muss, beschränkt sich meine Liste mit OIDs auch nur auf diese beiden Druckertypen. Wer andere Drucker damit abrufen möchte, kann sich gerne das Skript anpassen bzw. mir die entsprechenden OIDs mitteilen, da das Skript die OIDs von meiner Seite abruft.
Nach dem Abruf erstellt das Skript eine HTML-Seite mit den aktuellen Zählerständen, auf der man auch noch manuell Korrekturen oder Nacherfassungen vornehmen kann. Anschließend kann man sich das als PDF ausdrucken oder über einen mailto-link über sein Email-Programm als Tab-Tabelle verschicken (Email-Adresse wird in den Voreinstellungen festgelegt).

Wer also auch mal etwas Zeit sparen möchte oder mal sehen möchte wie es funktioniert…:

DOWNLOAD
SNMP Reader v06.12.2009 v.1.0
172.38 KB (524 hits)

Code zum markieren einmal anklicken Code im Skript-Editor öffnen

–© hubionmac.com 23.06.2008

– ließt seriennummern und Zählerstände von Druckern im LAN via SNMP aus.

– zur Zeit werden monochrome Ricoh-Drucker sowie Oki 5400 Farblaser unterstützt

– die besagten OIDs werden von hubionmac.com für das Skript zum Download bereit gestellt…

set emailtext to “Auslesedatumg IP Seriennummer Zählerstand Bezeichnung” & return

set thedate to do shell script “date \”+%Y-%m-%d\”"

set ips to {}

set typs to {}

set infos to {}

tell application “Finder” to set mypath_p to (POSIX path of (container of (path to me) as alias)) & “prefs.txt”

tell application “Finder” to set mypath_h to (POSIX path of (container of (path to me) as alias)) & “Zaehlerstaende ” & thedate & “.html”

set csv_txt_online to do shell script “curl http://hubionmac.com/downloads/oids.txt”

try

set v_nr_oids_online to paragraph 1 of csv_txt_online as integer

on error

set v_nr_oids_online to 0

end try

set csv_txt to csv_txt_online

set prefs to do shell script “cat ” & quoted form of (mypath_p as text)

set about_string to paragraph 1 of prefs

set mailto to paragraph 2 of prefs

repeat with i from 4 to count of every paragraph of prefs

set AppleScript‘s text item delimiters to “;”

set theline to paragraph i of prefs

if (count of every text item of theline) = 3 then

set ips to ips & text item 1 of theline

set typs to typs & text item 2 of theline

set infos to infos & text item 3 of theline

end if

set AppleScript‘s text item delimiters to “”

end repeat

set data_list to {}

repeat with i from 1 to (count of ips)

set theip to item i of ips

if theip as text = “111.111.111.111″ then

error “Bitte erst einmal die prefs.txt-Datei anpassen, ich habe keinen Schimmer, welche IPs die Drucker haben, die ich abfragen soll!”

exit repeat

end if

set thetype to item i of typs

set theinfo to item i of infos

set thecounter to 0

set oid_list to getOIDs(csv_txt, thetype)

if item 1 of item 1 of oid_list = “” then

set theserial to “–Typ unbekannt–”

set thecounter to “–Prefs überprüfen–”

set printer_data to {thedate, theip, theserial, thecounter, theinfo} as list

set data_list to data_list & {printer_data} as list

else

try

set theserial to last word of (do shell script “/usr/bin/snmpget -c public -v1 ” & theip & ” ” & item 1 of item 1 of oid_list)

repeat with oid_count_pointer from 1 to (count of every item of (item 2 of oid_list))

set bezeichnung to item oid_count_pointer of item 2 of oid_list

set current_OID to item oid_count_pointer of item 3 of oid_list

set thecounter to last word of (do shell script “/usr/bin/snmpget -c public -v1 ” & theip & ” ” & current_OID)

set printer_data to {thedate, theip, theserial, thecounter, (theinfo & “_” & bezeichnung as text)} as list

set data_list to data_list & {printer_data} as list

end repeat

on error

set printer_data to {thedate, theip, “FEHLER!”, “FEHLER!”, (theinfo)} as list

set data_list to data_list & {printer_data} as list

end try

end if

end repeat

set the clipboard to make_html_site(data_list, about_string, mailto)

do shell script “pbpaste|cat> ” & quoted form of mypath_h & “;open -a /Applications/Safari.app ” & quoted form of mypath_h

on make_html_site(data_list, about_string, mailto)

set html_start to “

”

set part1 to “

Druckerzählerstände vom ” & (do shell script “date \”+%Y-%m-%d\”") & “

” & make_html_conform(about_string) & “

”
set part2 to “”
repeat with datacell in data_list
set part2 to part2 & “
” & return
repeat with datavalue in datacell
set part2 to part2 & “
” & return

end repeat
set part2 to part2 & “
“
end repeat
set html_end to “
Auslesedatum IP Seriennummer Zählerstand Bezeichnung
” & make_html_conform(datavalue) & “

iVBORw0KGgoAAAANSUhEUgAAAEMAAABACAIAAADOPF2KAAAAGXRFWHRTb2Z0d2Fy
ZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAABdBJREFUeNrsmntMW3UUx9tSWuiDtqx0
LaMtUFh5DmEEBWbdGG4iRiXZpluI+ofZkkWjxk00JiYuZm6LWTLxERf9w2B02YbG
LGyRx3QGCYIwgY0xgTLGyxZoS6Gl7W2ph9QoQntvf7e3j5ieP5om/d3b3+eec37f
c36/S3e73bT/hdGjJFGSKEmUJEridC3bnYsObFFvvmW2TrjdLvPyFDs2gc3ks5h8
ES9dxFXFMrlxsQI6PSYSSTCnZdZ8e8rQNaZvm5hrt9rncAaL+Vmpkgq5eIdU+IA4
ITtSSGDStycuaHUtWl2z02VDulbAUaikezNk1erkp8JJsrKCdY18eOv+NzPGnkBm
wIyJAxcVq45myqrDQHJP/+P1gbcgnGg0atKMxeTlyA88kvtuQnxKiEgwl7Vj6Ez7
0EnwCeXrj4ineqywPkNaFXQSi0137eZLdyYvB28xhWDbmXuiVH08iCSGpeErv714
f/bnEIhDqfpYRf77DDqTehIQh8udB6bmO0OmdA9ufW1PwVmKSWwOI2CM6VpDLNuw
AGhy3qGMBHS6qefIzbEvQl+AQHTVPPR1Tsp+vwYTjgCGsGCsSpbb2dL3+vziXQpI
jEujoBthrAshP1v7j1MQXd/9eghUnPQ8itIPe2LDaNF2DJ2GTzJCQWc8XdKQpzhE
ngSqqYsdNVAdksOo1bSkba5cu2zUX1PBJ4lbQa35wq52KKLJRBdIeM/op6QxgGEt
BlgcSwQuIne3WfNg/3gDyTyZNHSO6a9HSBflWnEMTl6yYSYyJNo/m+3YQuS0hJPz
HTpTHzKJxa6HnimimltofsZnb+CU3t5JTEvaGWNvpHXq0ErYfIeJdxLdwoBrxR5p
JNPGbijG0UimDIFWiuBVL+0HNz3A3QIcvfdeNs+ZhwIk8UhhWVbdOqEEPdHqW72S
+6ObsBxvTX4SQRnPNSmgTMC/KehDubpOJtruCwM+wQlC3qofYBgMhktwbtg28CZc
RVg0VG//DMEn+Ns8HoyXq0Z9zSyNRoMiBRQdYDxPGjoC8IavSXhsd/4pGIa/v7Hs
mEfLE8L9HnjG+A8Yfl3nLn/am3VlwUazY4uoyugm7L0Ip7WOhFz5uGE/xIJKQse/
I8QA4TYXxPS6xQo6NpzxUI/0as8Tbiah1cKnvuViLivpjF8be56gWsaMMEv4vjHq
kNau7JR9+0ovIZDUX003WcZIxwBMF5J7Y9f6eWtxgBuWxaqjVUUfI0RXIi8jkP+D
LPIaJ4QJTWgCrhItTzbx1bSItM2CAjQSmag4AjEg3RP5mWgkEkEefqsZFpOLyzks
MRqJkJu2JbEk0kgUYg07lo9GEs9KTJNURlho8ZVJGhyh89n9ZsiquGwJ6T/2utqS
21jxGGBIhYVk+ni4TCXdG8hCDIr+z9ThC5S6hBLus/eIictVHMRPXbz9rmlDd8ON
CodzKRCJ9Cg6uCgQh8jFO2o1zcyYeJIkYD/8/mrX8LnwZkgMg7W/rDFT9gTJ/S6P
PZz9toCjDC/JNuVzhBjEJBx20qMFH8BTCRcGVBs78074M5L41CFrS01J5ithwYhn
bXq86BNenMyfwX6daUEL+X3384MTF0OJwWDEVhXWF6Uf8XO8v+eMsII1dj4zMnM1
NBh0OmNX3nvlWQhHNwhnv8sOQ1PP4TuTjcFfrNiAUao+hgaPdB4PjWRbf133yEfB
w4CsqNx2Jl9Zi+xG1Hck3O6VvvEvgcdqn6W+RkzS7Ck467U9pp7k77bbcq/j7umB
8a8CqQD+0wxylOVZdeAKqBRJplYgb0XNGHt/GTqp1bXYMTPpmwi5qbnyZ8vUb+Bv
oAWXxGPDM01/TF/RLfRNG7og9vy8isMWJyeWQCDlyQ9S8r4aZW8PWmw6gJkydI3r
f9IvDFjseq8SIeSkwuxTJRVSYYFEkI9fFIaH5N96HjPZHCZY5czWCfgOykBbPX91
CjgKqH1YTC60cRQCBJEkXBYliZIEz/4SYAC468tf3cgrrAAAAABJRU5ErkJggg==
\”>
iVBORw0KGgoAAAANSUhEUgAAALcAAABACAIAAADXm3FpAAAAGXRFWHRTb2Z0d2Fy
ZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAABm5JREFUeNrsXd9rXEUU7qab1GClbsX+
IME22YeEYCu0RZIGI7RVivqiaUTaCD7pa18k/RMS+iLUF6UPhapIQhVBG3FXwUIa
ESrYiiYP3RpNqGmpqZg2Nm2Nnz06DHd+3Mm9d5vZe8/HEpa9c+fOnPnmnO/MzG5y
S0tLqxgMK+rYBAxmCYNZwmCWMJglDGYJg1nCyBTy9ss//PLB9z+fmPn921u3/2Bj
pRJr6tc1rX/yia2vPf7YQVOZnGlVDbQ49c0rF3/7nO2YERQ37e/t/BCkcWXJ3b8X
3z/z7NTVr9l2mcKWR58+1PPF6roGJ10yPnmUKZJBYNAx9E7qFbFmbGKQTZZNYOhV
DVqnVayLd+bZXtkEhh4ECGdJZbbExnJER3Nfb9dwf09pc2FnajqlEkCTCSPvda9x
d/tAd9vAAw0Fl8JnJ4a+vHAkNdYsPNgKitD7/kLp2Gjxr8W5FPTr8ty5cF9y89ZV
x+owgfZuG3SkCFEqTXPu4bWt4j2MkJqu3VAIUKdNgx2rc+dHnFsY9xl37i44ZcJV
DeQ8DDWHfLLVQXks3NbH5sb6AiLOjtbXWzbuuz5f+XF65LvKuzwAmWMJlClYYikw
d6Py/M53IPrwAlcuzZbxCY+B/0gy4qjaWGWJSf0xssKS+ECaoGYKELwIVfA9dlGM
AnBRMctUCXhuTWdAeX+a0t9TIipAr3x27g35czKxabkFihiBjLKnU+MvQ/FEKyMA
8aRV2Xh6qL9UqSnaH+hXYHpgJkC6BVwvnmhag4Gt0M7ALQJQhzDXclvrO0vQZ+Et
0HkYlHooexfYUcsSlBcJNt5rGeBSRlwFn/Q8Xv7SGWoT7Zf7FcDebYOqs2y5RxSt
1INHBPlCHfPbp4spjDg+LKtYHh1h6QzZnEvllsRQ+7mLpEswtnrKEjH1MfNEwmxP
oJKC3VUERj0UlStlUSHemEIAuqZ9Li0cxDFj2nRJQEaQMoD5EMuJKCKRtgfsaP4D
Bm3dsA+Diieifq3P+OnXEZfUHbUhglA7Udt7Z55BrFSpgA7SKKJ3iIBHP1mvRuED
ncMUWexbYKgWlcgOCU6IQif+ohm4emm2nDaWCMC+mH8kI6jPFLABkxKMgO62ARpI
mrgYkjg2xdBSPS33xMHx8i7oZVU0iJ1CFL58uqjyD21Ax6nLaN7Y5JBpYuCS6mhp
UpGwAyPBwsjzqgbO0ItYLgfaZBNa2XPAo8RX4tqaLQLFpDNk6lgkkTaQBWgXJxX3
nSXCkVCMl+O9b00VSlNOoBwXl7UqleIgr5fYyEFbQrLnp7gO21EY9q3NcO/kEr46
/69mErrE5d492wdVQmD2e7KF7ilLYFztkobPG4QkWilmQbEu617a2/K2a55GHNP6
QU0gTu5q96/MklQh2UiB+IWEbgWPS+Z5RKuB/p4SIibGlf6GlhdrQn6CWZJkRIAc
geQ80Dkstp86mvtcNIrn52w44iSpuOE2kJSNTQ7JGsVnWcos8UVxp+BsPUecqjiV
xvoCBR3I2N6u4R2z5cqVMpRHjX5hh1lSFdDOnDiCRKdnIqyjpDDimA5DCFyfr8iT
KamJJbt6UwpqT01l8ZhgEks5jqxROOL8t0RtWfyhLICMhfdJLRPBk2Oa0ujS0cBA
zbhqFweIEUJm0hcWtftEYHlSyQhELhopH2OLswtdSywRS9QWlhwv70p8DRH2PTZa
JB2ABtjbYPIldPiPjseCZ3SQQEXomVl3UNq86v9jth19SxairOzXl+6rLqEIXY1J
QykoXjB3nJwCg0HeyFQAl5JiCbWZWL75uYv0HSVTYVxyXKDzTpdEaLTplqT67xIR
7JtE9hqqNE4ruEcTkSXqz2pZ+rass6iWs//yORK8iexv6DyiPTzZ22x5Op2kDGgL
0X7tXfKhecuRRNO5V0HNwD6Oy6NdymiRy60OfqL++t5bnzb/uTCzIpyFX7UcIfYT
FCbsY0BfjU58Gd7x0aFlAniosenwC9MhLBk5+9LEzMe85pFZtDe92Lf7o5CIs3XD
HrZUlqESQMOS7VtebcivZWNlExh6ECCcJWvq13W1vcn2yiYw9OrPR+sz4e72I82P
dLHJsgYMOobedb0EyfDBp0aLm/az4bIDDDcGXbsOkrP/D9DzUycvTJ2cvjbOvxOc
YiECFxLxf1owGCERh8FgljCYJQxmCYNZwmCWMJglDGYJI7v4R4ABAA4hc+1s4rMo
AAAAAElFTkSuQmCC
\”>
iVBORw0KGgoAAAANSUhEUgAAALcAAABACAIAAADXm3FpAAAAGXRFWHRTb2Z0d2Fy
ZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAACUtJREFUeNrsXd1vVEUUn1m3pa2khdQS
KrYhK9oofYECJvAiBAxECH0B1Af1qTzoe/kTIDyamNCQmBATI32poIKi8GAkSto0
mhIllGootgVBaKOFftDxtHfv3fk483F3t7vd7pwUevfuzL1nzvzmnDNnZk4pY4x4
8mSkhBeBJ48STx4lnjxKPHmUePIo8eRR4qmsKGn+enDkq9/+OjP26JupmXFtIUoI
467hEwt+pz9G37LgRlQ+vGBhwcxNpYxK0tMYVxX+BTwIT1YrEowBtLDSUkMVc0Wk
GM1UyIiO6F8UFVMfKwpc+17ufmWytnHV3lea3t3Q+Ka2h3VRtenZf7/t7/jz78+k
N/FMSy00MSd+q8pCeLICO8Kc+8OAYBWC4R1rl0csUEzujOOU6HqUFxcJxxIPZO5C
vUeITbYUG41EGLQCn4oQ1je888amU5XJla4omWMz534+dOefL4iVRSPGpUYi0qSi
4mHaIYsrABRDZpCF2s7QrzLcpZ7GGisxozacakY5UwQivJGKsjOTIjdGMCDqx3xz
ffv+rWefSVQ4+SW/DJ3OQITKw077EzabhcWIWIAodzJVuFqMCVWECyY+nAmF1epI
AUYYwzjRVReZJJrGEpU3seEyJ5qS8huZpo02zgn/Xv7tDOmR+Z5d6OXhBz2//nHa
SZeArfnkcsPM7BPUlvtlnyVCa+raVlSsnpgcGp8cyuU5kkKtTFa/v+ueZHeSmMd6
fh4iorVL/44PkbqaVG1NKlaVe+N9UzMPy63XQVCbU52tzR3Q9oHbXVdvHNOVBHC0
b7sEKAk+9t06YSjsipSwr6dnHw+OfPlq81sWlNy+/33Gelm9ZT1JjYlFeWh5qUHk
yI5ekFggt7YXO+FCJwFAEi9VKDw41g1DKw9AWaDh+99JKEH8krvjVxA/c8Ehp3He
KzUmFkHLs65bigTqNoAIL71YAzKn1zPB7b07/oPde/1vagjxq2k25iYXytHclhap
FvZJwW1upBkmp2/ZUTI3p8wbSUEhAvi40H+4rFwTsBdgZHkJXOw/XKB3U+73wvXM
06cOsVclxkDzpFFAFtD4slIS7gReyPXhLjA9MDxydTKy0CHctepXJE2qhylxIZar
IDxEzEq0CPKhdtciYQcaDfHlIyXLkRgzKRe9LhEBJYSKlwBQgmiStRhM59D7Tc/t
Vm/Gik25RIDcQz4oP4U0OvK6LHO0OERYccloEVZ8fOzddLbOLUYHUu65tofvKphb
bm85rkOYY4QGnhAEM6xzFni7uac3NB7a1XpKxw+gHJ5QOIvDtIrEZnFYZtWDuSyb
LjLBsKtzDuMCpKSQw4a1hwxKyKXvgQGXYkEAoy3VadVJBn7gXaiaWWyLg0bFElqf
N1QktGT9kjW1bbECMNZemYjjWja4WcaiE1WvqIPFwecyFFl3zlolwDjTdQn0JWj+
wdHu3NsPKv1ITe/g2PyjgpURGL4GKOzbdPbmaPfE46FgJQXlDaxAa1OHtfsDtXdk
Ry80ZGr2IZgP1frAKwDHwOSS8WO1/Zs0TaB5jzVPEAkWd8x6GHrrzPiLLu6kLgAD
DwEPBoxO8DNvUFKdn/+4BbX0wFLkskRGqrY6hbop0N86v1h6JkAE2EhbqBZyof+w
BH3AItwk/WmGgYEiIibdvQvrMMx1JhwUZcI2lbzsGahyU8KOy8h9QydQMAUKSeo2
XR9Ab4HrKvW9o/9h8F6vDwvaCDSQOVIyMNxVdLsT+BUx/JL07DesnS/nFcRhHYug
IRzngUs5it9Uv5uUBFHBF2GO8RIabfhz3gkci+ZNe7PWtAOM8uKUFIB4C6VCpDAz
lLzMcSjqzFrjJVT1Z/M6x0F9w5Kj916/VRKzGIsqEeMl8SP0FIm6eOJ1yTJpCeXC
H1hHJ3Qeb8Zd9fjQUKlYRpcZDjW6FEm7Q0PFE1FlDBqYVG9s6gjiv4Nj3TCPbX2A
O1hLKxBinQRL/1M3lETgYKEPmz4qV956pX3bpQgT4JzCNb91SKLtk8dznE4XOFjC
+7Ou8RJh6zwfp/eOiGPIZLZk9tpJ5sYpXiKhSz2c52lZUWg0iH7tX++9MnlW7XXJ
8oaK7I9aUEKRE8zUY6RsyE2XKIezs5sSq+HzUg8wlMm2fhpjjmN0Z1xo4HZXbXWK
D8ZvbzleVbHautg7UZRNwg509caxna2noo8wK0a3BJCFNd6NTR2LxAYIVloBAMFe
mTma5SZIpuSVcYyXCBVYTmIN1majpXxeymZBXBk4utRQAlwBLIJzeC+tPTS/f2VH
b1FUWs+1PcH+X4BLcIYy4gSwAqKLgRiKpcawWhxmMFfZuiagG/qGTriXh5YvzdWy
YE17cLT7crFBDDgATqJxGBEgxryDB+lXlt69qksflcDtC1N8X5rreZyJmEYkRycg
bvUsyseqsng+jao2QMfUxczzkOn3LM/jRJlhcttAAI0B1LsIK9hDhG4B5G/CgDZs
VYGS/MozfDQvu4Cq43lz2U8P6sTFfwr2R1p1j7QLznFTnNpSkvXpOH3nIlluPvqa
Uuc5UuEpVnaX4OyM+/GWwMwVMYFK0LoszuNEp4TiMo/m6/pwH7Og5OOLdI6Zcgp6
Wm5TX9FpBSXxgYgSxOLUVKbwPfSelitExNH/7IqU3S9pXLUzsy3F46NsiIXTlLUA
ACtK1tXvJGJa3wLnL/FUFH1Cw1nxC/UOKHl53cHKZJX3RMpLjYTWoyJZ1bLuoB0l
lcmVm1Mn+SNblDtv4Wl5Oiah9diSOlmhpI/W5Y6e7fnpwMjDi3JqajU1McG/QnIj
UyWJtjHZvJxXx5CMRcMk/xwhnbcua770aoIkkbYkrdQzqQab8IzqSl2n/EKUIB2D
JfvXdVxw5/nVe9tfO5dwzB2doMn9W7rXN7yd2T2PbWdC85pQdJbFsZnZqsItFfHh
f8b3E1VSsqP9F+lMhguQDyxmXssyG4PlJOTo4QPD1I8qbqAiFia6elTFC88JE5nB
JcsJkHFL92K2+8jtiAaw+moQAnT3ga3dKkSI4a8VBHRz5Pzvdz4dfXR+evaxDvKM
2Ucer2Asg0MEvDDQuSOsFB24xJSTXuZBKqBUN/GJNgTNqU80qfixZPDSH0TA0qma
ZpzI0q7DQarKZHXjqgNZ/k0LT54sFseTJ48STx4lnjxKPHmUePIo8eRR4smjxFP5
0v8CDAAlZSrE22NXGwAAAABJRU5ErkJggg==
\”>
”

return html_start & part1 & part2 & html_end as text
end make_html_site
on make_html_conform(v)
set special_chars to {{“&”, “&”}, {“<”, “<”}, {“>”, “>”}, {“ü”, “ü”}, {“ä”, “ä”}, {“ö”, “ö”}}
repeat with k in special_chars
set v to replace_chars(v, (item 1 of k), (item 2 of k))
end repeat
return v
end make_html_conform
on replace_chars(this_text, search_string, replacement_string)
if this_text contains the search_string then
set AppleScript‘s text item delimiters to the search_string
set the item_list to every text item of this_text
set AppleScript‘s text item delimiters to the replacement_string
set this_text to the item_list as string
set AppleScript‘s text item delimiters to “”
end if
return this_text
end replace_chars
on getOIDs(csv_txt, PrinterType)

set myoutput to {{“”}, {}, {}}
repeat with theline in every paragraph of csv_txt
if theline starts with (PrinterType & “_#” as text) then
set AppleScript‘s text item delimiters to “;”
set item 1 of item 1 of myoutput to text item 2 of theline
set AppleScript‘s text item delimiters to “”
else if theline starts with (PrinterType & “_” as text) and theline does not start with (PrinterType & “_#” as text) then
set AppleScript‘s text item delimiters to “;”
set temp1 to text item 1 of theline
set temp2 to text item 2 of theline
set AppleScript‘s text item delimiters to “_”
set temp3 to text item 2 of temp1
set AppleScript‘s text item delimiters to “”
set item 2 of myoutput to item 2 of myoutput & temp3
set item 3 of myoutput to item 3 of myoutput & temp2
end if

end repeat
return myoutput
end getOIDs

Auslesedatum	IP	Seriennummer	Zählerstand	Bezeichnung
” & make_html_conform(datavalue) & “

iTunes:AppleScript -> Album Playlisten erstellen

hubi — Sat, 07 Feb 2009 05:02:26 +0000

Was tut das Skript?:

Es schnappt sich die Auswahl oder den Inhalt der Library und erstellt von allen betroffenen Alben Wiedergabelisten…. na ja, die Funktionalität ist sich sicherlich noch ausbaufähig…. hm?

Warum überhaupt so ein Skript?

Deshalb und weil… ich mal wieder schlafen kann =)

Code zum markieren einmal anklicken

property FolderPlaylistName : “Album Playlists”

global min_count_for_album_playlist

set min_count_for_album_playlist to text returned of (display dialog “Only show Procces Albums with more than x Songs” default answer “5″) as integer

set albumlist to get_Album_list(button returned of (display dialog “Process Library or Selection?” buttons {“Library”, “Selection”} default button {“Selection”}))

set FolderPlaylist to makeFolderPlaylist(FolderPlaylistName)

do_lists(albumlist, FolderPlaylist)

on do_lists(albumlist, FolderPlaylist)

tell application “iTunes”

repeat with myalbum in albumlist

set albumcount to (count of (every track whose album = (myalbum as text)))

if albumcount ≥ min_count_for_album_playlist then

set these_tracks_to_add to (every track whose album = myalbum)

set artist_list to {artist of (item 1 of these_tracks_to_add)}

repeat with this_track_to_add in these_tracks_to_add

if artist_list contains (artist of this_track_to_add) then

set is_various to false

else

set is_various to true

exit repeat

end if

end repeat

if is_various = true then

set playlist_name to “Various – “ & myalbum

else

set playlist_name to artist_list & ” – “ & myalbum as text

end if

set new_playlist to “”

repeat with this_p in (every playlist of source 1)

if (exists parent of this_p) and (parent of this_p is FolderPlaylist) and (name of this_p = playlist_name) then

set new_playlist to this_p

exit repeat

end if

end repeat

if new_playlist ≠ “” then

delete every track of new_playlist

else

set new_playlist to make new playlist with properties {name:playlist_name} at FolderPlaylist

end if

repeat with this_track_to_add in these_tracks_to_add

try

set tmp to location of this_track_to_add

duplicate this_track_to_add to new_playlist

end try

end repeat

end if

end repeat

end tell

end do_lists

on makeFolderPlaylist(FolderPlaylistName)

tell application “iTunes”

tell source 1

if (count of every folder playlist) > 0 then

if (name of every folder playlist) does not contain FolderPlaylistName then

return make new folder playlist with properties {name:FolderPlaylistName}

else

return folder playlist FolderPlaylistName

end if

else

return make new folder playlist with properties {name:FolderPlaylistName}

end if

end tell

end makeFolderPlaylist

on get_Album_list(mycommand)

tell application “iTunes”

set albumlist to {}

if mycommand = “Library” then

repeat with i from 1 to (count of every track of library playlist 1 of source 1)

if albumlist does not contain (album of track i of library playlist 1 of source 1) then

set albumlist to albumlist & {album of track i of library playlist 1 of source 1}

end if

end repeat

else if mycommand = “selection” then

set these_tracks to selection of browser window 1

if these_tracks = {} then error “Hey, nothing selected!”

repeat with this_track in these_tracks

if albumlist does not contain (album of this_track) then

set albumlist to albumlist & {album of this_track}

end if

end repeat

end if

return albumlist

end tell

end get_Album_list

Desktop Hintergrund über Skript Droplet ändern

hubi — Sun, 18 Jan 2009 12:15:50 +0000

Na ja… so kann man (wenn nötig) eben recht komfortabel und schnell den Bildschirmhintergrund über ein Droplet im Dock ändern… wer es braucht:

und der Code

on open these

if (count of these) = 1 then

set display_IDs to get_display_id()

repeat with display_ID in display_IDs

if folder_check(these) = true then

do_folder(these, display_ID)

else

do_file(these, display_ID)

end if

end repeat

else

error “entweder ein Bild oder einen Ordner mit Bilder auf das Skript ziehen!”

end if

end open

on do_folder(these, display_ID)

tell application “Finder” to set these to these as alias

set thelist to {“Nach definierter Zeit”, “Nach Login”, “Nach Aufwachen”}

tell me to activate

set pic_roation to choose from list thelist with prompt “Wann sollen die Bilder gewechselt werden?” default items item 1 of thelist

if pic_roation as text = (item 1 of thelist) as text then

set pic_rotation to 1

else if pic_roation as text = (item 2 of thelist) as text then

set pic_rotation to 2

else

set pic_rotation to 3

end if

if pic_rotation = 1 then

set dialog_zusatz to “”

repeat until 1 = 2

set pic_interval to text returned of (display dialog “Nach wieviel Sekund soll das Bild geändert werden?” & dialog_zusatz default answer “5″)

try

set pic_interval to pic_interval as real

exit repeat

on error

set dialog_zusatz to return & return & pic_interval & ” ist ist doch kein Zahl!”

end try

end repeat

end if

set thelist to {“Durcheinander”, “Der Reihe nach”}

tell me to activate

set pic_order to choose from list thelist with prompt “Die Reihenfolge?” default items item 1 of thelist

if pic_order as text = (item 1 of thelist) as text then

set pic_order to true

else

set pic_order to false

end if

tell application “System Events”

tell desktop display_ID

try

set pictures folder to these

set picture rotation to pic_rotation

set change interval to pic_interval

set random order to pic_order

end try

end tell

end do_folder

on do_file(these, display_ID)

tell application “Finder” to set these to these as alias

tell application “System Events”

tell desktop display_ID

try

set picture to these

set picture rotation to 0

on error msg

error msg

end try

end tell

end do_file

on get_display_id()

tell application “System Events”

set desktop_count to (count of every desktop)

end tell

if desktop_count > 1 then

set display_ID to {}

set thelist to {}

repeat with i from 1 to desktop_count

tell application “System Events” to set thelist to thelist & {i & “:” & (display name of desktop i) as text}

end repeat

tell me to activate

set ids to choose from list thelist with prompt “Desktop Hintergrund auf welchem Display ändern?” default items item 1 of thelist with multiple selections allowed

repeat with id in ids

set display_ID to display_ID & ((character 1 of (id as text)) as integer)

end repeat

else

return {display_ID}

end if

return display_ID

end get_display_id

on folder_check(these)

tell application “Finder”

set folderkind to kind of folder 1 of startup disk

if kind of item 1 of these = folderkind then

return true

else

return false

end if

end tell

end folder_check

Textschnippsel automatisch einfügen

hubi — Fri, 03 Oct 2008 23:12:18 +0000

Ich schreibe täglich bei der Arbeit immer wieder das gleiche “Hardwaretest i.O.” oder “Kunden am nicht erreicht” und das mal im WebBrowser, oder in irgend einer anderen Anwendung. Das kostet Zeit und und Apps die ich kenne, die so etwas über ShortCuts erledigen könnten sind entweder kostenpflichtig oder funktionieren nicht immer so richtig, zumindest nicht

in jeder Anwendung (insbesondere Java-Anwendungen scheinen ein Problem darzustellen).
Nun, AppleScript scheint auch hier ein Lösung parat zu haben und so ist type4me blafasel entstanden.
Damit lassen sich ausgewählte Text-Schnipsel aus einer Text Datei in so gut wie jedem Programm einfügen.

MD5 Prüfsumme schnell überprüfen

hubi — Fri, 05 Sep 2008 02:34:08 +0000

Man hat unter Mac OS X md5 direkt im Zugriff über das Terminal. Damit ich aber beim Überprüfen der Prüfsumme nicht immer erst die Datei in das Terminal ziehen muss und dann von Hand vergleiche, habe ich ein kleines AppleScript-Programm geschrieben (Ja, wir war mal wieder langweilig). Man kopiert die korrekte MD5-Prüfsumme einfach in die Zwischenablage, wählt die entsprechende Datei im Finder aus und startet das Skript. Wahlweise kann man die Datei auf das Skript drauf-ziehen.

Wenn man gleich mehrere Datein prüfen möchte, kann man dies auch tuen, für jede erscheint dann ein separater Dialog für die Eingabe der validen Prüfsumme. Je nach Ergebnis erhält man dann eine entsprechende Meldung. Zumindest geht so das Überprüfen der Prüfsummen recht leicht von der Hand und ist so recht unkompliziert möglich.

Noch einfacher haben es FireFox-Nutzer, die können sich einfach ein Plug-In laden, dass den Job erledigt =)

DOWNLOAD
MD5_Quick_Check v.1.0
142.05 KB (252 hits)md5:7eb9cfc763e5e64f671d15b7957e2c81 ;-)


iVBORw0KGgoAAAANSUhEUgAAAEMAAABACAIAAADOPF2KAAAAGXRFWHRTb2Z0d2Fy ZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAABdBJREFUeNrsmntMW3UUx9tSWuiDtqx0 LaMtUFh5DmEEBWbdGG4iRiXZpluI+ofZkkWjxk00JiYuZm6LWTLxERf9w2B02YbG LGyRx3QGCYIwgY0xgTLGyxZoS6Gl7W2ph9QoQntvf7e3j5ieP5om/d3b3+eec37f c36/S3e73bT/hdGjJFGSKEmUJEridC3bnYsObFFvvmW2TrjdLvPyFDs2gc3ks5h8 ES9dxFXFMrlxsQI6PSYSSTCnZdZ8e8rQNaZvm5hrt9rncAaL+Vmpkgq5eIdU+IA4 ITtSSGDStycuaHUtWl2z02VDulbAUaikezNk1erkp8JJsrKCdY18eOv+NzPGnkBm wIyJAxcVq45myqrDQHJP/+P1gbcgnGg0atKMxeTlyA88kvtuQnxKiEgwl7Vj6Ez7 0EnwCeXrj4ineqywPkNaFXQSi0137eZLdyYvB28xhWDbmXuiVH08iCSGpeErv714 f/bnEIhDqfpYRf77DDqTehIQh8udB6bmO0OmdA9ufW1PwVmKSWwOI2CM6VpDLNuw AGhy3qGMBHS6qefIzbEvQl+AQHTVPPR1Tsp+vwYTjgCGsGCsSpbb2dL3+vziXQpI jEujoBthrAshP1v7j1MQXd/9eghUnPQ8itIPe2LDaNF2DJ2GTzJCQWc8XdKQpzhE ngSqqYsdNVAdksOo1bSkba5cu2zUX1PBJ4lbQa35wq52KKLJRBdIeM/op6QxgGEt BlgcSwQuIne3WfNg/3gDyTyZNHSO6a9HSBflWnEMTl6yYSYyJNo/m+3YQuS0hJPz HTpTHzKJxa6HnimimltofsZnb+CU3t5JTEvaGWNvpHXq0ErYfIeJdxLdwoBrxR5p JNPGbijG0UimDIFWiuBVL+0HNz3A3QIcvfdeNs+ZhwIk8UhhWVbdOqEEPdHqW72S +6ObsBxvTX4SQRnPNSmgTMC/KehDubpOJtruCwM+wQlC3qofYBgMhktwbtg28CZc RVg0VG//DMEn+Ns8HoyXq0Z9zSyNRoMiBRQdYDxPGjoC8IavSXhsd/4pGIa/v7Hs mEfLE8L9HnjG+A8Yfl3nLn/am3VlwUazY4uoyugm7L0Ip7WOhFz5uGE/xIJKQse/ I8QA4TYXxPS6xQo6NpzxUI/0as8Tbiah1cKnvuViLivpjF8be56gWsaMMEv4vjHq kNau7JR9+0ovIZDUX003WcZIxwBMF5J7Y9f6eWtxgBuWxaqjVUUfI0RXIi8jkP+D LPIaJ4QJTWgCrhItTzbx1bSItM2CAjQSmag4AjEg3RP5mWgkEkEefqsZFpOLyzks MRqJkJu2JbEk0kgUYg07lo9GEs9KTJNURlho8ZVJGhyh89n9ZsiquGwJ6T/2utqS 21jxGGBIhYVk+ni4TCXdG8hCDIr+z9ThC5S6hBLus/eIictVHMRPXbz9rmlDd8ON CodzKRCJ9Cg6uCgQh8jFO2o1zcyYeJIkYD/8/mrX8LnwZkgMg7W/rDFT9gTJ/S6P PZz9toCjDC/JNuVzhBjEJBx20qMFH8BTCRcGVBs78074M5L41CFrS01J5ithwYhn bXq86BNenMyfwX6daUEL+X3384MTF0OJwWDEVhXWF6Uf8XO8v+eMsII1dj4zMnM1 NBh0OmNX3nvlWQhHNwhnv8sOQ1PP4TuTjcFfrNiAUao+hgaPdB4PjWRbf133yEfB w4CsqNx2Jl9Zi+xG1Hck3O6VvvEvgcdqn6W+RkzS7Ck467U9pp7k77bbcq/j7umB 8a8CqQD+0wxylOVZdeAKqBRJplYgb0XNGHt/GTqp1bXYMTPpmwi5qbnyZ8vUb+Bv oAWXxGPDM01/TF/RLfRNG7og9vy8isMWJyeWQCDlyQ9S8r4aZW8PWmw6gJkydI3r f9IvDFjseq8SIeSkwuxTJRVSYYFEkI9fFIaH5N96HjPZHCZY5czWCfgOykBbPX91 CjgKqH1YTC60cRQCBJEkXBYliZIEz/4SYAC468tf3cgrrAAAAABJRU5ErkJggg== \”>
iVBORw0KGgoAAAANSUhEUgAAALcAAABACAIAAADXm3FpAAAAGXRFWHRTb2Z0d2Fy ZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAABm5JREFUeNrsXd9rXEUU7qab1GClbsX+ IME22YeEYCu0RZIGI7RVivqiaUTaCD7pa18k/RMS+iLUF6UPhapIQhVBG3FXwUIa ESrYiiYP3RpNqGmpqZg2Nm2Nnz06DHd+3Mm9d5vZe8/HEpa9c+fOnPnmnO/MzG5y S0tLqxgMK+rYBAxmCYNZwmCWMJglDGYJg1nCyBTy9ss//PLB9z+fmPn921u3/2Bj pRJr6tc1rX/yia2vPf7YQVOZnGlVDbQ49c0rF3/7nO2YERQ37e/t/BCkcWXJ3b8X 3z/z7NTVr9l2mcKWR58+1PPF6roGJ10yPnmUKZJBYNAx9E7qFbFmbGKQTZZNYOhV DVqnVayLd+bZXtkEhh4ECGdJZbbExnJER3Nfb9dwf09pc2FnajqlEkCTCSPvda9x d/tAd9vAAw0Fl8JnJ4a+vHAkNdYsPNgKitD7/kLp2Gjxr8W5FPTr8ty5cF9y89ZV x+owgfZuG3SkCFEqTXPu4bWt4j2MkJqu3VAIUKdNgx2rc+dHnFsY9xl37i44ZcJV DeQ8DDWHfLLVQXks3NbH5sb6AiLOjtbXWzbuuz5f+XF65LvKuzwAmWMJlClYYikw d6Py/M53IPrwAlcuzZbxCY+B/0gy4qjaWGWJSf0xssKS+ECaoGYKELwIVfA9dlGM AnBRMctUCXhuTWdAeX+a0t9TIipAr3x27g35czKxabkFihiBjLKnU+MvQ/FEKyMA 8aRV2Xh6qL9UqSnaH+hXYHpgJkC6BVwvnmhag4Gt0M7ALQJQhzDXclvrO0vQZ+Et 0HkYlHooexfYUcsSlBcJNt5rGeBSRlwFn/Q8Xv7SGWoT7Zf7FcDebYOqs2y5RxSt 1INHBPlCHfPbp4spjDg+LKtYHh1h6QzZnEvllsRQ+7mLpEswtnrKEjH1MfNEwmxP oJKC3VUERj0UlStlUSHemEIAuqZ9Li0cxDFj2nRJQEaQMoD5EMuJKCKRtgfsaP4D Bm3dsA+Diieifq3P+OnXEZfUHbUhglA7Udt7Z55BrFSpgA7SKKJ3iIBHP1mvRuED ncMUWexbYKgWlcgOCU6IQif+ohm4emm2nDaWCMC+mH8kI6jPFLABkxKMgO62ARpI mrgYkjg2xdBSPS33xMHx8i7oZVU0iJ1CFL58uqjyD21Ax6nLaN7Y5JBpYuCS6mhp UpGwAyPBwsjzqgbO0ItYLgfaZBNa2XPAo8RX4tqaLQLFpDNk6lgkkTaQBWgXJxX3 nSXCkVCMl+O9b00VSlNOoBwXl7UqleIgr5fYyEFbQrLnp7gO21EY9q3NcO/kEr46 /69mErrE5d492wdVQmD2e7KF7ilLYFztkobPG4QkWilmQbEu617a2/K2a55GHNP6 QU0gTu5q96/MklQh2UiB+IWEbgWPS+Z5RKuB/p4SIibGlf6GlhdrQn6CWZJkRIAc geQ80Dkstp86mvtcNIrn52w44iSpuOE2kJSNTQ7JGsVnWcos8UVxp+BsPUecqjiV xvoCBR3I2N6u4R2z5cqVMpRHjX5hh1lSFdDOnDiCRKdnIqyjpDDimA5DCFyfr8iT KamJJbt6UwpqT01l8ZhgEks5jqxROOL8t0RtWfyhLICMhfdJLRPBk2Oa0ujS0cBA zbhqFweIEUJm0hcWtftEYHlSyQhELhopH2OLswtdSywRS9QWlhwv70p8DRH2PTZa JB2ABtjbYPIldPiPjseCZ3SQQEXomVl3UNq86v9jth19SxairOzXl+6rLqEIXY1J QykoXjB3nJwCg0HeyFQAl5JiCbWZWL75uYv0HSVTYVxyXKDzTpdEaLTplqT67xIR 7JtE9hqqNE4ruEcTkSXqz2pZ+rass6iWs//yORK8iexv6DyiPTzZ22x5Op2kDGgL 0X7tXfKhecuRRNO5V0HNwD6Oy6NdymiRy60OfqL++t5bnzb/uTCzIpyFX7UcIfYT FCbsY0BfjU58Gd7x0aFlAniosenwC9MhLBk5+9LEzMe85pFZtDe92Lf7o5CIs3XD HrZUlqESQMOS7VtebcivZWNlExh6ECCcJWvq13W1vcn2yiYw9OrPR+sz4e72I82P dLHJsgYMOobedb0EyfDBp0aLm/az4bIDDDcGXbsOkrP/D9DzUycvTJ2cvjbOvxOc YiECFxLxf1owGCERh8FgljCYJQxmCYNZwmCWMJglDGYJI7v4R4ABAA4hc+1s4rMo AAAAAElFTkSuQmCC \”>
iVBORw0KGgoAAAANSUhEUgAAALcAAABACAIAAADXm3FpAAAAGXRFWHRTb2Z0d2Fy ZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAACUtJREFUeNrsXd1vVEUUn1m3pa2khdQS KrYhK9oofYECJvAiBAxECH0B1Af1qTzoe/kTIDyamNCQmBATI32poIKi8GAkSto0 mhIllGootgVBaKOFftDxtHfv3fk483F3t7vd7pwUevfuzL1nzvzmnDNnZk4pY4x4 8mSkhBeBJ48STx4lnjxKPHmUePIo8eRR4qmsKGn+enDkq9/+OjP26JupmXFtIUoI 467hEwt+pz9G37LgRlQ+vGBhwcxNpYxK0tMYVxX+BTwIT1YrEowBtLDSUkMVc0Wk GM1UyIiO6F8UFVMfKwpc+17ufmWytnHV3lea3t3Q+Ka2h3VRtenZf7/t7/jz78+k N/FMSy00MSd+q8pCeLICO8Kc+8OAYBWC4R1rl0csUEzujOOU6HqUFxcJxxIPZO5C vUeITbYUG41EGLQCn4oQ1je888amU5XJla4omWMz534+dOefL4iVRSPGpUYi0qSi 4mHaIYsrABRDZpCF2s7QrzLcpZ7GGisxozacakY5UwQivJGKsjOTIjdGMCDqx3xz ffv+rWefSVQ4+SW/DJ3OQITKw077EzabhcWIWIAodzJVuFqMCVWECyY+nAmF1epI AUYYwzjRVReZJJrGEpU3seEyJ5qS8huZpo02zgn/Xv7tDOmR+Z5d6OXhBz2//nHa SZeArfnkcsPM7BPUlvtlnyVCa+raVlSsnpgcGp8cyuU5kkKtTFa/v+ueZHeSmMd6 fh4iorVL/44PkbqaVG1NKlaVe+N9UzMPy63XQVCbU52tzR3Q9oHbXVdvHNOVBHC0 b7sEKAk+9t06YSjsipSwr6dnHw+OfPlq81sWlNy+/33Gelm9ZT1JjYlFeWh5qUHk yI5ekFggt7YXO+FCJwFAEi9VKDw41g1DKw9AWaDh+99JKEH8krvjVxA/c8Ehp3He KzUmFkHLs65bigTqNoAIL71YAzKn1zPB7b07/oPde/1vagjxq2k25iYXytHclhap FvZJwW1upBkmp2/ZUTI3p8wbSUEhAvi40H+4rFwTsBdgZHkJXOw/XKB3U+73wvXM 06cOsVclxkDzpFFAFtD4slIS7gReyPXhLjA9MDxydTKy0CHctepXJE2qhylxIZar IDxEzEq0CPKhdtciYQcaDfHlIyXLkRgzKRe9LhEBJYSKlwBQgmiStRhM59D7Tc/t Vm/Gik25RIDcQz4oP4U0OvK6LHO0OERYccloEVZ8fOzddLbOLUYHUu65tofvKphb bm85rkOYY4QGnhAEM6xzFni7uac3NB7a1XpKxw+gHJ5QOIvDtIrEZnFYZtWDuSyb LjLBsKtzDuMCpKSQw4a1hwxKyKXvgQGXYkEAoy3VadVJBn7gXaiaWWyLg0bFElqf N1QktGT9kjW1bbECMNZemYjjWja4WcaiE1WvqIPFwecyFFl3zlolwDjTdQn0JWj+ wdHu3NsPKv1ITe/g2PyjgpURGL4GKOzbdPbmaPfE46FgJQXlDaxAa1OHtfsDtXdk Ry80ZGr2IZgP1frAKwDHwOSS8WO1/Zs0TaB5jzVPEAkWd8x6GHrrzPiLLu6kLgAD DwEPBoxO8DNvUFKdn/+4BbX0wFLkskRGqrY6hbop0N86v1h6JkAE2EhbqBZyof+w BH3AItwk/WmGgYEiIibdvQvrMMx1JhwUZcI2lbzsGahyU8KOy8h9QydQMAUKSeo2 XR9Ab4HrKvW9o/9h8F6vDwvaCDSQOVIyMNxVdLsT+BUx/JL07DesnS/nFcRhHYug IRzngUs5it9Uv5uUBFHBF2GO8RIabfhz3gkci+ZNe7PWtAOM8uKUFIB4C6VCpDAz lLzMcSjqzFrjJVT1Z/M6x0F9w5Kj916/VRKzGIsqEeMl8SP0FIm6eOJ1yTJpCeXC H1hHJ3Qeb8Zd9fjQUKlYRpcZDjW6FEm7Q0PFE1FlDBqYVG9s6gjiv4Nj3TCPbX2A O1hLKxBinQRL/1M3lETgYKEPmz4qV956pX3bpQgT4JzCNb91SKLtk8dznE4XOFjC +7Ou8RJh6zwfp/eOiGPIZLZk9tpJ5sYpXiKhSz2c52lZUWg0iH7tX++9MnlW7XXJ 8oaK7I9aUEKRE8zUY6RsyE2XKIezs5sSq+HzUg8wlMm2fhpjjmN0Z1xo4HZXbXWK D8ZvbzleVbHautg7UZRNwg509caxna2noo8wK0a3BJCFNd6NTR2LxAYIVloBAMFe mTma5SZIpuSVcYyXCBVYTmIN1majpXxeymZBXBk4utRQAlwBLIJzeC+tPTS/f2VH b1FUWs+1PcH+X4BLcIYy4gSwAqKLgRiKpcawWhxmMFfZuiagG/qGTriXh5YvzdWy YE17cLT7crFBDDgATqJxGBEgxryDB+lXlt69qksflcDtC1N8X5rreZyJmEYkRycg bvUsyseqsng+jao2QMfUxczzkOn3LM/jRJlhcttAAI0B1LsIK9hDhG4B5G/CgDZs VYGS/MozfDQvu4Cq43lz2U8P6sTFfwr2R1p1j7QLznFTnNpSkvXpOH3nIlluPvqa Uuc5UuEpVnaX4OyM+/GWwMwVMYFK0LoszuNEp4TiMo/m6/pwH7Og5OOLdI6Zcgp6 Wm5TX9FpBSXxgYgSxOLUVKbwPfSelitExNH/7IqU3S9pXLUzsy3F46NsiIXTlLUA ACtK1tXvJGJa3wLnL/FUFH1Cw1nxC/UOKHl53cHKZJX3RMpLjYTWoyJZ1bLuoB0l lcmVm1Mn+SNblDtv4Wl5Oiah9diSOlmhpI/W5Y6e7fnpwMjDi3JqajU1McG/QnIj UyWJtjHZvJxXx5CMRcMk/xwhnbcua770aoIkkbYkrdQzqQab8IzqSl2n/EKUIB2D JfvXdVxw5/nVe9tfO5dwzB2doMn9W7rXN7yd2T2PbWdC85pQdJbFsZnZqsItFfHh f8b3E1VSsqP9F+lMhguQDyxmXssyG4PlJOTo4QPD1I8qbqAiFia6elTFC88JE5nB JcsJkHFL92K2+8jtiAaw+moQAnT3ga3dKkSI4a8VBHRz5Pzvdz4dfXR+evaxDvKM 2Ucer2Asg0MEvDDQuSOsFB24xJSTXuZBKqBUN/GJNgTNqU80qfixZPDSH0TA0qma ZpzI0q7DQarKZHXjqgNZ/k0LT54sFseTJ48STx4lnjxKPHmUePIo8eRR4smjxFP5 0v8CDAAlZSrE22NXGwAAAABJRU5ErkJggg== \”>