# Zweck:  Importiert ISAM-Datenbanken und Oracle-Dump in eine bestehende
#         MEDISTAR-Installation. Vorhandene Daten werden überschrieben.
 
$DumpFolder = "T:\Sicherung"
$Password = "XXXXXXXX"
$DumpFile = "ORACLE_EXP.DMP"
$MediStar = "${env:MEDISTARDIR}"
 
$ErrorActionPreference = "SilentlyContinue"
$Host.UI.RawUI.WindowTitle = "Wiederherstellung der MEDISTAR-SQL-Sicherung"
 
Function Script-Exit {param([string]$Msg, $Sec) "`n";
  For ($Sec; $Sec -ge 0; $Sec --)
    {Write-Host "`r$Msg Skript wird beendet ($Sec)" -NoNewline;
    Start-Sleep 1}; Exit}
 
If (!(Test-Path -path $DumpFolder\$DumpFile)) {
  # 16 = Desktop, 17 = Computer, 18 = Netz
  $DumpFolder = 17; $Description = "Bitte wählen Sie den Ordner aus,`n" + `
  "der die Datei $DumpFile enthält."}
Else {$Description = "$DumpFile befindet sich im Ordner $DumpFolder.`n" + `
  "Sie können den Import starten. Klicken Sie auf OK."}
$Object = New-Object -comObject Shell.Application
$Folder = $Object.BrowseForFolder(0, $Description, "&H200", $DumpFolder)
If ($Folder -eq $null) {Script-Exit -Msg "Abbruch durch Benutzter." -Sec 3}
Else {$DumpFolder = $Folder.Self.Path; Write-Host "DumpFolder: $DumpFolder"}
If (!(Test-Path -path $DumpFolder\$DumpFile))
  {Script-Exit -Msg "$DumpFile nicht gefunden!" -Sec 3}
Else {Write-Host "$DumpFile gefunden."}
 
$Message = "Beim Restore werden die vorhandenen Daten gelöscht!"
$Object = New-Object -comObject wscript.shell
$Result = $Object.Popup($Message, 0, $myInvocation.MyCommand.Name, 1)
If ($Result -eq 2) {Script-Exit -Msg "Abbruch durch Benutzter." -Sec 3}
 
$CopyFrom = Get-Childitem $DumpFolder | where {$_.psIsContainer -eq $true}
ForEach ($Item in $CopyFrom) {
  $Item = -join ($DumpFolder, "\", $Item, "\*.*")
  $Folder = Split-Path (Split-Path $Item) -leaf
  If (Test-Path "$MediStar\$Folder") {
    Copy-Item -path $Item -dest $MediStar\$Folder -force -passthru}}
 
$SqlFile = "${env:temp}\Temp.sql"
@"
drop user msuser cascade;
commit;
CREATE or REPLACE DIRECTORY imp_dir AS '$DumpFolder';
exit;
"@ | Set-Content $SqlFile
sqlplus sys/$Password as sysdba '@'$SqlFile
 
impdp system/$Password directory=imp_dir dumpfile=$DumpFile full=yes `
logfile=imp_medistar.log
 
"shutdown immediate;", "startup;", "exit;" -join "`n" | Set-Content $SqlFile
sqlplus sys/$Password as sysdba '@'$SqlFile
 
Remove-Item -Path $SqlFile
Write-Host "Fertig. $DumpFolder\imp_medistar.log wird gestartet."
Invoke-Expression $DumpFolder\imp_medistar.log

Sie können die Datei auch herunterladen.

• Treiber von CD installieren
• Lesegerät anstecken (USB-A, Stromversorgung)
• Angezeigten Port merken (z.B. COM4)
• In MEDISTAR Befehl «IDN», Schnittstelle: CRO eintragen
• In MEDISTAR Befehl «IMKT», Port eintragen (z.B. 4)
• Die MEDISTAR-Konfiguration muss für jeden Task erfolgen!

Festlegung Dateinamen

Kartenterminal konfigurieren

Am besten wird die Datenbank vor dem Shutdown sauber heruntergefahren – das beschleunigt den späteren  Neustart!

Mit Hilfe eines Powershell-Skripts lässt sich der Vorgang automatisieren.

Wenn das Skript nicht startet, müssen Sie die Ausführungsrichtlinien anpassen.

Mozillas Browser startet im Vergleich zu Googles Chrome träger. Mit folgendem Workaround lässt sich dieses Manko beseitigen:
Mit Hilfe von QuickKey wird der Browser automatisch bereits beim Rechnerstart geöffnet und sogleich in den Infobereich der Taskleiste minimiert. Damit das funktioniert, muss die Erweiterung «MinimizeToTray revived» installiert sein. Der Browser kann dann jederzeit über die Tastenkombination <Strg+Alt+F> oder durch einen Mausklick auf das Icon im Tray aufgerufen werden. Das erwähnte AddOn bringt einen Button mit, um Firefox erneut ins Tray zu schicken (1.).
Damit Firefox nicht aus Versehen beendet wird, lässt sich in QuickKey einstellen, dass der Schließen-Button in der Titelleiste deaktiviert wird (2.).
Nach mehrfacher Nutzung des Browsers ergibt sich eine größere Zahl geöffneter Tabs, die normalerweise durch das Beenden von Firefox geschlossen werden. Da der Browser geöffnet bleiben soll, verwende ich für das Schließen der Tabs die Erweiterung «Close All Tabs (Reloaded)»(3.).

Übrigens funktioniert das Procedere auch hervorragend mit Thunderbird.

Das folgende VB-Skript ermöglicht von einem beliebigen PC aus zu prüfen, ob es geöffnete Tasks im Netzwerk gibt. Dazu versucht es, die Datei «psync.ism» zu kopieren. Solange ein Task geöffnet ist, wird der Zugriff verweigert.

'Bitte in nachfolgender Zeile den Pfad anpassen.
testFile = "\\Server\d%\MEDISTAR\PDATEN\PSYNC.ISM"
strInfo = "Prüfung auf offene MEDISTAR-Tasks"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFS = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
If objFS.FileExists(testFile) Then
  Set objFile = objFS.GetFile(testFile)
  objFile.Copy(Left(objFile.Path,InStrRev(objFile.Path, "\")) & "PSYNC.BAK")
  If Err.Number > 0 Then  'Zugriff verweigert'
    MsgBox "Es ist noch mindestens ein Task geöffnet!", 48, strInfo
  Else
    WshShell.Popup "MEDISTAR wurde überall beendet.", 3, strInfo
  End If
Else
  MsgBox testFile & vbCrLf & "Die Datei wurde nicht gefunden.", 16, strInfo
End If

Kennen Sie eine andere Möglichkeit?

Man ist also selbst dafür verantwortlich, dass diese Dateien auf einem anderen Medium gesichert werden. Das lässt sich mit Windows-Bordmitteln ein­rich­ten. Hierzu lassen wir z.B. auf einem Arbeitsplatz-PC eine Batch-Datei laufen, die an jedem Wochentag einen anderen Ordner für die Sicherung verwendet.

Wenn die Batchdatei richtig eingerichtet ist, wollen wir das DOS-Fenster nicht mehr sehen – wir bekommen ja nach erfolgter Datensicherung die Logdatei angezeigt. Aus diesem Grund starten wir die Batchdatei ohne sichtbares Fenster mit einem kleinen VB-Skript.

Der dritte Schritt besteht darin, dass die Datensicherung täglich 10 oder 15 Minuten nach der Backup-Erstellung durch den MEDISTAR-Backup-Dienst mit Hilfe der Windows-Aufgabenplanung automatisch startet. Damit das VB-Skript die Batchdatei findet, muss unter «Starten in (optional)» der Pfad angegeben werden. Administratorrechte («mit höchsten Privilegien») sind erforderlich.

Weitere Informationen zu robocopy finden Sie hier.

Um zwischen Duplexfunktion und einfachem Ausdruck schnell wechseln zu können, empfiehlt es sich den Drucker auf allen Arbeitsplätzen zweimal zu installieren. Anschließend wird die Voreinstellung bei einem Drucker auf «Duplex» und bei dem anderen auf «Einfach» gestellt.

Die folgenden Einstellungen (Preferences) bringen dem Player unter anderem einen komfortablen Umgang mit Bewertungen (Rating) bei. Voraussetzung ist die In­stal­lation der Komponente Quick Tagger.

Es ist mit foobar2000 auch möglich, intelligente Wiedergabelisten zu erstellen. Erstellen Sie zum Beispiel in der Album list
View: by rating und Filter: %rating% GREATER 3.
Anschließend wählen sie im Kontextmenü der Album list (rechte Maustaste): «Send to new playlist». Bei späteren Veränderungen der Bewertungen wird diese Wiedergabeliste automatisch aktualisiert.

Es gibt aber ein paar Stellschrauben für die Beschleunigung des Vorgangs:

• Der Dienst „OracleDBConsolemedistar‟ wird für die Ausführung des „Oracle Enterprise Manager Database Control‟ benötigt, einer Browser-basierten, graphischen Bedienoberfläche zur Verwaltung der Datenbank. Der Manager und somit auch der Dienst werden im normalen Betrieb nicht verwendet. Es empfiehlt sich deshalb, den Starttyp dieses Dienstes auf „manuell‟ zu setzen.
  Das gleiche gilt für den Dienst „OracleMTSRecoveryService‟, auch wenn er relativ wenig Zeit zum Starten benötigt. Dieser Dienst stellt Funktionen für den Microsoft-Transaction-Server zur Verfügung, der entweder auf dem Computer nicht vorhanden ist oder nicht genutzt wird.



• In der Server-Konfigurationsdatei „listener.ora‟ lässt sich der Pfad zu den Diensten angeben. Dadurch wird eventuell ein wenig Zeit eingespart. Die Datei befindet sich in folgendem Ordner:
  D:\oracle\product\11.2.0\dbhome_1\NETWORK\ADMIN
  Hier können Sie folgende Zeilen hinzufügen. Die Kommentarzeilen (#) können Sie weglassen.

  # SID_LIST_LISTENER section for listener named LISTENER (default)
# SID_LIST list of SID descriptions.
# SID_DESC service information for a specific database instance
# SID_NAME the Oracle System Identifier (SID) of the instance
# ORACLE_HOME the Oracle home location of the service

  SID_LIST_LISTENER =
(SID_LIST =
(SID_DESC =
(SID_NAME = MEDISTAR)
(ORACLE_HOME = D:\oracle\product\11.2.0\dbhome_1)
)
)


Übrigens prüft mein Tool MSHotkey auf Wunsch, ob die Dienste auf dem Server bereitstehen. Erst danach wird die Autostart-Funktion für den ersten MEDISTAR-Task ausgeführt.