检测系统是否为检查版本(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)》

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

You may also like

发表评论

电子邮件地址不会被公开。 必填项已用*标注