From 0e9b185152b56ff33fe8a2a89a4f84923a308300 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=B6rg=20Frings-F=C3=BCrst?= Date: Mon, 14 Sep 2020 12:27:22 +0200 Subject: New upstream version 3.1.7 --- setup/addsvc.vbs | 50 ++++++++++++++++++++++++++++++++++++++ setup/delsvc.vbs | 27 +++++++++++++++++++++ setup/install.vbs | 47 ++++++++++++++++++++++++++++++++++++ setup/ipmiutil-setup.sln | 25 +++++++++++++++++++ setup/ipmiutil-setup.txt | 52 +++++++++++++++++++++++++++++++++++++++ setup/showsel.reg | 10 ++++++++ setup/uninstall.vbs | 63 ++++++++++++++++++++++++++++++++++++++++++++++++ 7 files changed, 274 insertions(+) create mode 100644 setup/addsvc.vbs create mode 100644 setup/delsvc.vbs create mode 100644 setup/install.vbs create mode 100644 setup/ipmiutil-setup.sln create mode 100644 setup/ipmiutil-setup.txt create mode 100644 setup/showsel.reg create mode 100644 setup/uninstall.vbs (limited to 'setup') 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" + + -- cgit v1.2.3