Getting the current installed version information from SAP with VBScript

[Former Member]

This is probably a question that is buried somewhere in here but so far no luck finding it so i'm throwing it out to everyone.

I am in charge of developing all of the distribution packages for SAP and any and all add-ons our corporate site requires. I'm using radia as a push tool and vbscript and wmi to manage the uninstall, install, patching, updating, and miscellaneous functions needed on each users system.

prior to my taking this position over an older version of SAP was distributed to several users with less than stellar results. due to the massive size of the Frontend GUI i've separated it out as a base stand alone install and packaged each Add-On with only the files it needs to complete the FE install. in order to guarantee my users have the newest version of the FE GUI on their systems i am doing some rudimentary checks based on the existence or no existence of the push directory of the older sap package on the users system. which works for now but is not the most graceful thing.

What i need is to be able to check right from a running vbscript what the current version and patch level the FE GUI is running at and any other components if possible, for now the FE GUI is the most important

Thanks for the help

Cheers,

<b>Ryan Strope

Distributed Services

(Software package development/testing)

Lockheed Martin Systems Integration Owego

(Cyber City Computers)

ryan.strope@lmco.com

(607)751-1164

Quid quid latine dictum sit, altum videtur

</b>

[Former Member]

I forgot to dim the verInfo and the SAPGuiVer variables.

Sorry.

[Former Member]

Ryan,

I hope you find this of use. The only issue you will have is if the user has the SAP GUI running. If so, the getversion call will fail as it requires an exclusive lock on the file. I do not know why.

Anyway, here is the code:

Dim oShell, SAPdestdir, fso, i

Set oShell = WScript.CreateObject("WScript.Shell")
SAPdestdir = oShell.RegRead("HKLMSOFTWARESAPSAP SharedSAPdestdir")
Wscript.Echo SAPdestdir

Set fso = CreateObject("Scripting.FileSystemObject")
SAPGuiVer = fso.GetFileVersion(SAPdestdir & "SAPGuiSAPGui.exe")
WScript.Echo SAPGuiVer
verInfo = Split(SAPGuiVer, ".")

For i = 0 To UBound(verInfo)
	WScript.Echo verInfo(i)
Next