On Error Resume Next

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoTrayContextMenu", 1, "REG_DWORD"

Message = "The Start Button's context menu has been disabled."

X = MsgBox(Message, vbOKOnly, "Done")
Set WshShell = Nothing