Option Explicit

Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, n, cn, MyBox, vbdefaultbutton 
Dim itemtype

p1 = "HKEY_USERS\.DEFAULT\Control Panel\Desktop\"

n = ws.RegRead(p1 & "SCRNSAVE.EXE")
t = "Bejelentkezési képernyőkímélő"
cn = InputBox("Adja meg a bejelentkezési képernyőn használt képernyőkímélő nevét: (pl: screensavername.scr)", t, n)
If cn <> "" Then
  ws.RegWrite p1 & "SCRNSAVE.EXE", cn
End If

p1 = "HKEY_USERS\.DEFAULT\Control Panel\Desktop\"

n = ws.RegRead(p1 & "ScreenSaveTimeOut")
t = "Bejelentkezési képernyőkímélő"
cn = InputBox("Adja meg a késleltetés idejét másodpercben:", t, n)
If cn <> "" Then
  ws.RegWrite p1 & "ScreenSaveTimeOut", cn
End If

MyBox = MsgBox("A változások érvénybe lépéséhez jelentkezzen ki.", vbOKOnly,"Kész")