VBS 卸载应用程序答案

【问题标题】：VBS uninstall applicationVBS 卸载应用程序
【发布时间】：2012-11-20 04:39:23
【问题描述】：

如果 Silverlight 的版本低于 5，我正在尝试将 VBS 脚本一起用作卸载 Silverlight 的启动脚本，但在尝试比较值时，我的代码不断给我类型不匹配。

版本为 5.1.10411.0。如何将此值与整数值进行比较？

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Product WHERE Caption = 'Microsoft Silverlight'") 
Dim item
For each item in colItems
    prodVer = item.Version
Next
If prodVer < 5 Then
    set WshShell = CreateObject("WScript.Shell")
        set oExec = WshShell.Exec("wmic product where caption='Microsoft Silverlight' call uninstall")
End If

【问题讨论】：

标签： vbscript wmi wmic

【解决方案1】：

版本值是一个字符串，因此要将其与整数进行比较，您首先需要提取可以转换为整数的内容。

例如提取第一个句点之前的数字；

prodVer = "5.1.10411.0"

if (prodVer <> "") then
    prodVer = clng(left(prodVer, instr(prodVer , ".") - 1))

    msgbox prodVer < 5
end if

【讨论】：