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

版本值是一个字符串，所以把它比成整数你首先需要提取一些可以转换为整数。

E.g.提取第一个时段之前的数字;

prodVer = "5.1.10411.0" 

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

    msgbox prodVer < 5 
end if