微软新版edge浏览器设置用户目录和插件白名单

微软新版edge浏览器设置用户目录和插件白名单

  为什么要设置用户目录呢？因为默认的用户数据路径在C:\Users\用户名\AppData\Local\Microsoft\Edge\User Data，占用的是系统盘的空间。本人有强迫症，不管是什么软件只要在系统盘有写东西的，都要把他弄到别的地方去，不是所有的软件都可以，哈哈。
  为什么要添加扩展的白名单？因为edge浏览器出于安全考虑，不允许运行自己打包的插件。

微软新版浏览器下载地址

  微软新版edge浏览器下载地址：
链接:https://pan.baidu.com/s/1vLqAWzYyHmdfacI1Xc-JHw 提取码:8kca解压后直接运行就行，运行前最好先设置用户数据目录的位置。
官网的下载地址：https://www.microsoft.com/zh-cn/edge

配置浏览器插件的白名单

  微软的软件是有文档的，所以还是打开他的官方文档看看吧！
  官方文档地址：https://docs.microsoft.com/zh-cn/documentation/
下图红色圈住的地方就是新版edge浏览器文档说明的入口啦，继续点进去看看吧！

  点击配置Microsoft Edge中的第一项。

  下图是进入扩展配置说明，点击Extensions。

  点击ExtensionInstallAllowlist，配置允许安装特定扩展。

  按照说明添加插件的ID为白名单吧！

  下图是作者配置浏览器插件的白名单。

  配置完白名单后重新安装插件直接覆盖安装插件即可启用插件，或者使用插件管理工具可以直接启用插件。

配置浏览器的用户数据目录

下图是作者在注册表中配置用户数据目录的情况。

组策略配置edge浏览器

设置用户数据目录

  上面的操作太麻烦了，怎么办？别担心，微软提供了组策略模板文件。
组策略模板下载地址：链接:https://pan.baidu.com/s/1DO1wlH5O2m7ufMf3qsUllg 提取码:iywy
按win+r组合键弹出运行框，输入gpedit.msc，回车运行。

在管理模板上鼠标右击，先择“添加/删除模板”

把下载的adm模板文件添加进去。

添加之后会在管理模板中多出“经典管理模板(ADM)”

点击Microsoft Edge，注意只是点击不要点击他下面的其他项，在右边窗口拉到最下面可以找到设置用户数据目录。

点击已启用，在选项中填写生成目录的位置。

设置浏览器的插件白名单

按照图中的路径找到允许安装特定扩展，打开配置。

点击选项中的显示按钮，添加插件的ID。

使用脚本进行简单的配置

如果组测路配置都嫌麻烦，那就脚本配置吧！
代码如下（请把代码保存为后缀是vbs的文本文档中，管理员运行cmd，在cmd中执行，作者博客中有关于cmd的文章）：

'用户数据目录
Const UserData = "E:\Program Files (x86)\Edge\User Data"
dim ID(23)
ID(0) = "oacccigibnhknimomblkgnnknokobkgk" 'm3u8播放器
ID(1) = "mdcboogonghkifamafmkfamkopeofcpi" 'MarkDown编辑器
ID(2) = "mceihcdgojacfiipgbbnpeelpheokdgf" '百度脑图
ID(3) = "epploikcndceikngcdgpbdfhnhcaedmn" '网页源代码下载器
ID(4) = "pkabmdndgkenhbfmlhpdcpdklabhmkdg" '右键快速搜索
ID(5) = "kfdfpkajdbifejgiaihefngiaalcfmob" '圣经
ID(6) = "bbjhmncgnmodlgeeikinoincofdfjibn" '图片压缩
ID(7) = "ddlpeeiieipmdajklnoodnhkkljideic" 'Bubble Pirates
ID(8) = "comockimdlnkobopcffpmhceepgkkhkc" '僵尸鸭猎手
ID(9) = "khnbnmkpkifbachoaphaeaiaekngimkl" '小心女司机
ID(10) = "dhnjmpeahllnbmhfimlkbmlhihlopkgm" '捕鱼人
ID(11) = "gildppbmnpblhmafekoagncabhgdihee" '海盗僵尸杀杀杀
ID(12) = "gpcmpgofdoodpdakancchclofhckfhlm" '皇家守卫
ID(13) = "ajigikgibgpleigfdkgnclplgkemkgji" '蜘蛛纸牌电脑版
ID(14) = "doeliappgapibdhdiaepdbliablcgpej" '逗你玩
ID(15) = "lcmjikllnohafjkghbhfkloeikiphphg" '飞行员闯关游戏
ID(16) = "bfplgkahnhfbicenkbabddacjcgfbmgh" '3D魔方小游戏
ID(17) = "cfbfdkcmicclhlfjaepjnpdalmkchjml" '轮胎找汽车小游戏
ID(18) = "paoganpfepfbiomjhblggdjgknhahdak" '魔法鸡蛋射击游戏
ID(19) = "bgijijfmpaacmbkdahilpjnmonpelmii" '圈小猫
ID(20) = "igmpjilphhflgbidgjemanmafcboeeci" '神箭手
ID(21) = "bnpgpgopongpemjihchaandcjhndlagp" '手机挖矿先生
ID(22) = "ipiempmglmnfacdinmnmkojpjndkcjgn" '土豆历险记
ID(23) = "biomlfkeemdaihfpchdleaolhiapijko" '五子棋

Const ExtensionInstallAllowlist = "SOFTWARE\Policies\Microsoft\Edge\ExtensionInstallAllowlist"
Const UserDataDir = "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Edge\UserDataDir"
Const DefaultBrowserSettingEnabled = "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Edge\DefaultBrowserSettingEnabled"

Set WS=WScript.CreateObject("WScript.Shell")
t=WS.regwrite(UserDataDir,UserData)
t=WS.regwrite(DefaultBrowserSettingEnabled,1,"REG_DWORD")
UserData1=WS.regread(UserDataDir)
wscript.echo UserData1

for i = 0 to ubound(ID)
	
	call setKeyValue(HKLM,ExtensionInstallAllowlist,ID(i))
next

'添加白名单ID
Const HKCU = &H80000001
Const HKLM = &H80000002
sub setKeyValue(HK,strKeyPath,value)
	call isReg("HKEY_LOCAL_MACHINE\" & strKeyPath & "\")
	on error resume next
	Set oReg = GetObject("Winmgmts:\root\default:StdRegProv")
	oReg.EnumValues HK,strKeyPath,arrValueNames,arrValueTypes
	if err.number=0 then
		For Each strKey In arrValueNames
			oReg.GetStringValue HK,strKeyPath,strKey,strValue
			if strValue = value then
				Wscript.Echo "id已存在：" & strValue
				exit sub
			end if
		Next
	else
		index = 1
	end if
	if err.number=0 then
		index = ubound(arrValueNames) + 1
	else
		index = 1
	end if
	Wscript.Echo "id已添加：" & value
	Set WS=WScript.CreateObject("WScript.Shell")
	t=WS.regwrite("HKEY_LOCAL_MACHINE\" & strKeyPath & "\" & index,value)
end sub

'判断注册表是否存在，不存在添加
sub isReg(regPath)
	set ws=createobject("wscript.shell")
	on error resume next
	value=ws.regread(regPath)
	if err.number<>0 then
		Wscript.Echo "注册表值" & regPath & "不存在，正在写入。"
		err.clear
		ws.regwrite regPath,""
		if err.number<>0 then msgbox "写入失败。",16
	end if
end sub


'获取某一项的所有子项
function getAllSession(HK,strKeyPath)
	strComputer = "."
	Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
	oReg.EnumKey HK, strKeyPath, arrSubKeys
	For Each subkey In arrSubKeys
		Wscript.Echo subkey
	Next
end function
'mshta vbscript:createobject("shell.application").shellexecute("c","cscript /nologo "$(FULL_CURRENT_PATH)" & pause","","runas",1)(window.close)

家庭版win10没有组测路怎么办

度娘后解决办法是把批处理代码保存到后缀为bat或cmd的文本文档中，以管理员身份运行，即可成功安装组策略编辑器。
代码如下：

@echo off
pushd “%~dp0”
dir /b C:\Windows\servicing\Packages\Microsoft-Windows-GroupPolicy-ClientExtensions-Package~3*.mum >List.txt
dir /b C:\Windows\servicing\Packages\Microsoft-Windows-GroupPolicy-ClientTools-Package~3*.mum >>List.txt
for /f %%i in (‘findstr /i . List.txt 2^>nul’) do dism /online /norestart /add-package:”C:\Windows\servicing\Packages\%%i”
pause