web-dev-qa-db-ja.com

グループポリシーエディターが管理者アカウントを制限していますか?

こんにちは私は自分のPCで問題を作成しました、そして今私は本当に愚かだと感じています。 「gpedit.msc」を介して、最近作成された標準ユーザーアカウントで特定のプログラムへのアクセスを制限しようとしました。特定のアカウントにアクセスさせたいプログラムのリストを完成させた後、それを管理者アカウントにも適用しました。私はwin7 prox64を使用しています。

リストにある4つのプログラム以外にはアクセスできず、他のすべてのプログラムが拒否されます。このエラーが発生したため、グループポリシーエディター(gpedit.msc)に戻ることさえできません。

「このコンピューターの制限により、この操作はキャンセルされました。システム管理者に連絡してください。」

私はシステム管理者ですが、わかりませんか?私は文字通り何かをすることも開くこともできません。私は何をしますか?私は基本的に自分のコンピューターから自分を締め出しているので、とても愚かだと感じています。私はこのリンクでそれが言ったことに従いました ハウツーオタク

助けてください!!

2
Sylvoo

いくつか検索した後、答えを見つけることができました。この答えは、 Server Fault のこの質問からのもので、 San Jac によって投稿されました。

Gpeditのシステム設定を誤って変更して同じ問題が発生しました。私がGreyloxから得たこの修正を試してください....それは私のために働きました。

  1. 「実行」を開き、%systemroot%\system32\GroupPolicy\Userと入力します

  2. registry.polを削除します(存在する場合)。

  3. %systemroot%\system32\GroupPolicy\Machineに移動し、registry.polを削除します(存在する場合)。

  4. システムを再起動します。

  5. 管理者アカウントを使用してログインし、新しい管理者アカウントを作成します。

  6. コンピューターを再起動し、新しい管理者アカウントでログインします。

  7. 「実行」を開き、gpedit.mscと入力します

  8. 「ローカルコンピュータポリシー」→「ユーザー設定」→「管理用テンプレート」→「システム」→「指定したWindowsアプリケーションのみを実行する」(以下を参照)に移動し、無効にします。

Local Group Policy Editor screenshot

  1. gpupdate /forceを実行し、古い管理者アカウントでログインします。
1
Sylvoo

コマンドプロンプトを使用して管理者を作成できない場合は、グループポリシーをリセットしてください。

  1. 以下のスクリプトをメモ帳にコピーして、{ファイル名} .vbsとして保存します
  2. スクリプトを実行します。

これにより、適用されているすべてのGPOがリセットされます。

    If WScript.Arguments.Count = 0 Then
    Set objShell = CreateObject("Shell.Application")
    objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1
Else

set winsh = CreateObject("WScript.Shell")
set winenv = winsh.Environment("Process")
windir = winenv("WinDir")

strPath = (WinDir & "\System32\GroupPolicy")

    DeleteFolder strPath

    Function DeleteFolder(strFolderPath)
    Dim objFSO, objFolder
    Set objFSO = CreateObject ("Scripting.FileSystemObject")
    If objFSO.FolderExists(strFolderPath) Then
    objFSO.DeleteFolder strFolderPath, True
    End If
    Set objFSO = Nothing
    End Function

strPath = (WinDir & "\System32\GroupPolicyUsers")

    DeleteFolder strPath

    Function DeleteFolder(strFolderPath)
    Dim objFSO, objFolder
    Set objFSO = CreateObject ("Scripting.FileSystemObject")
    If objFSO.FolderExists(strFolderPath) Then
    objFSO.DeleteFolder strFolderPath, True
    End If
    Set objFSO = Nothing
    End Function

winsh.Run "gpupdate /force", 0

End If

ローカルグループポリシーをリセットする方法 も参照してください。

0
pun