Hier mal ein kleines Script für Oracle Datenbanken, mit welchem ein gesamtes Schema “gelöscht” werden kann.

--
-- killall
--
begin

	-- delete all tables
	for rec_t in (select table_name from sys.USER_TABLES)
	loop
		execute immediate 'DROP table ' || rec_t.table_name ||  ' cascade constraints purge';
	end loop;

	-- delete all sequences
	for rec_s in (select sequence_name from sys.USER_SEQUENCES)
	loop
		execute immediate 'DROP sequence ' || rec_s.sequence_name;
	end loop;

	-- delete all index
	for rec_i in (select index_name from sys.USER_INDEXES)
	loop
		execute immediate 'DROP index ' || rec_i.index_name;
	end loop;

	commit;		

end;

Danke an: C.R. der mich auf die Idee gebracht hat. :)

Irgendwer wollte diese Spielerei von mir haben. Nun hier ist Sie …

Quellcode:

@ECHO OFF
ECHO.
ECHO  ).".(
ECHO  ( : )
ECHO (o) (o)

Ergebnis:

Viel Spaß damit. ;)

Ab und an spiele ich das Brettspiel “Die Siedler von Catan“. Am Anfang des Spiels kommt es darauf an seine “Spielfiguren” auf der Karte strategisch zu plazieren.

Im Spiel wird mit zwei Würfeln gewürfelt. Besitzt man z.B. eine Siedlung die an einem Feld angrenzt, welches die Summe der beiden Würfel abbildet, erhält der Spieler den entsprechenden Rohstoff.

Interessant hierbei sind die Zahlen. Zwei Würfel bedeutet:
Augenpaare zwischen 2 und 12 sind möglich (2,3,4,5,6,7,8,9,10,11,12). Das Augenpaar 1 ist nicht möglich, da wir mit 2 Würfeln spielen ;).

Nun stellt sich die Frage, wie wahrscheinlich wird welche Zahl (Summe beider Augen auf dem Würfel) gewürfelt.

Da von Hand ausrechnen keinerlei Spaß bringt, habe ich hier ein kleines Java Programm geschrieben.

Click to Download

Ergebnis:

Augenzahl: 7 Würfelkombinationen: 6 Wahrscheinlichkeit: 16,67 %
Augenzahl: 6 Würfelkombinationen: 5 Wahrscheinlichkeit: 13,89 %
Augenzahl: 8 Würfelkombinationen: 5 Wahrscheinlichkeit: 13,89 %
Augenzahl: 5 Würfelkombinationen: 4 Wahrscheinlichkeit: 11,11 %
Augenzahl: 9 Würfelkombinationen: 4 Wahrscheinlichkeit: 11,11 %
Augenzahl: 4 Würfelkombinationen: 3 Wahrscheinlichkeit: 8,33 %
Augenzahl: 10 Würfelkombinationen: 3 Wahrscheinlichkeit: 8,33 %
Augenzahl: 3 Würfelkombinationen: 2 Wahrscheinlichkeit: 5,56 %
Augenzahl: 11 Würfelkombinationen: 2 Wahrscheinlichkeit: 5,56 %
Augenzahl: 2 Würfelkombinationen: 1 Wahrscheinlichkeit: 2,78 %
Augenzahl: 12 Würfelkombinationen: 1 Wahrscheinlichkeit: 2,78 %

Die Zahl 7 entfällt, da es hierfür kein Feld gibt und der Räuber auf den Plan tritt. :)

D. h. in Zukunft werde ich meine Siedlungen an den Feldern mit der Nummer 6, 8, 5, 9 platzieren.

Häufig wiederkehrende Arbeiten beim Starten meines Arbeitsrechners haben mich dazu veranlasst ein Script zu erstellen, welches mir die stupiden Arbeiten abnimmt. Nichts besonderes, aber evtl. kann es irgendjemand gebrauchen.

Download: StartUp.vbs

Quellcode:

call init()

Sub init()

Dim strPassword, strUser, strDomain

strUser = ""
strDomain = ""
strPassword = InputBox("Password:")

'mount network drives
mountDrive "Z", "\\servername\folder", strDomain, strUser, strPassword
mountDrive "Y", "\\servername\folder", strDomain, strUser, strPassword

'run apps
Set sd = CreateObject("Wscript.shell")
sd.Run "%SystemRoot%\explorer.exe /n, /e, D:\"
sd.Run "D:\Programme\ProcessExplorer\procexp.exe"
sd.Run "firefox.exe -new-tab http://www.wantedlink.de"

End Sub

Sub mountDrive(driveletter, server, domian, user, pw)

Dim wshnet

Set wshnet = CreateObject("WScript.Network")
WshNet.MapNetworkDrive driveletter & ":", server , false, domian & "\" & user, pw

Set wshnet = Nothing

End Sub

Beschreibung:

Im Abschnitt “‘mount network drives” können die anzubindenden Netzwerklaufwerke eingetragen werden.
Falls kein Username und Passwort erforderlich sein sollte, dann muss dieser Teil gelöscht werden.

Dim strPassword, strUser, strDomain

strUser = ""
strDomain = ""
strPassword = InputBox("Password:")

und jeweils das hier

, strDomain, strUser, strPassword

Im Abschnitt “‘run apps” sind alle die Anwendungen eingetragen, die gestartet werden sollen.