如何测试“Microsoft Windows 7 Home Premium”是否可用操作系统使用VBScript吗？

Question

我的第一次尝试是查询 Win32_OperatingSystem 的标题，并测试标题是否“等于”我正在测试的操作系统：

Dim objWMIService, strComputer
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")


msgbox getOperatingSystemCaption()
msgbox meetsOperatingSystemRequirement()



Function getOperatingSystemCaption()

     Dim strCaption, colOperatingSystems, objOperatingSystem

     Set colOperatingSystems = objWMIService.ExecQuery _
          ("Select * from Win32_OperatingSystem")

     For Each objOperatingSystem in colOperatingSystems
        strCaption = objOperatingSystem.Caption
        Exit For 
     Next

    getOperatingSystemCaption = strCaption

End Function





Function meetsOperatingSystemRequirement()

    meetsOperatingSystemRequirement = False 

    If getOperatingSystemCaption() = "Microsoft Windows 7 Home Premium" Then 

       meetsOperatingSystemRequirement = True

    End If 


End Function

我想我可以使用 InStr，但是我仍然不明白为什么“标题”和我的字符串不相等平等的。

Answer 1

您确定您安装的是“Microsoft Windows XP”而不是“Microsoft Windows XP Professional”吗？如果您使用“=”符号，那么您将无法捕获它，因为它期望匹配精确的字符串。如果你想要部分匹配，使用 instr() 会更好。否则，添加“专业”

您可以在找到标题后进行一些调试

....
        msgbox strCaption & " " & len(strCaption)
        getOperatingSystemCaption = strCaption
....

，并尝试用不同的方式

.....
    myCaption = getOperatingSystemCaption()
     msgbox myCaption & " " & len(myCaption)
    If myCaption = "Microsoft Windows XP Premium Home" Then 
......

检查长度......