Schose's Blog » Scripting

SMS von per Commandline schicken

andreas — Sun, 13 Jul 2008 20:40:46 +0000

Ich habe ein Script gebaut, welches es ermöglicht über einen SMS Provider (in meinem Fall Mobilant) Kurznachrichten zu verschicken. Als Übergabeparameter erwartet es:
-r : wo soll die SMS hin
-f : wer hat sie geschickt (telefonnummer oder max. 11 stellige Zeichenfolge)
-t : was steht drin
-k : Providerkey (lange Zeichenfolge)

Beispiel:

send_sms.pl -r 0172222222 -f nagios -t "small sms" -k 132343554556465656BBEF3

das Script benötigt Perl LWP Modul.

Hier gibt es das Script zum Download

Zimbra Monitoring mit Nagios

andreas — Sun, 13 Jul 2008 17:16:06 +0000

Da ich kein Plugin gefunden habe, welches mir mein Zimbra überwacht habe ich mich entschlossen selber eins zu schreiben. Das Script wertet die Ausgabe von “zmcontrol status” aus. Sollte dort nicht hinter jedem Service “Running” stehen, so wirft es eine “critical” Meldung, welche vom Nagios ausgewertet werden kann.

Das Script akzeptiert die Übergabeparameter -u für den Usernamen der zmcontrol ansprechen darf (default: zimbra) , sowie -b für den Pfad von zmcontrol (default: /opt/zimbra/bin/zmcontrol).

Da zmcontrol lediglich durch den Zimbrauser zu starten ist, müsst ihr eurem Nagiosuser erlauben das Kommando als Zimbrauser zu starten. Dies erledigt man durch das Anpassen der /etc/sudoers und das Anfügen der Zeile

%nagios ALL=(zimbra) NOPASSWD:/opt/zimbra/bin/zmcontrol

Danach bindet man das Script in seine Nagiosinstallation ein. Da ich den nrpe Deamon verwende wird die nrpe.cfg erweitert durch.

command[check_zmstatus]=/usr/local/nagios-plugins/libexec/check_zmstatus.pl -b $ARG1$

Hier gibt es das Script zum Download

WebDAV per Commandline

andreas — Sun, 13 Jul 2008 17:15:54 +0000

… oft übersehen und trotzdem geschätzt. Windows kann WebDAV Shares als ganz “normale” Netzwerkpfade ansprechen:

Auch die Microsoft bzw. Sysinternals hat entdeckt, dass das ein cooles Feature ist und stellt ihre Tools jetzt auch per Webdav bereit. Somit kann man mit einem einfachen “net use” Kommando auf die aktuellsten Tools zugreifen.

C:\>net use X: http://live.sysinternals.com/tools


X:\>dir

 Volume in Laufwerk X: hat keine Bezeichnung.
 Verzeichnis von X:\
02.06.2008  01:16    
          .

02.06.2008  01:16              ..

30.05.2008  17:55               668 About_This_Site.txt

13.05.2008  19:00           225.320 accesschk.exe

01.11.2006  15:06           174.968 AccessEnum.exe

01.11.2006  23:05           121.712 accvio.EXE

12.07.2007  07:26            50.379 AdExplorer.chm

26.11.2007  14:21           422.952 ADExplorer.exe

07.11.2007  11:13           401.616 ADInsight.chm

20.11.2007  14:25         1.049.640 ADInsight.exe

01.11.2006  15:05           150.328 adrestore.exe

...

Wer schluckt den ICA Traffic?!

andreas — Fri, 04 Jan 2008 14:22:37 +0000

Ich habe ein kleines MFCOM Script in Perl gebaut, welches Usernamen, ClientIPs und übertragene Bytes (gesendet, empfangen) pro ICA Session darstellt.

Die Werte können nach Excel (muss installiert sein) übergeben werden. Der Client benötigt einige zusätzliche Perlmodule – alternativ kann einfach die .exe Datei gestartet werden – und das Citrix SDK. Alternativ kann das Programm auf einfach vom Terminalserver gestartet werden.

Es werden lediglich aktive Sessions betrachtet. KBytesSend sind KB welche vom PS zum Client geschickt werden – also Download für den Client.

Download Perlscript
Download Binary

Outlook mit Perl automatisieren

andreas — Tue, 11 Dec 2007 19:25:57 +0000

Heute stand ich vor der Frage wie man eine Mailbox aus dem Exchange automatisiert abfragen und verarbeiten kann. Mail::Outlook hilft weiter. Es können im einfachsten Fall alle Ordner, Mails gelesen und neue erstellt werden. Microsoft Outlook muss auf dem Client vorhanden sein.

Folgendes Beispiel ließt die 3 letzten Mails und löscht sie – konfigurierter Outlookaccount vorausgesetzt. Erweiterte Funktionen wie Mails als gelesen markieren etc. stehen über das Modul aber nicht zur Verfügung.

# create the object use Mail::Outlook; my $outlook = new Mail::Outlook();


  # start with a folder

  my $outlook = new Mail::Outlook('Inbox');
  # use the Win32::OLE::Const definitions

  use Mail::Outlook;

  use Win32::OLE::Const 'Microsoft Outlook';

  my $outlook = new Mail::Outlook(olInbox);
  # get/set the current folder

  my $folder = $outlook->folder('Inbox');
  my $message = $folder->first();

for (my $i = 0; $i<3; $i++) { # get the first/last/next/previous message print "Subject: " .$message->Subject() ." \n"; $message->delete(); $message = $folder->next(); }

Warum man Microsoft Hotfixes nicht kopflos installieren sollte

andreas — Tue, 04 Dec 2007 19:29:35 +0000

Ich bin heute wieder über einen schönes Beispiel gefallen, warum man MS Hotfixes testen muss…

Folgender Zweizeiler sollte eine Messagebox auf den Bildschirm zaubern – tut er auch!

use Win32; Win32::MsgBox("hallo");

“Kompiliert” man das Perlscript mit “perlapp –norunlib –exe test.exe test.pl” fällt ein Binary heraus, welches die Messagebox nicht erscheinen lässt und stattdessen nur ein beep von sich gibt.

Nach mehreren Stunden debuggen habe ich einfach mal alle vorhanden Hotfixes deinstalliert – reboot. Alles super!

"C:\WINDXP\$NtUninstallKB909394$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB911562$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB911564$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB911565$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB911927$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB912919$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB913446$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB913580$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB914388$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB914389$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB917344$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB917422$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB917953$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB918118$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB918439$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB919007$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB920213$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB920214$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB920670$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB920683$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB920685$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB921398$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB921503$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB921883$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB922582$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB922616$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB922819$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB923191$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB923414$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB923689$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB923694$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB923980$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB924191$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB924270$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB924496$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB924667$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB925486$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB925902$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB926255$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB926436$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB927779$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB927802$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB927891$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB928090$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB928255$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB928843$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB929123$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB929969$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB930178$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB930916$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB931261$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB931768$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB931784$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB932168$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB933360$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB933566$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB935839$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB935840$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB936021$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB936357$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB937143$\spuninst\spuninst.exe" /norestart /passive "C:\WINDXP\$NtUninstallKB938829$\spuninst\spuninst.exe" /norestart /passive

alle SVS Layer starten bzw. stoppen

andreas — Mon, 29 Oct 2007 22:21:29 +0000

Wer (wie ich) sehr viel mit Softwarelayern arbeitet, den wird es früher oder später nerven, dass für das Erstellen einen neuen Layers immer alle anderen manuell gestoppt werden müssen. SVSCMD.exe hilft hier leider auch nicht weiter.

Ich habe ein kleines “svskill” Script geschrieben, welches alle Layer stoppt bzw. alle auf automatisch konfigurieren Layer startet.
Aufruf per “perl svskill.pl [stop|start]“. Falls ihr kein Perl installiert habt, könnt ihr auch die kompilierte .exe Datei nehmen.

Das Script fragt im wesentlichen die Registrykeys unter HKLM\System\Altiris\FSL ab. Hier sind alle Layer mit ihren Einstellungen gespeichert. Das starten und stoppen über SVScmd.exe sollte man env. noch verbessern!

Script: http://andreas.ndfnet.de/showfiles/svskill/svskill.pl
Binary: http://andreas.ndfnet.de/showfiles/svskill/svskill.exe (1 MB)

VMware VI Perl Toolkit

andreas — Mon, 10 Sep 2007 18:40:43 +0000

VMware hat das Perl SDK für Virtual Infrastructure veröffentlicht. Für alle die nicht auf C#, Java oder die Komplexität von Webservices stehen, und einfach nur “quick hacks” bauen wollen sicherlich ne echte Alternative!

Mal schauen ob ich in den nächsten Wochen dazu komme mir das anschauen. Falls ja gibts nätürlich nen Update!

URL: http://www.vmware.com/support/developer/viperltoolkit/

Wie gut kennst du dich in Deutschland aus?

andreas — Sun, 09 Sep 2007 19:52:02 +0000

… das kannst du unter http://andreas.ndfnet.de/googlemaps/schwierigkeitsgrad.php testen. Das ganze entspringt einer Idee, welche ich mal hatte und befindet sich noch sehr im Rohbau. Die Idee und Testimplementierung stammt von mir, Tobias Eidmann hat daran wesentlich weiterentwickelt. Wir werden versuchen in den nächsten Wochen da was handfestes draus zu machen!
Der Schwierigkeitsgrad zu Beginn legt fest, dass Städte mit mehr als X Einwohner abgefragt werden. Informationen vom Standort und Einwohnerzahl stammen aus der OpengeoDB. Anregungen, Ideen und Kommentare eindeutig Willkommen! Aktuelles Problem: wie bekommt man die Grenzen von Deutschland mit env. Hilfspunkten besser dargestellt?!