Software

Lebenszeichen bei PC Neustart mailen

Immer mehr PCs arbeiten unbeaufsichtigt. Ob Server, oder Kamera-Überwachungs-PC, manchmal möchte man über einen Neustart gerne informiert werden, um manuelle Aufgaben durchführen zu können (Passwort für verschlüsselte Laufwerke eingeben etc.).

In diesem Beispiel verwenden wir die Windows Aufgabenplanung um eine E-Mail nach einem PC Neustart zu versenden.

Speicherort der Outlook PST Dateien

Abhängig vom verwendeten Kontotyp findet man hier die PST-Dateien von Outlook.

POP3-Konto = C:\Users\Benutzername\Documents\Outlook-Dateien
IMAP-Konto = C:\Users\Benutzername\AppData\Local\Microsoft\Outlook

Syncthing – folder marker missing

Wenn Syncthing einen Ordner nicht mehr synchronisiert und folgende Meldung ausgibt,

INFO: Skipping pull of „Ordnername“ (??????) due to folder error: folder marker missing

langt es in dem zu synchronisierenden Ordner eine leere Datei .stfolder zu erstellen.
Am schnellsten über die Kommandozeile unter Windows

type nul >> "Pfad_zum_Ordnername\.stfolder"

oder unter Linux mit dem touch Befehl

touch "Pfad_zum_Ordnername/.stfolder"

 

CorelDraw Hilfslinien Makro (Beschnitt / Druckerei)

Public Sub Beschnitt_3mm()
    ' Hilfslinien im Abstand von 3mm
    ' von den Rändern des Dokuments entfernt
    ' erzeugen, sowie in der Dokumentenmitte
    '
    ' Litschi.de
    
    Dim s As Shape                      ' Variablen deklarieren
    Dim sx As Double, sy As Double
    Const Abstand As Double = 0.11811   ' Rand 3mm festlegen

    ActivePage.GetSize sx, sy           ' Aktuelle Seitengröße merken

    ' Hilfslinien im Abstand von den Dokumenträndern zeichnen
    Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(Abstand, 0, 90#)
    Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, Abstand, 0#)
    Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(sx - Abstand, 0, 90#)
    Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, sy - Abstand, 0#)
    ' Mittige Hilfslininen
    Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(sx / 2, 0, 90#)
    Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, sy / 2, 0#)
    
End Sub

CorelDraw Macro