VB6.0，VBA如何获取电脑的操作系统类型和版本号

最新推荐文章于 2025-04-09 15:58:33 发布

海星之城

最新推荐文章于 2025-04-09 15:58:33 发布

阅读量1.6k

点赞数 1

文章标签： windows

本文链接：https://blog.csdn.net/u013513933/article/details/130052912

版权

本文介绍了通过VB6.0和VBA调用WMI服务来获取电脑的操作系统类型和版本号的方法。程序示例中，strOSversion表示内核版本，如6.1对应Win7，10.对应Win10，而strWindowsVer则给出操作系统名称，如Win7家庭普通版。利用这种方法，还可以进一步获取更多WMI类中的详细信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

比较简单的获取操作系统类型的方法为调用系统的WMI服务
下面是之前使用过的获取Windows操作系统类型和版本号的程序：

'获取Windows内核版本和系统信息
Dim objWMIService, colItems, objItem, strOSversion,strWindowsVer  As String
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem In colItems
    strOSversion = objItem.Version  '获取操作系统内核版本
    strWindowsVer= objItem.Caption   '获取操作系统类型
Next

其中strOSversion 为获取的操作系统内核版本，一般内核版本为6.1的为Win7，10.的为Win10
strWindowsVer 为获取的操作系统名，比如Win7 家庭普通版

从WMI服务当中，当有需求时还可以拿到下面WMI类中的内容，获取方法和上边获取操作系统内核版本和操作系统内核相同

[Singleton, Dynamic, Provider("CIMWin32"), SupportsUpdate, UUID("{8502C4DE-5FBB-11D2-AAC1-006008C78BC7}"), AMENDMENT]
class Win32_OperatingSystem : CIM_OperatingSystem
{
  string   BootDevice;
  string   BuildNumber;
  string   BuildType;
  string   Caption;
  string   CodeSet;
  string   CountryCode;
  string   CreationClassName;
  string   CSCreationClassName;
  string   CSDVersion;
  string   CSName;
  sint16   CurrentTimeZone;
  boolean  DataExecutionPrevention_Available;
  boolean  DataExecutionPrevention_32BitApplications;
  boolean  DataExecutionPrevention_Drivers;
  uint8    DataExecutionPrevention_SupportPolicy;
  boolean  Debug;
  string   Description;
  boolean  Distributed;
  uint32   EncryptionLevel;
  uint8    ForegroundApplicationBoost = 2;
  uint64   FreePhysicalMemory;
  uint64   FreeSpaceInPagingFiles;
  uint64   FreeVirtualMemory;
  datetime InstallDate;
  uint32   LargeSystemCache;
  datetime LastBootUpTime;
  datetime LocalDateTime;
  string   Locale;
  string   Manufacturer;
  uint32   MaxNumberOfProcesses;
  uint64   MaxProcessMemorySize;
  string   MUILanguages[];
  string   Name;
  uint32   NumberOfLicensedUsers;
  uint32   NumberOfProcesses;
  uint32   NumberOfUsers;
  uint32   OperatingSystemSKU;
  string   Organization;
  string   OSArchitecture;
  uint32   OSLanguage;
  uint32   OSProductSuite;
  uint16   OSType;
  string   OtherTypeDescription;
  Boolean  PAEEnabled;
  string   PlusProductID;
  string   PlusVersionNumber;
  boolean  PortableOperatingSystem;
  boolean  Primary;
  uint32   ProductType;
  string   RegisteredUser;
  string   SerialNumber;
  uint16   ServicePackMajorVersion;
  uint16   ServicePackMinorVersion;
  uint64   SizeStoredInPagingFiles;
  string   Status;
  uint32   SuiteMask;
  string   SystemDevice;
  string   SystemDirectory;
  string   SystemDrive;
  uint64   TotalSwapSpaceSize;
  uint64   TotalVirtualMemorySize;
  uint64   TotalVisibleMemorySize;
  string   Version;
  string   WindowsDirectory;
  uint8    QuantumLength;
  uint8    QuantumType;
};