38 lines
1.7 KiB
Batchfile
38 lines
1.7 KiB
Batchfile
@echo off
|
|
c:
|
|
cd c:\windows\system32
|
|
|
|
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ShellIconOverlayIdentifiers\ OneDrive1" /f
|
|
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ShellIconOverlayIdentifiers\ OneDrive2" /f
|
|
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ShellIconOverlayIdentifiers\ OneDrive3" /f
|
|
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ShellIconOverlayIdentifiers\ OneDrive4" /f
|
|
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ShellIconOverlayIdentifiers\ OneDrive5" /f
|
|
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ShellIconOverlayIdentifiers\ OneDrive6" /f
|
|
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ShellIconOverlayIdentifiers\ OneDrive7" /f
|
|
|
|
Call :_RestartExplorer
|
|
echo Íê³É£¡
|
|
pause
|
|
|
|
:: ÖØÆô Explorer
|
|
goto :eof
|
|
:_RestartExplorer
|
|
(
|
|
echo Dim arrURL^(^), strURL, oShell, oWin, n
|
|
echo n = -1
|
|
echo Set oShell = CreateObject^("Shell.Application"^)
|
|
echo For Each oWin In oShell.Windows
|
|
echo If Instr^(1, oWin.FullName, "\explorer.exe", vbTextCompare^) Then
|
|
echo n = n + 1
|
|
echo ReDim Preserve arrURL^(n^)
|
|
echo arrURL^(n^) = oWin.LocationURL
|
|
echo End If
|
|
echo Next
|
|
echo CreateObject^("WScript.Shell"^).run "tskill explorer", 0, True
|
|
echo For Each strURL In arrURL
|
|
echo oShell.Explore strURL
|
|
echo Next
|
|
)>"%temp%\RestartExplorer.vbs"
|
|
CScript //NoLogo "%temp%\RestartExplorer.vbs"
|
|
del /q /f "%temp%\RestartExplorer.vbs"
|
|
goto :eof |