Question

我遇到了编写脚本的任务，该脚本首先在Windows服务器上启动Websphere MQ客户端32位的静默安装。然后检查安装是否成功..... 所以我写了以下脚本：

  @echo off
  REM Author : Akshay Sinha
  REM Date Created : 07/05/2012
  REM Installing Websphere MQ.......
  Msiexec /q /i "%CD%\MSI\IBM WebSphere MQ.msi" /l*v .\install.log /m mif_file             TRANSFORMS="1033.mst" AGREETOLICENSE="yes"
  echo Script to check if the installation failed !!!
  echo Waiting for installaion to complete.......
  REM Script will wait for 2 mins, This is to ensure that install.log gets fully             generated.
  ping 123.45.67.89 -n 1 -w 120000 > nul
  echo Wait Over
  find /C "Installation operation failed" "%CD%"\install.log > tmp.log
  for /f "tokens=1,2,3 delims=:" %%a in (tmp.log) DO (
  SET /a FOUND_STR=%%c
  echo %FOUND_STR%
  )
  del tmp.log
  SET %FOUND_STR%=%FOUND_STR: =%
  echo %FOUND_STR%
  if %FOUND_STR% EQU 0 (
  echo Installation Of MQ completed without any errors!!!!!
  EXIT /B 0
  )
  if %FOUND_STR% GTR 0 (
  echo There were errors while installing MQ.. Pls Verify!!!
  EXIT /B 1
  )

该脚本可以正常运行以进行全新安装。即如果已经在系统上安装了上述软件。

但是，我需要增强此脚本，以便检查系统是否存在Websphere MQ及其版本的现有安装。 - 如果版本不是我们要求的版本（当然，我将从命令行提供），它应该启动卸载。

问题是我不想使用搜索文件系统的方法。那么如何使用WMI类完成此任务。我查了Win32_Product类，但它只返回了一个已安装的程序（虽然，我已经在我的系统上安装了40个应用程序）。所以我想知道： 1）在系统上搜索特定程序的具体方法是什么（我对VbScripting或批量编程持开放态度） 2）所安装软件的注册表项值是否在所有系统中保持不变，是否因不同的virsions而不同？

提前致谢。

Answer 1

你可能不需要WMI来实现这一目标。只需在注册表中查询hklm\software\Microsoft\Windows\CurrentVersion\Uninstall\密钥，然后检查返回的值。

从这段代码开始...

for /f "tokens=*" %%a in ('reg query hklm\software\Microsoft\Windows\CurrentVersion\Uninstall\ ^| find /i "IBM Websphere MQ" ') do (
 echo %%a
)

Answer 2

感谢PA提供的TIP ..但是我想出了一个使用VBScript的解决方案。我从原始批处理文件中调用此脚本。实际上我写了一个vb脚本，它列举了以下可用的不同注册表项：

      SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\

并搜索“IBM WebSphere MQ”作为“DisplayName”。找到后，它会列出其版本号和“产品代码”。请注意，我们可以从命令行使用“产品代码”进行安装...以下是我编写的脚本。我在这里发布它供大家使用。请随意使用..........

  '------------------------------------------------------------------------------------      
  'Script Name : listMQ.vbs
  'Author      : Akshay Sinha
  'Created     : 05/10/12
  'Description : This Script attempts to check if the correct version of Websphere MQ             is already installed on the system.
  '            : If found the Script will exit with a ERRORLEVEL of 0.
  '            : If found but not of correct version... Script will exit with a 
  '              ERRORLEVEL of 1..Which in turn will initiate a Uninstalation      
  '            : If not found, Script will exit with a ERRORLEVEL of 2 and initiate a 
  '              a fresh installation.
  '            : Syntax: at command prompt ->
  '            : C:>Cscript listMQ.vbs
  '            : Check the value of %ERRORLEVEL% after execution. 
  '            : C:>echo %ERRORLEVEL%. Should give 0,1 or 2
  '------------------------------------------------------------------------------------

    Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE

    strComputer = "."
    strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
    strEntry1a = "DisplayName"
    strEntry1b = "QuietDisplayName"
    strEntry1c = "DisplayVersion"
    strEntry1d = "UninstallString"

    Set objReg = GetObject("winmgmts://" & strComputer & "/root/default:StdRegProv")
    objReg.EnumKey HKLM, strKey, arrSubkeys
    WScript.Echo "Installed Applications" & VbCrLf
intVersionNum="1.0.0.0"
    For Each strSubkey In arrSubkeys
    intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, strEntry1a, strValue1)
if intRet1 <> "" Then
objReg.GetExpandedStringValue HKLM, strKey & strSubkey, strEntry1a, strValue1
intCompare=StrComp("IBM WebSphere MQ",strValue1,vbTextCompare)
    IF intCompare = 0 THEN
objReg.GetExpandedStringValue HKLM, strKey & strSubkey, strEntry1c, intVersionNum
strUninstall=strSubkey
WScript.Echo "Congratulations!! Websphere MQ is already installed on this system"
        WScript.Echo strEntry1a & " : " & strValue1 
        WScript.Echo strEntry1c & " : " & intVersionNum 
    END IF
End If
Next

IF intVersionNum="1.0.0.0" THEN
        WScript.Echo "Sorry Websphere MQ was not found on this system" 
        WScript.Quit 2
END IF

intVersionCompare=StrComp("7.0.1.5",intVersionNum,vbTextCompare)
IF intVersionCompare = 0  THEN
WScript.Echo "Congratulations!! Correct version of Websphere MQ is installed" 
WScript.Echo "Uninstall String for this product is : " & strUninstall
WScript.Quit 0
ELSE
WScript.Echo "Wrong Version of MQ installed"
WScript.Echo "Initiating Unistallation....."
WScript.Quit 1
END IF

这是一个非常自我解释的脚本..如果您遇到任何问题，请告诉我。

用于检查系统是否已安装程序及其版本的脚本

2 个答案: