Hinzufügen von Nachrichten zum Win7-Anmeldebildschirm

Hinzufügen von Nachrichten zum Win7-Anmeldebildschirm

Ich folge dem TutorialHierum zum Anmeldebildschirm zu wechseln, funktioniert es bisher. Allerdings hätte ich, wenn möglich, gerne etwas mehr Funktionalität.

Ich kann einTitelindem Sie den folgenden Registrierungsschlüssel bearbeiten;

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System

legalnoticecaption

Ich kann auch hinzufügen,Nachrichtdurch Bearbeiten

legalnoticetext 

Ich hätte jetzt gerne noch einbeachtensagen "Dieser Computer ist seit x Minuten gesperrt".

Was muss ich bearbeiten/erstellen, um dies zu erreichen? Ist das überhaupt möglich?

Der Grund hierfür ist, dass in unserem Labor einige der PCs gesperrt sind und Benutzer sie einfach verlassen. Sie melden sich zwar nach 30 Minuten ab, ich möchte jedoch anderen vorbeigehenden Benutzern deutlich anzeigen, wie lange ein PC gesperrt war.

Antwort1

Gleich vorweg: Dies ist von Haus aus nicht möglich.

JEDOCH! es kann über ein Skript möglich sein.

Theoretisch könnten Sie ein kleines VBScript-Stück schreiben, um den Registrierungsschlüssel jede Minute oder alle zwei Minuten mit einem neuen Wert zu aktualisieren, indem die Startzeit des Bildschirmschoners gelesen wird.

Dieser Scripting-TypBeitrag zeigt Ihnen, wie Sie lesen können, wann ein Bildschirmschoner aktiviert wurde. Wenn Sie einen Datums-/Zeitunterschied durchführen und die verstrichene Zeit ermitteln, sollten Sie in der Lage sein,Aktualisieren Sie den Registrierungsschlüsselmit „Bildschirmschoner läuft seit x Minuten“.

Dies setzt voraus, dass der Schlüssel zum rechtlichen Hinweis jedes Mal gelesen wird, wenn er angezeigt wird. Ich habe momentan weder das Ersatzkit noch die Zeit zum Testen, aber es sollte Sie in die richtige Richtung weisen.

Dies könnte als geplante Aufgabe festgelegt werden, die alle ein bis zwei Minuten ausgeführt wird.

Es ist nicht ganz sauber, aber könnte funktionieren ... gerade so.

Versuchen Sie etwas wie:

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process")

For Each objProcess in colProcesses
    If Right(objProcess.Name, 4) = ".scr" Then
        Wscript.Echo "Screen saver start time: " & DateDiff("n",WMIDateStringToDate(objProcess.CreationDate),now())
        'Set Registry Key to "x mins"
    End If
Next

Wscript.Echo "The screen saver is not running."
'Set Registry Key to "0 minutes"

Function WMIDateStringToDate(dtmStart)
    WMIDateStringToDate = CDate(Mid(dtmStart, 5, 2) & "/" & Mid(dtmStart, 7, 2) & "/" & Left(dtmStart, 4) & " " & Mid (dtmStart, 9, 2) & ":" & Mid(dtmStart, 11, 2) & ":" & Mid(dtmStart,13, 2))
End Function

verwandte Informationen