Shell.ExplorerPolicy メソッド

指定した Windows インターネット エクスプローラー ポリシーの値を取得します。

構文

retVal = Shell.ExplorerPolicy(
  bstrPolicyName
)

Shell.ExplorerPolicy( _
  ByVal bstrPolicyName As BSTR _
) As Variant

パラメーター

bstrPolicyName [in]

種類: BSTR

ポリシーの名前を指定する文字列型 ( String ) の値を指定します。

戻り値

JScript

型: Variant*

指定したポリシー名に関連付けられている値。

VB

型: Variant*

指定したポリシー名に関連付けられている値。

解説

ネットワーク管理者は、ポリシーを設定することで、ユーザーのコンピューティング環境を制御および管理できます。

指定した値名は、HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\エクスプローラー サブキー内にある必要があります。 値名が存在しない場合、メソッドは null を返します。

例

次の例は、JScript、VBScript、Visual Basic の ExplorerPolicy の適切な使用方法を示しています。

Jscript：

<script language="JScript">
    function fnIShellDispatch4ExplorerPolicyJ()
    {
        var objShell = new ActiveXObject("shell.application");
        var vReturn;
        
        vReturn = objShell.ExplorerPolicy("ValueName");
        alert(vReturn);
    }
</script>

Vbscript：

<script language="VBScript">
     function fnIShellDispatch4ExplorerPolicyVB()
        dim objShell
        dim vReturn
        
        set objShell = CreateObject("shell.application")
            vReturn = objShell.ExplorerPolicy("ValueName")
            alert(vReturn)
        set objShell = nothing
    end function
 </script>

Visual Basic:

Private Sub fnIShellDispatch4ExplorerPolicyVB()
    Dim objShell As Shell
    Dim vReturn  As Variant
    
    Set objShell = New Shell
        vReturn = objShell.ExplorerPolicy("ValueName")
        Debug.Print vReturn
    Set objShell = Nothing
End Sub

必要条件

要件	値
サポートされている最小のクライアント	Windows XP [デスクトップ アプリのみ]
サポートされている最小のサーバー	Windows Server 2003 [デスクトップ アプリのみ]
Header	Shldisp.h
IDL	Shldisp.idl
[DLL]	Shell32.dll (バージョン 6.0 以降)