blob: ea020457c9fc8c8ff5adc202eecb7e34c4faa246 (
plain)
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
' 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
' Find out where our files were installed
If(IsEmpty(Session)) Then
'Not running from within installer. Source path is current directory.
InstallLoc = sh.CurrentDirectory
Else
'Running inside the installer, use CustomActionData "[TARGETDIR]".
' InstallLoc = installer.ProductInfo(productCode, "InstallLocation")
InstallLoc = Session.Property("CustomActionData")
If(IsEmpty(InstallLoc)) Then
InstallLoc = "C:\Program Files\sourceforge\ipmiutil"
End If
End If
' wscript.echo "InstallLoc=" & InstallLoc
' Remove the InstallLoc from the Environment Path
key3 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\Path"
EnvPath = sh.RegRead(key3)
' wscript.echo "EnvPath= " & EnvPath
' Calculates strStartAt which cuts the strSearchFor value from the path
' strSearchFor = ";C:\program files\sourceforge\ipmiutil"
strSearchFor = ";" & InstallLoc
newPath = EnvPath
iStartAt = "0"
strSearchForLen=len(strSearchFor)
strStartAt = inStr(lCase(newPath), lCase(strSearchFor))
If (strStartAt > "0") then
iStartAt = (strStartAt-1)
' wscript.echo "strStartAt= " & strStartAt & " iStartAt= " & iStartAt
' Builds the new Path
' Joins the Values to the left and right of strSearchFor
strTotalLen=len(newPath)
newPathLeft=left(newPath,iStartAt)
newPathRight=right(newPath, (strTotalLen-strSearchForLen-iStartAt))
newPath=newPathLeft + ";" + newPathRight
end if
' wscript.echo "newPath= " & newPath
sh.RegWrite key3, newPath, "REG_EXPAND_SZ"
|
