微软新版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