logoff.vbs - Enable/Disable Start Menu LogOff in Win95/98

  Doug Knox - rev 12/03/99
This code may be freely distributed/modified.

Usage: Download and save logoff.vbs to your hard drive. Navigate to where you
saved it and double click the file (you can also create and use shortcuts). The VB
Script file will check for the appropriate value and if not found will create it. If the
value was found, it will be toggled to its opposite state and you will be informed that
you need to log off/back on or restart your computer.

Note: I assume no responsibility at all for your use of this file. You should always
ensure that you have a good working backup of your System Registry before
tampering with it.

Regards,
Doug Knox
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'logoff.vbs - Enable/Disable LogOff on the Start Menu in Win95/98
'© Doug Knox - dbknox@mediaone.net - rev 12/03/99
'This code may be freely distributed/modified

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\"

p1 = "NoLogOff"

p2 = p  & p1

itemtype = "REG_DWORD"

mustboot = "Log off and back on, or restart your pc to" & vbCR & "effect the
changes"

enab = "ENABLED"

disab = "DISABLED"

jobfunc= "Start Menu LogOff 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 (p2)

errnum = Err.Number

if errnum <> 0 then

'Create the registry key value for NoLogOff with value 0

     WSHShell.RegWrite p2, 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 p2, n, itemtype

Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)

ElseIf n = 1 then

     n = 0

WSHShell.RegWrite p2, n, itemtype

Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)

End If