Nelegální materiál MP3

Každý administrátor zodpovídá za čistou licenční politiku plus za nelegální obsah na PC uživatelů(alespoň já to mám ve smlouvě,pokud vy ne dejte echo).Dnes se chci věnovat konkrétně souborům MP3.

Tento skript prohledá dané PC a výsledek zapíše do logu.Názvy PC čerpá z textového souboru který je uložen přímo na céčku tedy c:\compy.txt

Vřele doporučuji si tento textový soubor co nejrychleji vyrobit protože drtivá většina skriptů ho používá.Jedná se o klasický txt kde co řádek to jedna stanice bez mezer a prázdných řádků.

Skript je velmi pečlivý a to sebou nese časovou náročnost doporučuji prohledat do 10 PC za noc.Skript vůbec neřeší zda je PC online zda máte správně názvy stanic nebo zda je k dispozici více disků.

Tyto funkce brzy dodám  jako samostatné skripty(bloky) které při správném poskládání dělají to co potřebujeme.

Pokud někoho zarazí že si do adresáře nesahám vzdáleně ale že se tam přepínám pomocí CD\\ pak vězte že tímto docela podstatně stoupne rychlost prohledávání.Což je dáno použitým filtrem.

################################  Vytvoril:Petr Skrivan ####################################

#pojmenovani funkce

function checkmp3

{

#zacatek funkce vytvori txt soubor(pokud soubor existoval..nahradi jej)a zapise do logu uvod

begin {"Nelegalni material konkretne MP3" > findmp3.txt}

#telo funkce:vytahuje jednotlive pc a zasila je do roury prida do logu prazdny radek

process{foreach($komp in $input) { " " >> findmp3.txt

#....prida do logu graficky prvek(odelovac pomoci tecek)jeste prida prazdny radek

"................................." >> findmp3.txt ; " " >> findmp3.txt

#....prida do logu nazev kontrolovane stanice

"MP3 nalezene na stanici:  $komp" >> findmp3.txt

#jdi do adresare kontrolovaneho pc filtruj mp3 a vysledek uloz do promenne $vypis

#parametr -recurse zajisti prohledani vsech podadresaru

cd \\$komp\c$ ; $vypis=(ls * -include *.mp3 -recurse)

#vrat se zpet do adresare aktualniho pc a vysledek zapis

cd \\vasepc\c$ ;$vypis >> findmp3.txt}}

#zde vse konci do logu pridej prazdny radek

end{  " " >> findmp3.txt}

}

#do promenne $compy prirad pc ze souboru compy.txt ktery je na cecku

$compy = cat c:\compy.txt

#zjistene pc zasli ke zpracovani funkci checkmp3

$compy | checkmp3