#cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.6.1
    Author:         SpyTec

    Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------
#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
GLobal $p, $Progress1
LoginForm()

Func LoginForm()
    Local $LoginForm, $RestoreKey, $DeleteKey, $DeleteLogin, $Progress1, $RestoreLogin, $msg, $p
    $LoginForm = GUICreate("Login Background Changes", 274, 137, 196, 121)
    $RestoreKey = GUICtrlCreateButton("Restore Registry Key", 16, 56, 113, 33)
    $DeleteKey = GUICtrlCreateButton("Delete Registry Key", 16, 16, 113, 33)
    $DeleteLogin = GUICtrlCreateButton("Delete Login BG", 144, 16, 113, 33)
    $Progress1 = GUICtrlCreateProgress(16, 96, 241, 25)
    $RestoreLogin = GUICtrlCreateButton("Restore Login BG", 144, 56, 113, 33)
    GUISetState()

    Do
        $msg = GUIGetMsg()
            If $msg = $RestoreKey Then RecKey()
            If $msg = $DeleteKey Then DelKey()
            If $msg = $DeleteLogin Then OobeCnD()
            If $msg = $RestoreLogin Then OobeCnR()
        Until $p = 100
    If $p = 100 Then Exit

EndFunc   ;==>LoginForm

Func RecKey()
    Local $LBG, $rec
    Dim $Progress1, $p
    $p = 0
    $rec = RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground", "REG_DWORD", "1")
    If $rec = 0 Then MsgBox(048, "Error", "Unable to restore keys at error: " & @error)
    For $Progress1 = $p to 100 Step 100
        Do
            $p = 100
            Until $p = 100
        If $p = 100 Then SoundPlay(@WindowsDir  & "\Media\Windows - ding.wav", 1)
        GUICtrlSetData($Progress1, $p)
    Next
    Return ($Progress1)
EndFunc   ;==>RecKey

Func DelKey()
    Local $LBG, $del, $ex
    $del = RegDelete($LBG, "OEMBackground")
    $ex = $LBG & "\OEMBackground"
    If $del = 0 Then MsgBox(048, "Error", "Unable to delete selected registry keys at: " & $ex)
EndFunc   ;==>DelKey

Func OobeCnD()
    Local $CnD_copy, $CnD_CEr, $CnD_del
    $CnD_copy = DirCopy("C:\Windows\System32\oobe\Info", @ScriptDir & "\Info", 1)
    If $CnD_copy = 0 Then $CnD_CEr = MsgBox(4144, "Failure", "Couldn't copy source dir.")
    If $CnD_CEr = 1 Then Exit
    $CnD_del = DirRemove("C:\Windows\System32\oobe\Info", 1)
    If $CnD_del = 0 Then $CnD_CEr = MsgBox(4144, "Failure", "Couldn't copy source dir.")
    If $CnD_CEr = 1 Then Exit
EndFunc   ;==>OobeCnD

Func OobeCnR()
    Local $CnR_copy, $CnR_CEr, $CnR_del
    $CnR_copy = DirCopy(@ScriptDir & "\Info", "C:\Windows\System32\oobe\Info", 1)
    If $CnR_copy = 0 Then $CnR_CEr = MsgBox(4144, "Failure", "Couldn't copy source dir.")
    If $CnR_CEr = 1 Then Exit
    $CnR_del = DirRemove(@ScriptDir & "\Info", 1)
    If $CnR_del = 0 Then $CnR_CEr = MsgBox(4144, "Failure", "Couldn't copy source dir.")
    If $CnR_del = 1 Then Exit
EndFunc   ;==>OobeCnR