检测系统是否为检查版本（Checked）

<<Windows internals 5th editon>> page 48.

strComputer="."
Set objWMIService = GetObject("winmgmts:"_
&"{impersonationLevel = impersonate}!\\"&strComputer &"\root\cimv2")
Set colOperatingSystem = objWMIService.ExecQuery _
("SELECT * FROM Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystem
 Wscript.Echo "Caption: " & objOperatingSystem.Caption
 Wscript.Echo "Debug: " & objOperatingSystem.Debug
 Wscript.Echo "Version: " & objOperatingSystem.Version
Next

* 网站名称：obaby@mars
* 网址：https://h4ck.org.cn/
* 本文标题：《检测系统是否为检查版本（Checked）》
* 本文链接：https://h4ck.org.cn/2010/04/system-version-check/
* 转载文章请标明文章来源，原文标题以及原文链接。请遵从《署名-非商业性使用-相同方式共享 2.5 中国大陆 (CC BY-NC-SA 2.5 CN) 》许可协议。