Option Explicit On Error Resume Next 'Declare variables Dim WSHShell, n, MyBox, p, p1, p2, t, mustboot, errnum, vers Dim itemtype Dim enab, disab, jobfunc Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogoff" itemtype = "REG_DWORD" mustboot = "Log off and back on, or restart your pc to" mustboot = mustboot & vbCR & "effect the changes" enab = "ENABLED" disab = "DISABLED" jobfunc = "Start Menu Log off is now " 'This section tries to read the registry key value. If not present an 'error is generated. Normal error return should be 0 if value is 'present t = "Confirmation" Err.Clear n = WSHShell.RegRead (p) errnum = Err.Number if errnum <> 0 then 'Create the registry key value for StartMenuLogoff with value 0 WSHShell.RegWrite p, 0, itemtype End If 'If the key is present, or was created, it is toggled 'Confirmations can be disabled by commenting out 'the two MyBox lines below If n = 0 Then n = 1 WSHShell.RegWrite p, n, itemtype Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t) ElseIf n = 1 then n = 0 WSHShell.RegWrite p, n, itemtype Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t) End If