From 0e9b185152b56ff33fe8a2a89a4f84923a308300 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=B6rg=20Frings-F=C3=BCrst?= <debian@jff.email>
Date: Mon, 14 Sep 2020 12:27:22 +0200
Subject: New upstream version 3.1.7

---
 setup/delsvc.vbs | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 setup/delsvc.vbs

(limited to 'setup/delsvc.vbs')

diff --git a/setup/delsvc.vbs b/setup/delsvc.vbs
new file mode 100644
index 0000000..35fd264
--- /dev/null
+++ b/setup/delsvc.vbs
@@ -0,0 +1,27 @@
+' This VBScript should run before any files are actually removed
+
+On Error Resume Next
+
+Set sh = CreateObject("WScript.Shell")
+' Set fso = CreateObject("Scripting.FileSystemObject")
+
+Dim installer : Set installer = Nothing
+Set installer = CreateObject("WindowsInstaller.Installer")
+
+'key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRoot"
+'SysLoc = sh.RegRead(key) & "\system32"
+
+' remove the showsel EventLog source entries
+keybase = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog\Application\showsel"
+key1 = keybase & "\EventMessageFile"
+key2 = keybase & "\TypesSupported"
+sh.RegDelete key1
+sh.RegDelete key2
+sh.RegDelete keybase
+
+' remove the sdiskmon service
+sh.Run "net stop autoexnt", 0, True
+sh.Run "instexnt remove", 0, True
+' do not need to explicitly remove the autoexnt.bat file.
+
+
-- 
cgit v1.2.3