summaryrefslogtreecommitdiff
path: root/scripts/uninstall.vbs
diff options
context:
space:
mode:
authorJörg Frings-Fürst <debian@jff-webhosting.net>2014-07-06 18:04:32 +0200
committerJörg Frings-Fürst <debian@jff-webhosting.net>2014-07-06 18:04:32 +0200
commita7f89980e5b3f4b9a74c70dbc5ffe8aabd28be28 (patch)
tree41c4deec1fdfbafd7821b4ca7a9772ac0abd92f5 /scripts/uninstall.vbs
Imported Upstream version 2.9.3upstream/2.9.3
Diffstat (limited to 'scripts/uninstall.vbs')
-rw-r--r--scripts/uninstall.vbs63
1 files changed, 63 insertions, 0 deletions
diff --git a/scripts/uninstall.vbs b/scripts/uninstall.vbs
new file mode 100644
index 0000000..b392a46
--- /dev/null
+++ b/scripts/uninstall.vbs
@@ -0,0 +1,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\intel\ipmirastools"
+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"
+
+