Version Control Software     Home 

' program SJGGetver.vbs
' copyright (c) 2000, Steve Goodhall, all rights reserved
' No warranty expressed or implied
' Bug reports and comments to SGoodhall@home.com
'
' This script is invoked to display the version number of an Access database. Usage is:
'
' cscript SJGgetver.vbs [path-file-name]
' where: [source-path-file-name] is the complete path and file name for the Access database to be installed
'
' The current contents of SJGVersion are displayed.
' If the SJGVersion property is missing, a zero (0) value is displayed.

option explicit
dim oArgs, oACC, oWSP, oDB, wVer
set oArgs = wscript.arguments
wscript.echo oArgs(0)
set oACC = CreateObject("access.application")
set oWSP = oAcc.application.dbengine.workspaces(0)
set oDB = oWSP.opendatabase(oArgs(0), 0 ,0)
wVer = 0
on error resume next
wVer = oDB.Properties("SJGVersion")
wscript.echo "SJGVersion = " & wVer
set oDB = nothing
set oWSP = nothing
set oACC = nothing
set oArgs = nothing