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