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

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

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

原创文章，转载请注明： 转载自 obaby@mars

本文标题: 《检测系统是否为检查版本（Checked）》

本文链接地址: https://h4ck.org.cn/2010/04/system-version-check/

分享文章：