Méthode Shell.IsRestricted

Récupère le paramètre de restriction d’un groupe à partir du Registre.

Syntaxe

iRetVal = Shell.IsRestricted(
  sGroup,
  sRestriction
)

Shell.IsRestricted( _
  ByVal sGroup As BSTR, _
  ByVal sRestriction As BSTR _
) As Integer

Paramètres

sGroup [in]

Type : BSTR

Chaîne qui contient le nom du groupe. Cette valeur est le nom d’une sous-clé de Registre sous laquelle case activée pour la restriction.

sRestriction [in]

Type : BSTR

Chaîne qui contient la restriction dont la valeur doit être récupérée.

Valeur retournée

JScript

Type : Integer*

Valeur de la restriction. Si la restriction spécifiée est introuvable, la valeur de retour est 0.

VB

Type : Integer*

Valeur de la restriction. Si la restriction spécifiée est introuvable, la valeur de retour est 0.

Notes

IsRestricted recherche d’abord un nom de sous-clé qui correspond à sGroup sous la clé suivante.

HKEY_LOCAL_MACHINE
   Software
      Microsoft
         Windows
            CurrentVersion
               Policies

Les restrictions sont déclarées en tant que valeurs des sous-clés de stratégie individuelles. Si la restriction nommée dans sRestriction se trouve dans la sous-clé nommée dans sGroup, IsRestricted retourne la valeur actuelle de la restriction. Si la restriction est introuvable sous HKEY_LOCAL_MACHINE, la même sous-clé est cochée sous HKEY_CURRENT_USER.

Cette méthode n’est actuellement pas disponible dans Microsoft Visual Basic.

Exemples

Les exemples suivants montrent l’utilisation de IsRestricted pour récupérer la valeur de données de la restriction undockwithoutlogon à partir de la sous-clé Système . L’utilisation est indiquée pour JScript et VBScript.

Jscript:

<script language="JScript">
    function fnIsRestricedJ()
    {
        var objShell = new ActiveXObject("shell.application");
        var lReturn;
        
        lReturn = objShell.IsRestricted("system", "undockwithoutlogon");
        document.write(lReturn);
    }
</script>

Vbscript:

<script language="VBScript">
    function fnIsRestricedVB()
        dim objShell
        dim lReturn

        set objShell = CreateObject("shell.application")

        lReturn = objShell.IsRestricted("system", "undockwithoutlogon")
        document.write(lReturn)

        set objShell = nothing
    end function
</script>

Spécifications

Condition requise	Valeur
Client minimal pris en charge	Windows 2000 Professionnel, Windows XP [applications de bureau uniquement]
Serveur minimal pris en charge	Windows Server 2003 [applications de bureau uniquement]
En-tête	Shldisp.h
IDL	Shldisp.idl
DLL	Shell32.dll (version 5.0 ou ultérieure)