LTSC 2021卸载自带Edge的vbs脚本

makiwu

请有远景论坛帮忙转LTSC 2021卸载自带Edge的vbs脚本，谢谢！https://bbs.pcbeta.com/viewthread-1913155-1-1.html

黑中见白

X:\Program Files\Windows
文件夹强行删就行

fulibo

@Edge
在 PowerShell 中，键入：

taskkill /F /IM browser_broker.exe
taskkill /F /IM RuntimeBroker.exe
taskkill /F /IM MicrosoftEdge.exe
taskkill /F /IM MicrosoftEdgeCP.exe
taskkill /F /IM MicrosoftEdgeSH.exe
mv C:\Windows\SystemApps\Microsoft.MicrosoftEdge_8wekyb3d8bbwe C:\Windows\SystemApps\Microsoft.MicrosoftEdge_8wekyb3d8bbwe_BAK
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\MicrosoftEdge.exe" /v Debugger /t REG_SZ /d "%windir%\System32\taskkill.exe" /f
Get-WindowsPackage -Online | Where PackageName -like *InternetExplorer* | Remove-WindowsPackage -Online -NoRestart

试一试这个

magicgenius

1. 
   
2. set "ea=%ProgramFiles(x86)%\Microsoft\Edge\Application%
   
3. dir /o-n /ad /b "%ea%" >%temp%\edge.txt
   
4. for /f "delims=" %%i in (%temp%\edge.txt) do set eg=%%i
   
5. "%ea%\%eg%\Installer\setup.exe"  --uninstall --force-uninstall --system-level
   
6. 
   
7. rd /q /s "%ProgramFiles(x86)%\Microsoft"
   
8. rd /q /s "%LOCALAPPDATA%\Microsoft\Edge"
   
9. rd /q /s "%LOCALAPPDATA%\Microsoft\EdgeBho"
   
10. rd /q /s "%SystemDrive%\Users\Default\AppData\Local\Microsoft\Edge"
    
11. rd /q /s "%SystemDrive%\Users\Default\AppData\Local\Microsoft\EdgeBho"
    
12. rd /q /s "%ProgramData%\Microsoft\EdgeUpdate"
    
13. 
    
14. del /f /q "%LOCALAPPDATA%\Microsoft\WindowsApps\MicrosoftEdge.exe"
    
15. 
    
16. takeown /f "%SystemDrive%\Users\Default\AppData\Local\Microsoft\WindowsApps\Microsoft.MicrosoftEdge_8wekyb3d8bbwe"
    
17. cacls  "%SystemDrive%\Users\Default\AppData\Local\Microsoft\WindowsApps\Microsoft.MicrosoftEdge_8wekyb3d8bbwe" /E /P everyone:F >nul 2>nul
    
18. rd /q /s "%SystemDrive%\Users\Default\AppData\Local\Microsoft\WindowsApps\Microsoft.MicrosoftEdge_8wekyb3d8bbwe"
    

复制代码

pkups

http://bbs.wuyou.net/forum.php?m ... d=428569&extra=

官方有提供彻底卸载接口，为什么不用？

这是饭店

' 卸载LTSC 2021内置Edge
Option Explicit
Dim fs : Set fs = CreateObject("Scripting.FileSystemObject")
Dim sh : Set sh = CreateObject("WScript.Shell")

On Error Resume Next
sh.RegRead("HKEY_USERS\S-1-5-19\Environment\TEMP")
If Err.number <> 0 Then
    CreateObject("Shell.Application").ShellExecute "wscript", """" & WScript.ScriptFullName & """", ,"runas", 1
    WScript.Quit
End If
On Error Goto 0

Dim i, UserSID
For Each i In GetObject("winmgmts:\\.\").ExecQuery("SELECT * FROM Win32_UserAccount WHERE Name LIKE '" & CreateObject("WScript.Network").UserName & "'")
    UserSID = i.SID
Next
Const AppxEOL = "HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Appx\AppxAllUserStore\EndOfLife"
PSRun "foreach ($i in (Get-AppxProvisionedPackage -Online|? {$_.PackageName -Like '*MicrosoftEdge*'}).PackageName) {" &_
        "New-Item """ & AppxEOL & "\" & UserSID & "\$i"" -Force;" &_
        "New-Item """ & AppxEOL & "\S-1-5-18\$i"" -Force;" &_
        "Remove-AppxProvisionedPackage -Online -PackageName $i}"
PSRun "foreach ($i in (Get-AppxPackage -allusers *MicrosoftEdge*).PackageFullName) {" &_
        "New-Item """ & AppxEOL & "\" & UserSID & "\$i"" -Force;" &_
        "New-Item """ & AppxEOL & "\S-1-5-18\$i"" -Force;" &_
        "Remove-AppxPackage -AllUsers -Package $i}"
CMDRun "forfiles /S /P ""%ProgramFiles(x86)%\Microsoft\Edge"" /M setup.exe /C ""cmd /C " &_
        "@path --uninstall --system-level --verbose-logging --force-uninstall --delete-profile"""
While fs.FolderExists(sh.ExpandEnvironmentStrings("%ProgramFiles(x86)%") & "\Microsoft\EdgeUpdate")
    WScript.Sleep 5000
Wend
CMDRun "cmd /C RD /S /Q ""%ProgramFiles(x86)%\Microsoft\Edge"""
CMDRun "cmd /C DEL /F /Q /S ""%SystemDrive%\Microsoft Edge*.lnk"""

MsgBox "删除成功"

Sub CMDRun(sCommand)
    sh.Run sCommand, 0, True
End Sub

Sub PSRun(sCommand)
    sh.Run "powershell -nop -c """ & sCommand & """", 0, True
End Sub

真的小白

感谢分享，下载学习

3408

官方有提供彻底卸载接口

glzd

Edge 难道不好用？有仇恨？非得卸掉？

zjd1979

感谢分享

nfans

不用10，没这烦恼…… 楼上几位大佬批处理很强大，学习了

flyingdancex

我用TotalUninstall Pro 加上边的批处理，VBS几种方式才卸载干净的，C盘凡是有EDGE都得干掉，那个APPS很是烦人，一不留神EDGE就Will Be Back

yuanjing

感谢大佬们分享，学习了