我想检测从95到Win 7的任何Windows版本。
我还想显示操作系统是32位还是64位。
就是这样;就这么简单。:)在VB6应用程序中,我可以使用什么代码来做这件事?
发布于 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
之类的清单。
发布于 2011-01-30 05:53:03
您可以尝试使用VB6附带的微软Sysinfo control,并检查OSPlatform、OSBuild和OSVersion属性是否与正确的OS Version #匹配
发布于 2016-10-02 19:54:12
下面是我用来确定32位和64位操作系统的一个非常简单的方法:
OSBits = IIf(Len(Environ$("PROGRAMFILES(X86)")) > 0, 64, 32)
在64位Windows中,操作系统设置环境变量"PROGRAMFILES(X86)“,但在32位系统上不是这样。它还没有让我失望。
https://stackoverflow.com/questions/4839210
复制相似问题