New upstream version 3.1.7upstream/3.1.7

7 files changed, 274 insertions, 0 deletions

diff --git a/setup/addsvc.vbs b/setup/addsvc.vbs
new file mode 100644
index 0000000..b5c8704
--- /dev/null
+++ b/setup/addsvc.vbs
@@ -0,0 +1,50 @@
+' 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

+

+' 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\Intel\IPMIrasTools"

+   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"

+

+sOutFile = SysLoc & "\autoexnt.bat"

+Set outs = fso.OpenTextFile(sOutFile, 2, True, 0) 

+outs.WriteLine "REM autoexnt.bat for sdiskmon " & vbCrlf 

+outs.WriteLine "cd " & InstallLoc  & vbCrlf 

+outs.WriteLine "sdiskmon -b "      & vbCrlf 

+outs.Close

+

+' 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

+

+' Set up the sdiskmon service

+' instexnt.exe, autoexnt.exe, and autoexnt.bat are copied to SysLoc already.

+sh.Run "instexnt install", 0, True

+sh.Run "net start autoexnt", 0, True

+

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.

+

+

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

+

diff --git a/setup/ipmiutil-setup.sln b/setup/ipmiutil-setup.sln
new file mode 100644
index 0000000..5ef01e7
--- /dev/null
+++ b/setup/ipmiutil-setup.sln
@@ -0,0 +1,25 @@
+

+Microsoft Visual Studio Solution File, Format Version 12.00

+# Visual Studio Version 16

+VisualStudioVersion = 16.0.28922.388

+MinimumVisualStudioVersion = 10.0.40219.1

+Project("{54435603-DBB4-11D2-8724-00A0C9A8B90C}") = "ipmiutil-setup", "ipmiutil-setup.vdproj", "{42EA52F4-4751-41F4-BEE0-8CB60D5B1EEF}"

+EndProject

+Global

+	GlobalSection(SolutionConfigurationPlatforms) = preSolution

+		Debug|Default = Debug|Default

+		Release|Default = Release|Default

+	EndGlobalSection

+	GlobalSection(ProjectConfigurationPlatforms) = postSolution

+		{42EA52F4-4751-41F4-BEE0-8CB60D5B1EEF}.Debug|Default.ActiveCfg = Release

+		{42EA52F4-4751-41F4-BEE0-8CB60D5B1EEF}.Debug|Default.Build.0 = Release

+		{42EA52F4-4751-41F4-BEE0-8CB60D5B1EEF}.Release|Default.ActiveCfg = Release

+		{42EA52F4-4751-41F4-BEE0-8CB60D5B1EEF}.Release|Default.Build.0 = Release

+	EndGlobalSection

+	GlobalSection(SolutionProperties) = preSolution

+		HideSolutionNode = FALSE

+	EndGlobalSection

+	GlobalSection(ExtensibilityGlobals) = postSolution

+		SolutionGuid = {1121B105-CEA9-431E-8A4D-1DA9C0C78CEB}

+	EndGlobalSection

+EndGlobal

diff --git a/setup/ipmiutil-setup.txt b/setup/ipmiutil-setup.txt
new file mode 100644
index 0000000..d59d865
--- /dev/null
+++ b/setup/ipmiutil-setup.txt
@@ -0,0 +1,52 @@
+Composition of the ipmiutil-setup windows MSI 

+

+Application folder

+

+buildsamp.cmd

+checksel.cmd

+getopt.h

+ialarms.cmd

+icmd.cmd

+iconfig.cmd

+idiscover.cmd

+ievents.exe

+ifru.cmd

+igetevent.cmd

+ihealth.cmd

+ilan.cmd

+install.vbs

+ipmi_sample.c

+ipmi_sample.exe

+ipmi_sample.mak

+ipmicmd.h

+ipmiutil.exe

+ipmiutil.lib

+ipmiutil_wdt.cmd

+ipmiutillib.lib

+ireset.cmd

+isel.cmd

+isensor.cmd

+iserial.cmd

+isol.cmd

+iwdt.cmd

+showsel.reg

+uninstall.vbs

+UserGuide.txt

+

+

+System folder

+

+ipmiutil.dll

+ipmiutillib.dll

+libeay32.dll

+showselmsg.dll

+ssleay32.dll

+

+In the Solution, right click to add actions under:

+  Install  = install.vbs

+  Uninstall = uninstall.vbs

+

+

+How to view Installer project properties, like version, manufacturer:

+Change View to make sure Properties button is enabled.

+

diff --git a/setup/showsel.reg b/setup/showsel.reg
new file mode 100644
index 0000000..036876f
--- /dev/null
+++ b/setup/showsel.reg
@@ -0,0 +1,10 @@
+REGEDIT4

+

+[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog\Application\showsel]

+"EventMessageFile"="%SystemRoot%\\system32\\showselmsg.dll"

+"TypesSupported"=dword:00000007

+"IndexFile"="%ipmiutildir%\\sel.idx"

+

+[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Schedule]

+"AtTaskMaxHours"=dword:00000000

+

diff --git a/setup/uninstall.vbs b/setup/uninstall.vbs
new file mode 100644
index 0000000..b392a46
--- /dev/null
+++ b/setup/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" 

+

+