diff options
| author | Jörg Frings-Fürst <debian@jff.email> | 2020-09-14 12:27:22 +0200 |
|---|---|---|
| committer | Jörg Frings-Fürst <debian@jff.email> | 2020-09-14 12:27:22 +0200 |
| commit | 0e9b185152b56ff33fe8a2a89a4f84923a308300 (patch) | |
| tree | a5921c0b328a249f4978fa27c641e13512f16d44 /setup/install.vbs | |
| parent | c71bf8390b9a06fa498d2cb4f8a4924309f4875e (diff) | |
New upstream version 3.1.7upstream/3.1.7
Diffstat (limited to 'setup/install.vbs')
| -rw-r--r-- | setup/install.vbs | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/setup/install.vbs b/setup/install.vbs new file mode 100644 index 0000000..e5a1b56 --- /dev/null +++ b/setup/install.vbs @@ -0,0 +1,47 @@ +' This VBScript should run after all files have been copied onto the system.
+
+Set sh = CreateObject("WScript.Shell")
+Set fso = CreateObject("Scripting.FileSystemObject")
+
+Dim installer : Set installer = Nothing
+Set installer = CreateObject("WindowsInstaller.Installer")
+Dim sOutFile, outs, sScrFile
+
+' 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
+
+' Find System Folder (usually c:\windows\system32).
+key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRoot"
+SysLoc = sh.RegRead(key) & "\system32"
+
+' Add InstallLoc to the Environment Path
+key3 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\Path"
+EnvPath = sh.RegRead(key3) & ";" & InstallLoc
+sh.RegWrite key3, EnvPath, "REG_EXPAND_SZ"
+
+' Set up the showsel EventLog source
+' showselmsg.dll is copied by the installer already
+keybase = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog\Application\showsel\"
+key1 = keybase & "EventMessageFile"
+key2 = keybase & "TypesSupported"
+sh.RegWrite key1, "%SystemRoot%\system32\showselmsg.dll", "REG_EXPAND_SZ"
+sh.RegWrite key2, 7, "REG_DWORD"
+'val1 = sh.RegRead(key1)
+'val2 = sh.RegRead(key2)
+'wscript.echo "showsel: msgfile " & val1 & " types " & val2
+
+' Schedule the checksel.cmd to run
+sScrFile = InstallLoc & "\checksel.cmd"
+sh.Run "at 23.30 /every:m,t,w,th,f,s,su """ & sScrFile & """ ", 0, True
+
|