' 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