vbscript - VBS 卸载应用程序

Question

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

版本为 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

Answer 1

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

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

prodVer = "5.1.10411.0"

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

    msgbox prodVer < 5
end if