Tuesday, 24. August 2010
Lady Gaga besingt „Alejandro Banzer“
Alessandro Banzer, siegte das erste mal im Patricks bei der Kingstour im August 2010. In einem packenden Finale, bezwang er den aus Zürich angereisten sympathischen Ronald Regli. Lange Zeit ging das Spiel hin und her, bei 2:1 für Ronald vergeigte Alessandro die 9 zum Ausgleich und Ronald zug gleich mal auf 4:2 davon. Doch der nervenstarke Alessandro Banzer aus Lichtenstein drehte das Spiel nochmals, und gewann schlussendlich mit 5:4. „Alessandro“: Ich liebe diese Tische im Patricks, sie sind nicht zu leicht zu spielen und auch nicht abartig giftig. In jedem Spiel vergeige ich einmal die 9. Gottseidank war es diesmal nicht im entscheidenden letzten Satz.
3. Wurde Martin Kempter der gegen den späteren Sieger ebenfalls nur knapp ausschied. Platz 4 und 5 Teilten sich Adolf Hardegger und Dieter Brum.
Die Überraschung des Abends, war Silvio Zugec, der im 16. K.O in der ersten Runde gegen Roger Bruderer das erste mal siegte. Auch Jan Mrnak spielte wieder groß auf und wurde immerhin 6.
In der Gesamt Rangliste führt Martin Kempter mit komfortablem Vorsprung. 2. Ist Roger Bruderer und 3. Immer noch Günter Innmann. Derzeit währen noch Patrick Lindl, Alessandro Banzer, Bojan Adjelkovic, Rene Heiniger und Jürgen Maas für das Masters qualifiziert.
Quelle: kingstour.eu
Wednesday, 4. August 2010
Batch: mehrere .csv Dateien zusammenführen
Heute erreichte mich die Anfrage, ob ich ein Batch-Script schreiben kann, welches mehrere CSV-Dateien zusammenführt. Weiters sollte die Überschrift nur einmal angezeigt werden. Dazu hier der entsprechende Code, welcher in einer Batch-Datei (*.bat) eingefügt werden kann. Die beiden Variablen Ordner/Sammel müssen entsprechend verändert werden.
- @echo off & setlocal
- set "Ordner=W:\Scripts"
- set "Sammel=W:\Scripts\DeineDatei.csv"
- pushd "%Ordner%"
- if exist "%Sammel%" del "%Sammel%"
- for %%i in (*.csv) do if not exist "%Sammel%" for /f "usebackq delims=" %%z in ("%%i") do if not exist "%Sammel%" echo %%z>"%Sammel%"
- for /f "delims=" %%i in ('dir /b /od *.csv') do more +1 "%%i">>"%Sammel%"
- popd
Wednesday, 12. May 2010
Signatur dynamisch erzeugen
Es gibt oft Vorteile wieso kein Roaming-Profil verwendet wird. Recht mühsam bei den lokalen Profilen ist es aber, dass die Signatur unter Microsoft Outlook jedes mal neu erzeugt werden muss. Um dies per Login-Script zu automatisieren, habe ich ein kleines Script geschrieben. Dies sucht sich die Informationen aus dem AD und schreibt diese in ein HTM Dokument.
- '
- ' Create_Signatures.vbs
- '
- ' 2010 Banzer Alessandro
- '
- ' Benutzername und Domäne abfragen
- On Error Resume Next
- Set objNW = WScript.CreateObject("WScript.Network")
- strUserDomain = objNW.UserDomain
- strUserName = objNW.UserName
- Set objNW = Nothing
- ' WinNT Namen in AD Namen übersetzen
- ' siehe http://www.rlmueller.net/NameTranslateFAQ.htm
- Const ADS_NAME_INITTYPE_GC = 3
- Const ADS_NAME_TYPE_NT4 = 3
- Const ADS_NAME_TYPE_1779 = 1
- Set objTrans = CreateObject("NameTranslate")
- objTrans.Init ADS_NAME_INITTYPE_GC, ""
- objTrans.Set ADS_NAME_TYPE_NT4, strUserDomain & "\" & strUserName
- strUserDN = objTrans.Get(ADS_NAME_TYPE_1779)
- Set objTrans = Nothing
- ' Benutzer Objekt aus den AD holen und Attribute in Variablen speichern
- ' siehe http://www.rlmueller.net/References/ADUCProperties.xls
- Set objUser = GetObject("LDAP://" & strUserDN)
- strFirstname = objUser.givenName
- strLastname = objUser.sn
- strJobTitle = objUser.title
- strDepartment = objUser.Department
- strStreet = objUser.StreetAddress
- strPostalCode = objUser.PostalCode
- strCity = objUser.l
- strPhone = objUser.telephonenumber
- strFax = objUser.facsimiletelephonenumber
- strMobile = objUser.mobile
- strEmail = objUser.mail
- strWeb = objUser.wWWHomePage
- strCompany = objUser.company
- strCountry = objUser.co
- strCountryC = objUser.c
- Set objUser = Nothing
- ' Testen, ob Verzeichnis schon vorhanden und wenn nötig anlegen.
- Set WshShell = WScript.CreateObject("WScript.Shell")
- strAppData = WshShell.RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\AppData")
- Set WshShell = Nothing
- Set objFS = CreateObject("Scripting.FileSystemObject")
- strSignatureDir = strAppData & "\Microsoft\Signatures"
- If Not objFS.FolderExists(strSignatureDir) Then
- objFS.CreateFolder(strSignatureDir)
- End If
- ' Signatur als HTM Datei Schreiben
- Set objFile = objFS.CreateTextFile(strSignatureDir & "\" & strUserName & ".htm")
- objFile.WriteLine("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>")
- objFile.WriteLine("<HTML xmlns:o = 'urn:schemas-microsoft-com:office:office'><HEAD><TITLE>" & strFirstname & " " & strLastname & " Signatur</TITLE>")
- objFile.WriteLine("<META content='text/html; charset=windows-1252' http-equiv=Content-Type>")
- objFile.WriteLine("<META name=GENERATOR content='MSHTML 8.00.7600.16490'></HEAD>")
- objFile.WriteLine("<BODY><DIV align=left><FONT size=1 face=Arial>")
- objFile.WriteLine("<u>______________________________________</u><BR> ")
- objFile.WriteLine("<BR>" & strFirstname & " " & strLastname)
- If strDepartment = "" Then
- objFile.WriteLine("<BR>" & strJobTitle)
- Else
- objFile.WriteLine("<BR>" & strJobTitle & ", " & strDepartment)
- End If
- objFile.WriteLine("<BR> <BR>" & strCompany)
- objFile.WriteLine("<BR>" & strStreet)
- objFile.WriteLine("<BR>" & strCountryC & " " & strPostalCode & " " & strCity & ", " & strCountry)
- If Not strMobile = "" Then
- objFile.WriteLine("<BR>Tel. " & strPhone & "")
- objFile.WriteLine("<BR>Mobile " & strMobile & "")
- objFile.WriteLine("<BR>Fax " & strFax & "")
- Else
- objFile.WriteLine("<BR>Tel. " & RTrim(strPhone) & ", Fax " & strFax )
- End If
- objFile.WriteLine("<BR>E-Mail <a href='mailto:" & strEmail & "'>" & LCase(strEmail) & "</a>")
- objFile.WriteLine("<BR>Internet <a href='http://" & strWeb & "'>" & strWeb & "</a>")
- objFile.WriteLine("<BR><u>______________________________________</u></FONT></DIV></BODY></HTML>")
- Set objFile = Nothing
- Set objFS = Nothing
- ' end of file
Thursday, 6. May 2010
Zwillinge..
beiden herumschreienden Kindern durch den Eingang vom Lutz.
Die Dame am Empfang sagte freundlich:
"Guten Morgen und herzlich willkommen beim Lutz.
Nette Kinder, die Sie da haben. Sind das Zwillinge? "
Die Frau hörte auf zu schreien und pöbelte die freundliche Empfangsdame an:
"Verdammt, nein, das sind keine Zwillinge. Der Große ist 9, die Kleine 7.
Warum zum Teufel glaubst du blöde Kuh, dass es Zwillinge sind? Bist du
blind, oder einfach nur saudumm?"
"Gnädige Frau, ich bin weder blind noch dumm," erwiderte die Empfangsdame.
"Ich konnte nur einfach nicht glauben, dass es jemanden gibt, der Sie zweimal vögelt."
Wednesday, 5. May 2010
Frauen verstehen einfach alles falsch
Ein Typ erwacht im Krankenhaus aus dem Koma. Am Bett steht ein Doktor und fragt: "Gut, dass es ihnen besser geht. Aber ich muss sie einfach mal etwas fragen: schwere Knochenbrüche, dicke Veilchen, Blutergüsse auf dem ganzen Körper, ein Milzriss... Sind Sie in eine schwere Kneipenschlägerei geraten?"
Der Mann schüttelt den Kopf: "Nein, das ist beim Golfspielen mit meiner Frau passiert. Wir waren gerade bei einem schwierigen Loch und haben beide unsere Bälle auf eine benachbarte Kuhweide geschlagen. Wir suchen also unsere Bälle, und da sehe ich im Hintern einer Kuh etwas weißes. Ich geh also hin, heb den Schwanz der Kuh und sehe im Arsch des Tieres einen kleinen Golfball mit dem Monogramm meiner Frau. Ich dreh mich also zu meiner Frau um, immer noch den Kuhschwanz hochhaltend, und rufe: "Hey, der sieht aus wie deiner!" Was dann passierte, weiß ich nicht mehr..."
Tuesday, 27. April 2010
Erfolgreiches erstes Jahr in der Bundesliga
Die Billarder des PBC Magic 9 Triesen haben in ihrer ersten Saison in der zweithöchsten Liga in Österreich überzeugen können. Die Triesner klassierten sich in der 2. Bundesliga Nord-West nach 14 Runden auf dem glänzenden dritten Platz.
Billard. – Mit diesem Ergebnis haben die Triesner nicht unbedingt gerechnet, ist die 2. Bundesliga in Österreich doch gespickt mit erstklassigen Spielern. Doch wie so oft kann man im ersten Jahr nach einem Aufstieg die Euphorie mitnehmen. Dies war auch bei den Triesnern der Fall. Patrick Pomberger, Branko Kosic, Ralf Hinze, Adolf Hardegger und Teamcaptain Alessandro Banzer zeigten trotz eines schlechten Starts vor allem in der zweiten Saisonhälfte erstklassige Leistungen. In den letzten beiden Runden vom Wochenende gab es gegen Linz zwar eine 1:7-Klatsche, dafür besiegte man den PBC Kremstal mit 8:0. «Hätten wir Linz geschlagen, wäre sogar der zweite Platz möglich gewesen. Das Match war trotz des klaren Resultats sehr knapp, es fehlten in jedem Einzel nur wenige Punkte», so Alessandro Banzer, der nach einer langen Saison dem verschlafenen Start etwas nachtrauert. «Am Ende ist es schade, dass wir nur langsam in die Gänge kamen. Gegen die letzten drei Teams haben wir jeweils eine Begegnung verloren. Diese neun Punkte fehlen am Ende auf den ersten Platz, doch das wäre schon etwas vermessen gewesen, gleich in der ersten Saison aufzusteigen», so Banzer, der mit diesem dritten Platz mehr als nur zufrieden ist. «Wir haben bewiesen, dass es auch in Liechtenstein sehr gute Billarder gibt. Wir konnten gegen den Aufsteiger aus Rankweil und Linz jeweils ein Spiel gewinnen. Das zeigt, dass wir mit den Topteams mithalten können.»
An der Qualität gearbeitet
Im Vergleich zur letzten Saison habe man intensiver trainiert, ist das Niveau in der 2. Bundesliga wie erwähnt ungleich höher als in der 1. Landesliga in Vorarlberg. «Wir haben nicht unbedingt mehr trainiert, doch qualitativ hochwertiger. Billard spielen können alle, doch 90 Prozent spielt sich im Kopf ab. In diesem Bereich haben wir viel getan und das zahlte sich aus», so Banzer.
Um in der 2. Bundesliga mitzuspielen, ist nicht nur Können gefragt, auch der Zeitfaktor spielt eine Rolle. Die Auswärtspiele finden in Salzburg, Kärnten usw. statt, weshalb jeweils zwei Partien an einem Wochenende durchgeführt werden. Das gilt auch für die Heimspiele. «Wir müssen quer durch Österreich reisen, doch das macht uns nicht viel aus. Wir wollen uns mit den besten Spielern messen und diese sind eben weiter weg», nimmt Banzer die Reisestrapazen gerne in Kauf. Und hinsichtlich der neuen Saison: «Wenn Pomberger und Kosic wieder viele ihrer Partien gewinnen und Heinze und ich eine ähnliche Bilanz aufweisen, dann können wir ganz vorne landen. Das ist auch unser Ziel.»
Quelle: Vaterland.li, Piero Sprenger
Thursday, 11. March 2010
Video zur EM
Thursday, 4. March 2010
Systemsprache mittels Batch auslesen
In Windows XP gibts drei Möglichkeiten um die Systemsprache auszulesen. Zum einen unter HKEY_LOCAL_MACHINE\System\CurrentControlset\Control\Nls\Language gibt es das den Wert "InstallLanguage". Bei einem Deutschen XP steht hier als Wert 0407. Dann gibt's die sogenannten Default Language die unter HKEY_LOCAL_MACHINE\System\CurrentControlset\Control\Nls\Language\"Default" zu finden sind. Bei Multilanguage Systemen gibt es noch den folgenden Wert
HKEY_CURRENT_USER\Control Panel\Desktop\"MultiUILanguageId" der die Spracheinstellungen des Dekstops des aktuellen Users anzeigt. Bei normalen XP Systemen gibt es den Wert nicht.
In dem folgenden Batch File werden alle drei Werte ausgelesen und angezeigt.
- @echo off
- :: Abfrage und Anzeige der Windows Sprache
- for /F "tokens=2* skip=4 usebackq" %%f in (`reg query "HKEY_LOCAL_MACHINE\System\CurrentControlset\Control\Nls\Language" /v "InstallLanguage"`) do @set x9=%%g
- set InstallLanguage=%x9:ü=%
- for /F "tokens=2* skip=4 usebackq" %%f in (`reg query "HKEY_LOCAL_MACHINE\System\CurrentControlset\Control\Nls\Language" /v "Default"`) do @set x10=%%g
- set DefaultLanguage=%x10:ü=%
- for /F "tokens=2* skip=4 usebackq" %%f in (`reg query "HKEY_CURRENT_USER\Control Panel\Desktop" /v "MultiUILanguageId"`) do @set x11=%%g
- set UserProfileLanguage=%x11:~-4%
- if "%InstallLanguage%"=="0407" (
- set InstallLanguage=0407 German
- )
- if "%InstallLanguage%"=="0409" (
- set InstallLanguage=0409 English-US
- )
- if "%InstallLanguage%"=="040A" (
- set InstallLanguage=040A Spain
- )
- if "%InstallLanguage%"=="040C" (
- set InstallLanguage=040C French
- )
- if "%InstallLanguage%"=="040E" (
- set InstallLanguage=040E Ungarisch
- )
- if "%InstallLanguage%"=="0410" (
- set InstallLanguage=0410 Italienisch
- )
- if "%InstallLanguage%"=="0415" (
- set InstallLanguage=040E Polnisch
- )
- if "%InstallLanguage%"=="0418" (
- set InstallLanguage=0418 Rumänisch
- )
- if "%InstallLanguage%"=="0419" (
- set InstallLanguage=0419 Russisch
- )
- echo Install-Sprache ist %InstallLanguage%
- echo Default Sprache ist %DefaultLanguage%
- if "%UserProfileLanguage%"=="~-4" (
- echo No Multi-Language System detected!
- )
- if "%UserProfileLanguage%" NEQ "~-4" (
- echo Aktuelle User Sprache ist %UserProfileLanguage%
- )
- pause
Friday, 26. February 2010
Devil Drive USB
Hast Du einen Freund oder einen Mitarbeiter den Du mal so richtig ärgern willst? Dann ist dieser USB Stick genau das richtige für Dich.
Dieser USB Stick kann ganz einfach eingesteckt und verwendet werden. Du hast drei Möglichkeiten um jemanden damit zu verärgern:
- - Caps Lock on / off
- - Maus läuft von alleine umher
- - Wirrlos- und Zufallstexte werden eingefügt
Weiters kann man einstellen, welche der drei Varianten man verwenden möchte. Natürlich gehen auch alle drei.
Auch ist über einen weiteren Switch einstellbar, in welchen Zeitabständen dies geschehen soll. Hier kann zwischen 5 Sekunden und 15 Minuten ausgewählt werden.
Zu Kaufen gibts dieses Teil für $23 Dollar auf Amazon.com.
Thursday, 18. February 2010
Jugendparlament Triesen mit neuer Homepage
Am vergangenen Montag wurde die neue Homepage des Jugendparlaments Triesen aufgeschalten. Die Homepage ist noch im Entwicklungsstadium und wird in den nächsten Wochen fertig gestellt. Bis dahin bittet das Jugendparlament noch um etwas Geduld.
Die Homepage ist unter www.jupa.li erreichbar.
Monday, 15. February 2010
Die Maus für den Mann
Wednesday, 10. February 2010
Die Katze im Sack kaufen
Hinter dem Gesichtsschleier strenggläubiger Musliminnen lässt sich einiges verbergen: Dass seine Ehefrau schielt und einen Bart hat, bemerkte ein arabischer Botschafter deshalb erst nach Unterzeichnung des Ehevertrages.
Ein Gericht im Emirat Dubai musste sich nun mit der Scheidung beschäftigen, berichtet die Zeitung «Gulf News». Die «bärtige» Braut darf den von ihrem Mann gekauften Schmuck und Geschenke im Wert von 500´000 Dirham (rund 150´000 Franken) behalten.
Von Schwiegermutter getäuscht
Der Botschafter hatte dem Bericht zufolge vor Gericht erklärt, er habe die Medizinerin vor dem Hochzeitstermin immer nur mit Schleier mit schmalem Augenschlitz gesehen. Beim Aussuchen der Braut habe ihm seine Mutter geholfen.
Die Familie der bärtigen Frau habe ihn und die Mutter jedoch getäuscht, indem sie ihnen das Foto einer hübscheren Schwester gezeigt habe. (gca/SDA)
Was will man dazu noch sagen? Wenn man die Katze im Sack kauft, ist man(n) selber Schuld. Immer wieder witzig was die Muslimen so alles treiben und kaufen. Daher ist es mir doch lieber, wenn die Frauen bei uns ohne Gesichtsschleier umher laufen. Auch wenn man sich ab und zu wünscht, die eint oder andere würde einen Schleier tragen. ![]()
Thursday, 28. January 2010
Liechtensteiner Quartett an der Pool-Billard-WM
Bei der ersten Team-Weltmeisterschaft im Pool-Billard wird auch eine Liechtensteiner Equipe am Start stehen. Alessandro Banzer, Branko Kosic, Hansjörg Dutler und Mario Wille messen sich in Hannover mit der Weltelite aus 50 Nationen.
Bei diesem erstmals durchgeführten Anlass vom 30. Janaur bis zum 7. Februar starten rund 250 der besten Billardspieler der Welt. Alle aktuellen Welt- und Europameister sind am Start und wollen gemeinsam mit ihrer Mannschaft den ersten Team Weltmeistertitel erringen.
FL-Team startet gegen die Slowakei
Beim Kampf um ein totales Preisgeld von 400 000 Dollar ist auch das Team Liechtenstein mit von der Partie. Alessandro Banzer, Branko Kosic, Hansjörg Dutler und Mario Wille reisen morgen, Freitag, nach Hannover. Der erste Einsatz des Quartetts steht dann am Sonntag, um 18 Uhr, gegen die Slowakai an. Gespielt wird in den Disziplinen 8-Ball, 9-Ball und 10-Ball, wobei das 9-Ball und das 10-Ball jeweils im Einzel gespielt wird und das 8-Ball im Doppel mit Handwechsel (Abwechslung nach jedem Stoss) ausgetragen wrid. Das Turnier wird im Doppel-K.-o.-System bis zu den letzten 16 gespielt. Die letzten 16 spielen dann in einem K.-o.-System den Sieger aus.
Das Team Liechtenstein rechnet sich für die Partie gegen die Slowakei Aussenseiterchancen aus. Teamleader Alessandro Banzer: «Mit der Auslosung sind wir sehr zufrieden. In der ersten Runde haben wir ein Freilos und sind direkt in der ersten Gewinnerrunde gesetzt. Mit der Slowakei wurde uns ein Gegner gelost, bei dem wir sicherlich unsere Chancen bekommen. Wir hoffen, dass wir unsere gute Ausgangslage nutzen können und die Sensation mit einem Sieg schaffen.» Sollte das Team Liechtenstein die erste Partie gewinnen, müsste es am Dienstag gegen den Sieger der Partie China – Deutschland antreten. Bei einer Auftaktniederlage würde es bereits am Montag weiter gehen. Der Gegner ermittelt sich aus den weiteren Spielen.
Neben der Pool-Billard-Weltmeisterschaft findet auf dem Messegelände in Hannover auch die Billard-Exhibition statt, wo die neusten Trends und Technologien vorgestellt werden. In der Halle 13 stehen nebst 32 Billardtischen weitere 4000 Sitzplätze zur Verfügung. Die Organisatoren rechnen mit mehreren Tausend Zuschauern täglich.
Bericht im Vaterland
Friday, 22. January 2010
Mein neues Auto
Seit Mittwoch bin ich stolzer Besitzer eines neuen Audi S3. Mein alter VW Golf ging langsam aber sicher ein, so musste ich mich um eine Alternative bemühen. Nach langer Suche und vielen Stunden überlegens habe ich mir den S3 gekauft. Das Fahrverhalten ist ein Traum, er sieht nicht nur super aus, sonder ist auch Vollausgestattet. Dazu ein paar Bilder.





















