Dim WSHShell,r,M,v,t,g,i
On Error Resume Next
Set WSHShell=("")
v="HKCU\Software\Microsoft\Windows\CurrentVersion\
Policies\System\DisableRegistryTools"
i="REG_DWORD"
t="Registration Switch"
r=(v)
g=1
If (r=1) Then g=0
If g=1 Then
v,1,i
M=MsgBox("Does the registry editor restrict?",4,t)
Else
v
M=MsgBox("Is the registry editor restriction lifted?",4,t)
End If