如何使用perl在Windows 10上获取OsVersion

发布时间：2020-12-16 06:14:00 所属栏目：大数据来源：网络整理

导读：我一直在使用Win32 :: GetOSVersion()perl函数来获取目标的操作系统版本.但是,此API调用仅支持 Windows Server 2012. http://search.cpan.org/~jdb/Win32-0.52/Win32.pm OS ID MAJOR MINOR---------- --- ----- -----Win32s 0 - -Windows 95 1 4 0Windows 98

我一直在使用Win32 :: GetOSVersion()perl函数来获取目标的操作系统版本.但是,此API调用仅支持 Windows Server 2012.

http://search.cpan.org/~jdb/Win32-0.52/Win32.pm

OS                      ID    MAJOR   MINOR
----------              ---   -----   -----
Win32s                   0      -       -
Windows 95               1      4       0
Windows 98               1      4      10
Windows Me               1      4      90

Windows NT 3.51          2      3      51
Windows NT 4             2      4       0

Windows 2000             2      5       0
Windows XP               2      5       1
Windows Server 2003      2      5       2
Windows Server 2003 R2   2      5       2
Windows Home Server      2      5       2

Windows Vista            2      6       0
Windows Server 2008      2      6       0
Windows 7                2      6       1
Windows Server 2008 R2   2      6       1
Windows 8                2      6       2
Windows Server 2012      2      6       2

有没有其他方法/方法我可以在Windows 10上获得操作系统版本？

解决方法

还有一些其他方法可以获取原始数据,然后您可以解析这些数据以适合您的应用程序,例如：

#!/usr/bin/perl

use strict;
use warnings;

my $ver = `ver`;

print "output of ver command: $vern";

my $reg = `reg query "HKLMSoftwareMicrosoftWindows NTCurrentVersion" /v "ProductName"`;

# alternatively query for 'CurrentVersion' rather than 'ProductName' above 
print "output of registry query: $regn";

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!