Сравниваем версии файлов с помощью VBScript и Powershell

Листинг 1. Получение версии файла в VBScript

Dim FSO, FileName
Set FSO = CreateObject(«Scripting.FileSystemObject»)
FileName = «C:\Windows\system32\notepad.exe»
WScript.Echo FSO.GetFileVersion(FileName)

Листинг 2. Получение версии файла в PowerShell

$fileName = «C:\Windows\system32\notepad.exe»
function get-fileversion {
param([System.IO.FileInfo] $fileItem)
$verInfo = $fileItem.VersionInfo
«{0}.{1}.{2}.{3}» -f
$verInfo.FileMajorPart,
$verInfo.FileMinorPart,
$verInfo.FileBuildPart,
$verInfo.FilePrivatePart
}
# Outputs the file's version
get-fileversion $fileName
# You can also use the FileSystemObject object's GetFileVersion method.
$fso = new-object -comobject «Scripting.FileSystemObject»
# Same output as previous get-fileversion function.
$fso.GetFileVersion($fileName)

Листинг 3. Функции VBScript

' Bitwise left shift
Function Lsh(ByVal N, ByVal Bits)
Lsh = N * (2 ^ Bits)
End Function
' Returns a version string «a.b.c.d» as a two-element numeric
' array. The first array element is the most significant 32 bits,
' and the second element is the least significant 32 bits.
Function GetVersionStringAsArray(ByVal Version)
Dim VersionAll, VersionParts, N
VersionAll = Array(0, 0, 0, 0)
VersionParts = Split(Version, «.")
For N = 0 To UBound(VersionParts)
VersionAll(N) = CLng(VersionParts(N))
Next
Dim Hi, Lo
Hi = Lsh(VersionAll(0), 16) + VersionAll(1)
Lo = Lsh(VersionAll(2), 16) + VersionAll(3)
GetVersionStringAsArray = Array(Hi, Lo)
End Function
' Compares two versions»a.b.c.d«. If Version1 < Version2,
' returns -1. If Version1 = Version2, returns 0.
' If Version1 > Version2, returns 1.
Function CompareVersions(ByVal Version1, ByVal Version2)
Dim Ver1, Ver2, Result
Ver1 = GetVersionStringAsArray(Version1)
Ver2 = GetVersionStringAsArray(Version2)
If Ver1(0) < Ver2(0) Then
Result = -1
ElseIf Ver1(0) = Ver2(0) Then
If Ver1(1) < Ver2(1) Then
Result = -1
ElseIf Ver1(1) = Ver2(1) Then
Result = 0
Else
Result = 1
End If
Else
Result = 1
End If
CompareVersions = Result
End Function

Листинг 4. Функции PowerShell

# Bitwise left shift
function Lsh([UInt32] $n, [Byte] $bits) {
$n * [Math]::Pow(2, $bits)
}
# Returns a version number»a.b.c.d«as a two-element numeric
# array. The first array element is the most significant 32 bits,
# and the second element is the least significant 32 bits.
function GetVersionStringAsArray([String] $version) {
$parts = $version.Split(».«)
if ($parts.Count -lt 4) {
for ($n = $parts.Count; $n -lt 4; $n++) {
$parts +=»0«
}
}
[UInt32] ((Lsh $parts[0] 16) + $parts[1])
[UInt32] ((Lsh $parts[2] 16) + $parts[3])
}
# Compares two version numbers»a.b.c.d«. If $version1 < $version2,
# returns -1. If $version1 = $version2, returns 0. If
# $version1 > $version2, returns 1.
function CompareVersions([String] $version1, [String] $version2) {
$ver1 = GetVersionStringAsArray $version1
$ver2 = GetVersionStringAsArray $version2
if ($ver1[0] -lt $ver2[0]) {
return -1
}
elseif ($ver1[0] -eq $ver2[0]) {
if ($ver1[1] -lt $ver2[1]) {
return -1
}
elseif ($ver1[1] -eq $ver2[1]) {
return 0
}
else {
return 1
}
}
else {
return 1
}
}

Листинг 5. Код сценария Versions.ps1

param($version1, $version2)
# Bitwise left shift.
function Lsh([UInt32] $n, [Byte] $bits) {
$n * [Math]::Pow(2, $bits)
}
# Returns a version number»a.b.c.d«as a two-element numeric
# array. The first array element is the most-significant 32 bits,
# and the second element is the least-significant 32 bits.
function GetVersionStringAsArray([String] $version) {
$parts = $version.Split(».«)
if ($parts.Count -lt 4) {
for ($n = $parts.Count; $n -lt 4; $n++) {
$parts +=»0«
}
}
[UInt32] ((Lsh $parts[0] 16) + $parts[1])
[UInt32] ((Lsh $parts[2] 16) + $parts[3])
}
# Compares two version numbers»a.b.c.d«. If $version1 < $version2,
# returns -1. If $version1 = $version2, returns 0. If
# $version1 > $version2, returns 1.
function CompareVersions([String] $version1, [String] $version2) {
$ver1 = GetVersionStringAsArray $version1
$ver2 = GetVersionStringAsArray $version2
if ($ver1[0] -lt $ver2[0]) {
return -1
}
elseif ($ver1[0] -eq $ver2[0]) {
if ($ver1[1] -lt $ver2[1]) {
return -1
}
elseif ($ver1[1] -eq $ver2[1]) {
return 0
}
else {
return 1
}
}
else {
return 1
}
}
# Bitwise right shift.
function Rsh([UInt32] $n, [Byte] $bits) {
[Math]::Truncate($n / [Math]::Pow(2, $bits))
}
# Returns the specified two-element array containing a version
# number as a string»a.b.c.d«.
function GetVersionArrayAsString([UInt32[]] $version) {
$hi = $version[0]
$lo = $version[1]
»{0}.{1}.{2}.{3}«-f ((Rsh $hi 16) -band 65535),
($hi -band 65535), ((Rsh $lo 16) -band 65535),
($lo -band 65535)
}
# Returns $TRUE if the version string»a.b.c.d«is valid,
# or $FALSE if not.
function ValidateVersionString([String] $version) {
$ok = $FALSE
$parts = $version.Split(».«)
if ($parts.Count -le 4) {
for ($n = 0; $n -lt $parts.Count; $n++) {
$ok = ($parts[$n] -as [UInt16]) -ne $NULL
if (-not $ok) { break }
}
}
return $ok
}
if (-not ($version1 -and $version2)) {
write-host»Specify two versions numbers (a.b.c.d) to compare«
exit
}
if (-not (ValidateVersionString $version1)) {
throw»Invalid version string — $version1«
}
if (-not (ValidateVersionString $version2)) {
throw»Invalid version string — $version2«
}
$OFS =»,«
$ver1Array = GetVersionStringAsArray $version1
$ver1String = GetVersionArrayAsString $ver1Array
»$ver1String = $ver1Array«
$ver2Array = GetVersionStringAsArray $version2
$ver2String = GetVersionArrayAsString $ver2Array
»$ver2String = $ver2Array«
$result = CompareVersions $ver1String $ver2String
if ($result -eq -1) {
»$ver1String < $ver2String«
}
elseif ($result -eq 0) {
»$ver1String = $ver2String«
}
else {
»$ver1String > $ver2String«
}

Листинг 6. Код сценария Versions.vbs

' Bitwise left shift.
Function Lsh(ByVal N, ByVal Bits)
Lsh = N * (2 ^ Bits)
End Function
' Returns a version string»a.b.c.d«as a two-element numeric
' array. The first array element is the most-significant 32 bits,
' and the second element is the least-significant 32 bits.
Function GetVersionStringAsArray(ByVal Version)
Dim VersionAll, VersionParts, N
VersionAll = Array(0, 0, 0, 0)
VersionParts = Split(Version,».«)
For N = 0 To UBound(VersionParts)
VersionAll(N) = CLng(VersionParts(N))
Next
Dim Hi, Lo
Hi = Lsh(VersionAll(0), 16) + VersionAll(1)
Lo = Lsh(VersionAll(2), 16) + VersionAll(3)
GetVersionStringAsArray = Array(Hi, Lo)
End Function
' Compares two versions»a.b.c.d«. If Version1 < Version2,
' returns -1; if Version1 = Version2, returns 0;
' If Version1 > Version2, Returns 1.
Function CompareVersions(ByVal Version1, ByVal Version2)
Dim Ver1, Ver2, Result
Ver1 = GetVersionStringAsArray(Version1)
Ver2 = GetVersionStringAsArray(Version2)
If Ver1(0) < Ver2(0) Then
Result = -1
ElseIf Ver1(0) = Ver2(0) Then
If Ver1(1) < Ver2(1) Then
Result = -1
ElseIf Ver1(1) = Ver2(1) Then
Result = 0
Else
Result = 1
End If
Else
Result = 1
End If
CompareVersions = Result
End Function
' Bitwise right shift.
Function Rsh(ByVal N, ByVal Bits)
Rsh = N \ (2 ^ Bits)
End Function
' Returns the specified two-element array containing a version
' number as a string»a.b.c.d«.
Function GetVersionArrayAsString(ByVal Version)
Dim Hi, Lo
Hi = Version(0)
Lo = Version(1)
GetVersionArrayAsString = CStr(Rsh(Hi, 16) And 65535) &».«_
& CStr(Hi And 65535) &».«_
& CStr(Rsh(Lo, 16) And 65535) &».«_
& CStr(Lo And 65535)
End Function
' Returns True if the version string»a.b.c.d«is valid,
' or False if not.
Function ValidateVersionString(ByVal Version)
Dim OK, VersionParts
OK = False
VersionParts = Split(Version,».«)
If UBound(VersionParts) <= 3 Then
Dim N, Part
For N = 0 To UBound(VersionParts)
On Error Resume Next
Part = CLng(VersionParts(N))
OK = Err.Number = 0
On Error GoTo 0
If OK Then
OK = (Part >= 0) And (Part <= 65535)
End If
If Not OK Then
Exit For
End If
Next
End If
ValidateVersionString = OK
End Function
Dim Args
Set Args = WScript.Arguments
If Args.Unnamed.Count < 2 Then
WScript.Echo»Specify two version numbers (a.b.c.d) to compare«
WScript.Quit
End If
Dim Version1
Version1 = WScript.Arguments.Item(0)
If Not ValidateVersionString(Version1) Then
WScript.Echo»Invalid version string — '«& Version1 &»'«
WScript.Quit
End If
Dim Version2
Version2 = WScript.Arguments.Item(1)
If Not ValidateVersionString(Version2) Then
WScript.Echo»Invalid version string — '«& Version2 &»'«
WScript.Quit
End If
Dim Ver1Array, Ver1String
Ver1Array = GetVersionStringAsArray(Version1)
Ver1String = GetVersionArrayAsString(Ver1Array)
WScript.Echo Ver1String &» = «& Ver1Array(0) &»,«& Ver1Array(1)
Dim Ver2Array, Ver2String
Ver2Array = GetVersionStringAsArray(Version2)
Ver2String = GetVersionArrayAsString(Ver2Array)
WScript.Echo Ver2String &» = «& Ver2Array(0) &»,«& Ver2Array(1)
Dim Result
Result = CompareVersions(Ver1String, Ver2String)
If Result = -1 Then
WScript.Echo Ver1String &» < «& Ver2String
ElseIf Result = 0 Then
WScript.Echo Ver1String &» = «& Ver2String
Else
WScript.Echo Ver1String &» > «& Ver2String
End If

Листинг 7. Код сценария Versions.js

function getVersionStringAsArray(version) {
var parts = version.split(».«);
if (parts.length < 4) {
for (var n = parts.length; n < 4; n++)
parts.push(»0«);
}
var hi = (parseInt(parts[0], 10) << 16) + parseInt(parts[1], 10);
var lo = (parseInt(parts[2], 10) << 16) + parseInt(parts[3], 10);
return [hi, lo];
}
function getVersionArrayAsString(version) {
var hi = version[0];
var lo = version[1];
return ((hi >> 16) & 65535).toString() +».«+
(hi & 65535).toString() +».«+
((lo >> 16) & 65535).toString() +».«+
(lo & 65535).toString();
}
function compareVersions(version1, version2) {
var ver1 = getVersionStringAsArray(version1);
var ver2 = getVersionStringAsArray(version2);
if (ver1[0] < ver2[0])
return -1;
else if (ver1[0] == ver2[0]) {
if (ver1[1] < ver2[1])
return -1;
else if (ver1[1] == ver2[1])
return 0;
else
return 1;
}
else
return 1;
}
function validateVersionString(version) {
var ok = false;
var parts = version.split(».«);
if (parts.length <= 4) {
for (var n = 0; n < parts.length; n++) {
var part = parseInt(parts[n], 10);
ok = (part >= 0) && (part <= 65535);
if (! ok) break;
}
}
return ok;
}
var args = WScript.Arguments;
if (args.Unnamed.Count < 2) {
WScript.Echo(»Specify two version numbers (a.b.c.d) to compare«);
WScript.Quit();
}
var version1 = args.Unnamed.Item(0);
if (! validateVersionString(version1)) {
WScript.Echo(»Invalid version string — '«+ version1 +»'«);
WScript.Quit();
}
var version2 = args.Unnamed.Item(1);
if (! validateVersionString(version2)) {
WScript.Echo(»Invalid version string — '«+ version2 +»'«);
WScript.Quit();
}
var ver1Array = getVersionStringAsArray(version1);
var ver1String = getVersionArrayAsString(ver1Array);
WScript.Echo(ver1String +» = «+ ver1Array);
var ver2Array = getVersionStringAsArray(version2);
var ver2String = getVersionArrayAsString(ver2Array);
WScript.Echo(ver2String +» = «+ ver2Array);
var result = compareVersions(ver1String, ver2String);
if (result == -1)
WScript.Echo(ver1String +» < «+ ver2String);
else if (result == 0)
WScript.Echo(ver1String +» = «+ ver2String);
else
WScript.Echo(ver1String +» > " + ver2String);