Alessandro Banzer's Blog

Signatur dynamisch erzeugen

nospam@example.com (Alessandro Banzer) — Wed, 12 May 2010 08:56:48 +0200

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>")
objFile.WriteLine("______________________________________  ")
objFile.WriteLine(" " & strFirstname & " " & strLastname)
If strDepartment = "" Then
objFile.WriteLine(" " & strJobTitle)
Else
objFile.WriteLine(" " & strJobTitle & ", " & strDepartment)
End If
objFile.WriteLine("   " & strCompany)
objFile.WriteLine(" " & strStreet)
objFile.WriteLine(" " & strCountryC & " " & strPostalCode & " " & strCity & ", " & strCountry)
If Not strMobile = "" Then
objFile.WriteLine(" Tel. " & strPhone & "")
objFile.WriteLine(" Mobile " & strMobile & "")
objFile.WriteLine(" Fax " & strFax & "")
Else
objFile.WriteLine(" Tel. " & RTrim(strPhone) & ", Fax " & strFax )
End If
objFile.WriteLine(" E-Mail <a href='mailto:" & strEmail & "'>" & LCase(strEmail) & "</a>")
objFile.WriteLine(" Internet <a href='http://" & strWeb & "'>" & strWeb & "</a>")
objFile.WriteLine(" ______________________________________</DIV></BODY></HTML>")
Set objFile = Nothing
Set objFS = Nothing
' end of file

Zwillinge..

nospam@example.com (Alessandro Banzer) — Thu, 06 May 2010 16:43:11 +0200

Eine sehr lautstarke, unattraktive, ungepflegte Frau ging mit ihren
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."

Frauen verstehen einfach alles falsch

nospam@example.com (Alessandro Banzer) — Wed, 05 May 2010 16:10:25 +0200

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..."

Erfolgreiches erstes Jahr in der Bundesliga

nospam@example.com (Alessandro Banzer) — Tue, 27 Apr 2010 08:45:27 +0200

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

Video zur EM

nospam@example.com (Alessandro Banzer) — Thu, 11 Mar 2010 07:44:18 +0100

Für die bevorstehenden Europameisterschaften im Pool Billard, welche nächste Woche in Zagreb stattfinden, gibt es ein Promo Video. Für mich sehr gelungen und gute Werbung für unseren Sport. Leider kann ich an der EM nicht teilnehmen, werde es aber Live im Internet verfolgen.

Systemsprache mittels Batch auslesen

nospam@example.com (Alessandro Banzer) — Thu, 04 Mar 2010 11:10:53 +0100

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

Devil Drive USB

nospam@example.com (Alessandro Banzer) — Fri, 26 Feb 2010 10:14:05 +0100

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.

Jugendparlament Triesen mit neuer Homepage

nospam@example.com (Alessandro Banzer) — Thu, 18 Feb 2010 10:50:57 +0100

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.

Die Maus für den Mann

nospam@example.com (Alessandro Banzer) — Mon, 15 Feb 2010 14:58:34 +0100

Auf Yanko Design bin ich auf eine richtig interessante Maus für den Mann gestossen. Die Maus nennt sich G-Point und überrascht mit einem echt geilen Design. Aber seht selbst:

Bei der nächsten Gelegenheit werde ich diese Maus natürlich Online bestellen.

Die Katze im Sack kaufen

nospam@example.com (Alessandro Banzer) — Wed, 10 Feb 2010 16:19:05 +0100

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.

Liechtensteiner Quartett an der Pool-Billard-WM

nospam@example.com (Alessandro Banzer) — Thu, 28 Jan 2010 10:34:40 +0100

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

Mein neues Auto

nospam@example.com (Alessandro Banzer) — Fri, 22 Jan 2010 08:57:10 +0100

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.

Rechnername, angemeldeter User und MAC-Adresse via Remote auslesen

nospam@example.com (Alessandro Banzer) — Fri, 22 Jan 2010 08:44:20 +0100

Nachdem ich diese Befehle immer wieder vergesse, sie aber in unregelmässigen Abständen immer wieder brauche und desshalb neu ergooglen muss, schreibe ich sie hier mal nieder. Vielleicht kann ich damit gleich noch jemand anderem was Gutes tun.

Ermitteln des Rechnernamens über die IP-Adresse:
nslookup <IP-Adresse>

Ermitteln des aktuell angemeldeten Users eines Systems:
nbtstat -a <Hostname>
oder
nbtstat -A <IP-Adresse>

Ermitteln der MAC-Adresse eines Rechners:
ping <IP-Adresse>
arp -a

ASCII-Code mittels Tastatureingabe eingeben

nospam@example.com (Alessandro Banzer) — Mon, 11 Jan 2010 11:26:30 +0100

Oftmals haben wir das Problem, dass bei der Anmeldung an Windows das Tastaturlayout falsch eingestellt ist. Viele User verwenden Sonderzeichen in ihrem Passwort. Da die Eingabe mit einem falschen Tastaturlayout sehr schwierig ist, gibt’s dazu eine Lösung. Mittels dem Ascii-Code können diese ganz einfach eingefügt werden. Dazu hält man die "ALT"-Taste gedrückt und gibt die neben dem Sonderzeichen stehende Zahl ein. sobald man die "ALT-"Taste los lässt, ist das Sonderzeichen eingefügt.

Alkoholtest mit dem iPhone

nospam@example.com (Alessandro Banzer) — Tue, 15 Dec 2009 12:31:09 +0100

Wer auf der Weihnachtsfeier den Alkoholpegel kontrollieren will, kann dafür das iPhone oder den iPod erweitern.

Eine kalifornische Fírma bietet "iBreath" zum Aufstecken auf das Smartphone oder den MP3- Player an. Hält man das Gerät vor den eigenen Atem und atmet fünf Sekunden lang aus, zeigt es den geschätzten Blutalkoholwert auf dem kleinen Display an. Außerhalb der Trinkzeiten dient das Zubehör als Radioempfänger. Der Anbieter davidsteele.com vertreibt das Gerät zum Preis von 49 Dollar (32,7 Euro) an.