Disable Bing Search Suggestions (VBScript)

' ============================================================
' SetDisableBingSearch.vbs
'
' Disable Bing Search Suggestions.
' Stops the taskbar search box from showing web/Bing suggestions.
'
' Usage: cscript SetDisableBingSearch.vbs
' ============================================================

Option Explicit

Dim objShell
Set objShell = CreateObject("WScript.Shell")

On Error Resume Next
objShell.RegWrite "HKCU\Software\Policies\Microsoft\Windows\Explorer\DisableSearchBoxSuggestions", 1, "REG_DWORD"

If Err.Number = 0 Then
    WScript.Echo "Disable Bing Search Suggestions applied."
Else
    WScript.Echo "Failed to apply tweak (Error " & Err.Number & ": " & Err.Description & ")"
End If
On Error Goto 0