Reasonix
880915bf01
- uninstall.vbs：静默卸载（杀进程、清自启项、删快捷方式、删目录、删注册项） - register-uninstall.ps1：注册 HKCU Uninstall 项（设置->应用 可卸载）
34 lines
1.2 KiB
Plaintext
34 lines
1.2 KiB
Plaintext
' DeepSeek Harness uninstaller (silent)
|
|
' Invoked from Windows Apps & Features via UninstallString
|
|
Set ws = CreateObject("WScript.Shell")
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
|
|
' 1. stop app and backend service
|
|
ws.Run "taskkill /F /IM dsh-app.exe /T", 0, True
|
|
ws.Run "taskkill /F /IM node.exe /T", 0, True
|
|
|
|
' 2. remove autostart registry entry
|
|
On Error Resume Next
|
|
ws.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\DeepSeekHarnessService"
|
|
Err.Clear
|
|
|
|
' 3. remove desktop shortcuts
|
|
Dim desktop
|
|
desktop = ws.SpecialFolders("Desktop")
|
|
On Error Resume Next
|
|
If fso.FileExists(desktop & "\DeepSeek Harness.lnk") Then fso.DeleteFile desktop & "\DeepSeek Harness.lnk"
|
|
If fso.FileExists("C:\Users\VanuSystems-Mu\DeskBox\AI\DeepSeek Harness.lnk") Then fso.DeleteFile "C:\Users\VanuSystems-Mu\DeskBox\AI\DeepSeek Harness.lnk"
|
|
Err.Clear
|
|
|
|
' 4. remove uninstall registry key
|
|
On Error Resume Next
|
|
ws.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Uninstall\DeepSeekHarness"
|
|
Err.Clear
|
|
|
|
' 5. remove install directory
|
|
On Error Resume Next
|
|
Dim installDir
|
|
installDir = ws.ExpandEnvironmentStrings("%LOCALAPPDATA%\DeepSeekHarness")
|
|
If fso.FolderExists(installDir) Then fso.DeleteFolder installDir, True
|
|
Err.Clear
|