- Offizieller Beitrag
Hi,
ich habe häufiger das Problem, dass Kunden an ihren PC's sinnlose Spielereien mit dem Bildschirmschoner betreiben. Der Folgenutzer weiß davon nix und ruft dann in Panik den Service (also mich ) an, weil plötzlich seine Anwendung verschwindet.
Also habe ich jetzt ein Script erstellt, dass den momentanen Bildschirmschoner abschaltet und gleichzeitig den Reiter "Bildschirmschoner" von den Anzeigeeinstellungen entfernt.
Somit ist nur noch über Registryzugriff ein Bildschirmschoner aktivierbar.
Dim $CurrSvrKey = "HKEY_CURRENT_USER\Control Panel\Desktop"
Dim $CurrSvr = "SCRNSAVE.EXE"
Dim $IsActive = "ScreenSaveActive"
Dim $key = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System"
Dim $valname = "NoDispScrSavPage"
Dim $type = "REG_SZ"
Dim $val = 1
; aktuellen Bildschirmschoner deaktivieren
RegWrite($CurrSvrKey, $IsActive, $type, 0)
RegDelete($CurrSvrKey, $CurrSvr)
; Reiter "Bildschirmschoner" entfernen
RegRead($key, $valname)
If @error = 0 Then
MsgBox(0,"","Registry Schlüssel ist bereits vorhanden")
Else
If RegWrite($key, $valname, $type, $val) = 1 Then
MsgBox(0,"","Registry Schlüssel erfolgreich aktualisiert.")
Else
MsgBox(0,"","Aktualisierung Registry Schlüssel fehlgeschlagen.")
EndIf
EndIf