深入解析Windows第四版笔记

P80 各种Windows版本的检测方法

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 "Caption: " & objOperatingSystem.Caption

  Wscript.Echo "Debug: " & objOperatingSystem.Debug

  Wscript.Echo "Version: " & objOperatingSystem.Version

Next