Vbscript 操作系统VBS脚本

是否有人拥有基于客户端操作系统是Windows XP、2000、NT还是95创建切换语句的VBS代码示例？

VBScript示例以检索操作系统版本信息

---

这将为您提供操作系统版本：

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objOperatingSystem in colOperatingSystems
    Wscript.Echo objOperatingSystem.Caption & " " & _
        objOperatingSystem.Version
Next

从这里，您可以设置Select Case语句（开关的VB语法），并对照“OS”的情况检查.Version，其中“OS”是从.Version返回的各种类型

下面是一个这样做的示例：

---

感谢编辑Eduardo。语法现在看起来好多了，因为它都在代码块中。：）