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

为什么要设置用户目录？ 由于默认的用户数据路径在C:\Users\用户名\\Local\\Edge\User Data，所以会占用系统盘的空间。 我有强迫症，不管什么样的软件，只要系统盘里写了东西，我就得把他弄到别的地方edge浏览器去广告，不是所有软件都可以，哈哈。

为什么要添加扩展白名单？ 因为出于安全考虑，edge浏览器不允许运行自己封装的插件。

微软新浏览器下载地址

微软新版Edge浏览器下载地址：

链接： 提取码：8kca 解压后可直接运行。 最好在运行前设置好用户数据目录的位置。

官网下载地址：

配置浏览器插件白名单

微软的软件是有文档的，我们打开他的官方文档看看吧！

官方文档地址：

下图中红圈的地方是新版edge浏览器文档的入口，继续点进去看看！

单击“配置边缘”中的第一项。

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

单击 wlist 并配置以允许安装特定扩展。

按照说明将插件ID添加到白名单！

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

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

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

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

组策略配置边缘浏览器设置用户数据目录

上面的操作太麻烦了，怎么办？ 别担心，微软提供了组策略模板文件。

组策略模板下载地址： 链接： 提取码：iywy

按win+r组合键弹出运行框，输入.msc，回车运行。

右键单击管理模板，首先选择“添加/删除模板”

将下载的adm模板文件添加到其中。

添加后，管理模板中会多出“经典管理模板（ADM）”

点击Edgeedge浏览器去广告，注意只点击，不要点击其下方的其他项，在右下角的窗口中即可找到设置的用户数据目录。

单击启用并在选项中填写生成目录的位置。

设置浏览器插件白名单

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

单击选项中的“显示”按钮并添加插件的 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