1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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.
|
