如何从VB6应用程序确定Windows版本？
如何从VB6应用程序确定Windows版本？
提问于 2011-01-30 04:24:15
我想检测从95到Win 7的任何Windows版本。
我还想显示操作系统是32位还是64位。
就是这样；就这么简单。:)在VB6应用程序中，我可以使用什么代码来做这件事？
回答 4
Stack Overflow用户
发布于 2013-10-29 23:28:16
还有WMI Tasks for Operating Systems。
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您可以执行类似于上面Cody Gray提供的case语句的操作来解析Version值，或者解析纯文本Caption值，该值包含Microsoft(R) Windows(R) Server 2003, Standard Edition和Microsoft Windows 7 Professional之类的清单。
Stack Overflow用户
发布于 2011-01-30 05:53:03
您可以尝试使用VB6附带的微软Sysinfo control，并检查OSPlatform、OSBuild和OSVersion属性是否与正确的OS Version #匹配
Stack Overflow用户
发布于 2016-10-02 19:54:12
下面是我用来确定32位和64位操作系统的一个非常简单的方法：
OSBits = IIf(Len(Environ$("PROGRAMFILES(X86)")) > 0, 64, 32)在64位Windows中，操作系统设置环境变量"PROGRAMFILES(X86)“，但在32位系统上不是这样。它还没有让我失望。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/4839210
复制相关文章
相似问题