VBS 脚本返回预期结果，如何比较浮点值？

Question

执行以下 VB 脚本时，我得到了一个有趣的结果。

Set StdOut = WScript.StdOut
Set wbemSvc = GetObject("winmgmts://" & "." & "/root/cimv2")
Set biosSet = wbemSvc.ExecQuery("Select * from Win32_BIOS")

For Each biosObj In biosSet
  StdOut.WriteLine "SMBIOSMajorVersion=" & biosObj.SMBIOSMajorVersion
  StdOut.WriteLine "SMBIOSMinorVersion=" & biosObj.SMBIOSMinorVersion
Next

  StdOut.WriteLine "Return value is: " & IsNewBiosVersion

Function IsNewBiosVersion()

  On Error Resume Next
  Set biosSet = wbemSvc.ExecQuery("Select * from Win32_BIOS")

  newBios = 0
  For Each bios In biosSet
    minorFloat = "." & bios.SMBIOSMinorVersion
    If bios.SMBIOSMajorVersion > 2 OR (bios.SMBIOSMajorVersion = 2 AND minorFloat >= .6) Then
      newBios = 1
    End If
  Next
  IsNewBiosVersion = newBios

End Function

结果如下。这看起来很矛盾，因为SMBIOSMinorVersion=4，根据脚本中的代码逻辑，返回值应该是0！！！

SMBIOSMajorVersion=2
SMBIOSMinorVersion=4
Return value is: 1

我在另一个系统上运行了相同的脚本并得到了预期的正确结果。

SMBIOSMajorVersion=2
SMBIOSMinorVersion=4
Return value is: 0

那么这里的问题是什么？

新更新：

我们在系统上再次执行以下脚本，发现CDbl()函数没有正确地将字符串“2.4”转换为double值，而是将其转换为24！看起来像点“。”转换时丢失了，这是怎么回事？ CDbl有BUG还是使用时违规？

这是脚本

Set StdOut = WScript.StdOut
StdOut.WriteLine ""
StdOut.WriteLine "Simple Function to Test BIOS Version"
StdOut.WriteLine ""
Set wbemSvc = GetObject("winmgmts://" & "." & "/root/cimv2")
Set biosSet = wbemSvc.ExecQuery("Select * from Win32_BIOS")

For Each bios In biosSet
  newBios = 0
  StdOut.WriteLine "SMBIOSMajorVersion=" & bios.SMBIOSMajorVersion
  StdOut.WriteLine "SMBIOSMinorVersion=" & bios.SMBIOSMinorVersion
  temp = bios.SMBIOSMajorVersion & "." & bios.SMBIOSMinorVersion
  StdOut.WriteLine "major dot minor=" & temp

  currentBios = CDbl(bios.SMBIOSMajorVersion & "." & bios.SMBIOSMinorVersion)
  StdOut.WriteLine ""
  StdOut.WriteLine "currentBios=" & currentBios
  If currentBios >= 2.6 Then newBios = 1
  StdOut.WriteLine "return value is: " & newBios
Next

这是输出

Simple Function to Test BIOS Version

SMBIOSMajorVersion=2
SMBIOSMinorVersion=4
major dot minor=2.4

currentBios=24
return value is: 1

Answer 1

删除您的错误处理 - 它可能会抑制问题。

On Error Resume Next ' Not a good idea

一方面，您在这些行中将字符串与双精度进行比较：

minorFloat = "." & bios.SMBIOSMinorVersion
If bios.SMBIOSMajorVersion > 2 OR (bios.SMBIOSMajorVersion = 2 AND minorFloat >= .6) Then

Answer 2

为什么不将major.minor 值转换为浮点数进行测试？您目前正在做两个单独的测试，其中一个是字符串与浮点数的比较，这是不寻常的。

也许试试这个？

currentBios = CDbl(bios.SMBIOSMajorVersion & "." & bios.SMBIOSMinorVersion)

If currentBios >= 2.6 Then newBios = 1

当涉及数学运算时，您必须小心比较浮点值，但对于文字值，您会没事的。

并且，如前所述，删除 On Error Resume Next 否则您可能永远不知道为什么它可以在一台 PC 上运行，而不能在另一台 PC 上运行。