(view source code of wshver.vbs as plain text)
Option Explicit
Dim arrReq, arrVer, blnArg, i, intReq, intRet, strVer
intRet = 0
With WScript
' Read the current version
arrVer = Split( .Version, "." )
ReDim Preserve arrVer(2)
arrVer(2) = .BuildVersion
strVer = .Version & "." & .BuildVersion
' Either 1 unnamed argument or 1 named, not both
If .Arguments.Named.Count * .Arguments.Unnamed.Count > 0 Then Syntax
Select Case .Arguments.Unnamed.Count
Case 0
' Do nothing
Case 1
' Split the requested And actual versions into arrays
arrReq = Split( .Arguments.Unnamed(0), "." )
' Check if the requested version is numeric
For i = 0 To UBound( arrReq )
If Not IsNumeric( arrReq(i) ) Then Syntax
Next
' Compare the requested and actual versions
intRet = 0
For i = 0 To Min( 2, UBound( arrReq ) )
If CLng( arrVer(i) ) > CLng( arrReq(i) ) Then
Exit For
End If
If CLng( arrVer(i) ) < CLng( arrReq(i) ) Then
intRet = 1
Exit For
End If
Next
strVer = .Version & "." & .BuildVersion
If strVer = .Arguments.Unnamed(0) Then intRet = 0
Case Else
Syntax
End Select
Select Case .Arguments.Named.Count
Case 0
' No switch: just display full version
Case 1
blnArg = False
If .Arguments.Named.Exists( "Major" ) Then
strVer = arrVer(0)
intRet = Compare( strVer, .Arguments.Named( "Major" ) )
blnArg = True
End If
If .Arguments.Named.Exists( "Minor" ) Then
strVer = arrVer(1)
intRet = Compare( strVer, .Arguments.Named( "Minor" ) )
blnArg = True
End If
If .Arguments.Named.Exists( "Build" ) Then
strVer = arrVer(2)
intRet = Compare( strVer, .Arguments.Named( "Build" ) )
blnArg = True
End If
If Not blnArg Then Syntax
Case Else
Syntax
End Select
' Display the version or part of it
.Echo strVer
End With
' Exit with the calculated return code
WScript.Quit intRet
Function Compare( myVer, myReq )
If MyReq = "" Then
Compare = myVer
Else
If IsNumeric( myReq ) Then
If myVer < myReq Then
Compare = 1
Else
Compare = 0
End If
Else
Syntax
End If
End If
End Function
Function Min( num1, num2 )
If Not IsNumeric( num1 ) Then Syntax
If Not IsNumeric( num2 ) Then Syntax
If num1 < num2 Then
Min = num1
Else
Min = num2
End If
End Function
Sub Syntax
Dim strMsg, strVer
strVer = arrVer(0) & "." & arrVer(1) & "." & arrVer(2)
strMsg = "WSHVer.vbs, Version 1.10" _
& vbCrLf _
& "Return WSH version number or part of it" _
& vbCrLf & vbCrLf _
& "Usage: WSHVER.VBS [ minreq | (/Major|/Minor|/Build)[:minreq] ]" _
& vbCrLf & vbCrLf _
& "Where: /Major displays the major version number (e.g. " & arrver(0) & ")" _
& vbCrLf _
& " /Minor displays the minor version number (e.g. " & arrver(1) & ")" _
& vbCrLf _
& " /Build displays the build number (e.g. " & arrver(2) & ")" _
& vbCrLf _
& " minreq is the minimum required value; if specified, the return code" _
& vbCrLf _
& " will be 0 if the actual version is equal to or greater than" _
& vbCrLf _
& " Req, or 1 if it is less; if not specified, the return code" _
& vbCrLf _
& " will be equal to the version number part (e.g. " & arrver(1) & " for /Minor)" _
& vbCrLf & vbCrLf _
& "Examples Display Return code" _
& vbCrLf _
& "==================== ========= ===========================" _
& vbCrLf _
& "WSHVER.VBS " & arrver(0) & "." & arrVer(1) - 1 & " " & strVer & " 0 (requirement met)" _
& vbCrLf _
& "WSHVER.VBS " & arrVer(0) & "." & arrVer(1) - 1 & "." & arrVer(2) + 10000 & " " & strver & " 0 (requirement met)" _
& vbCrLf _
& "WSHVER.VBS " & arrver(0) + 1 & " " & strver & " 1 (requirement not met)" _
& vbCrLf _
& "WSHVER.VBS /Major " & arrver(0) & " " & arrver(0) & " (major version)" _
& vbCrLf _
& "WSHVER.VBS /Minor:" & arrver(1) - 1 & " " & arrver(1) & " 0 (requirement met)" _
& vbCrLf _
& "WSHVER.VBS /Minor " & arrver(1) & " " & arrver(1) & " (minor version)" _
& vbCrLf _
& "WSHVER.VBS /Build " & arrver(2) & " " & arrver(2) & " (build version)" _
& vbCrLf & vbCrLf _
& "Written by Rob van der Woude" _
& vbCrLf _
& "http://www.robvanderwoude.com"
WScript.Echo strMsg
WScript.Quit 1
End Sub
page last modified: 2024-04-16; loaded in 0.0068 seconds