Here is a vbScript example by which you can Enable or Disable Changes to the Start Menu
Open notepad, copy & paste the following code:
Option Explicit
Dim WSHShell, RegKey, NoChangeStartMenu, Result
Set WSHShell = CreateObject ("WScript.Shell")
RegKey =
"HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\"
NoChangeStartMenu = WSHShell.RegRead (regkey & "NoChangeStartMenu")
If NoChangeStartMenu = 1 Then 'Changes in Start Menu are disabled
Save it
When you run this script, it will tell you the current state of your start menu, wether it is changeable or not
This script works as a toggle switch
Open notepad, copy & paste the following code:
Option Explicit
Dim WSHShell, RegKey, NoChangeStartMenu, Result
Set WSHShell = CreateObject ("WScript.Shell")
RegKey =
"HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\"
NoChangeStartMenu = WSHShell.RegRead (regkey & "NoChangeStartMenu")
If NoChangeStartMenu = 1 Then 'Changes in Start Menu are disabled
Result = MsgBox ("Your Start Menu is currently locked." & _
vbNewLine & "Would you like to unlock?", 36)
If Result = 6 Then 'if you clicked yes
WSHShell.RegWrite regkey & "NoChangeStartMenu", 0
End If
Else 'Start Menu can be changedvbNewLine & "Would you like to unlock?", 36)
If Result = 6 Then 'if you clicked yes
WSHShell.RegWrite regkey & "NoChangeStartMenu", 0
End If
Result = MsgBox ("You can change start menu." & _
vbNewLine & "Would you like to prohibit changes?", 36)
If Result = 6 Then 'if you clicked yes
WSHShell.RegWrite regkey & "NoChangeStartMenu", 1
End If
End IfvbNewLine & "Would you like to prohibit changes?", 36)
If Result = 6 Then 'if you clicked yes
WSHShell.RegWrite regkey & "NoChangeStartMenu", 1
End If
Save it
When you run this script, it will tell you the current state of your start menu, wether it is changeable or not
This script works as a toggle switch
Comment