'drives.vbs - Enables Open and Explore when Start button is
'right clicked
'© Doug Knox - rev 12/04/99
'Downloaded from www.dougknox.com

Option Explicit
On Error Resume Next

'Declare variables
Dim WSHShell, MyBox, p, p1, p2, t
Dim jobfunc

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
p1 = "NoDrives"
p2 = p  & p1
jobfunc = "Open and Explore will be restored" 
jobfunc = jobfunc & vbCR & "when you log off/backon." 
jobfunc = jobfunc & vbCR & "or restart your computer."

'This section deletes the Registry value
WSHShell.RegDelete p2
t = "Confirmation"
MyBox = MsgBox (jobfunc, 4096, t)