' ============================================================
' CheckShowRecycleBinOnDesktopStatus.vbs
'
' Checks whether "Show Recycle Bin Icon on Desktop" is currently applied.
'
' Usage: cscript CheckShowRecycleBinOnDesktopStatus.vbs
' ============================================================

Option Explicit

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

On Error Resume Next
currentValue = objShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{645FF040-5081-101B-9F08-00AA002F954E}")

If Err.Number <> 0 Then
    WScript.Echo "'{645FF040-5081-101B-9F08-00AA002F954E}' is not set (using the Windows default)."
Else
    WScript.Echo "Current value of '{645FF040-5081-101B-9F08-00AA002F954E}': " & currentValue
End If
On Error Goto 0