' ============================================================
' CheckDisableRemoteAssistanceStatus.vbs
'
' Checks whether "Disable Remote Assistance" is currently applied.
'
' Usage: cscript CheckDisableRemoteAssistanceStatus.vbs
' ============================================================

Option Explicit

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

On Error Resume Next
currentValue = objShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Remote Assistance\fAllowToGetHelp")

If Err.Number <> 0 Then
    WScript.Echo "'fAllowToGetHelp' is not set (using the Windows default)."
Else
    WScript.Echo "Current value of 'fAllowToGetHelp': " & currentValue
End If
On Error Goto 0