option explicit

'Quelle siehe http://ww3.cad.de/foren/ubb/Forum2/HTML/012817.shtml bzw. 013070.shtml

Dim swApp  
Dim sp 'As String
Dim ver 'As String

const SwVer=".15"  'sowo2007

Set swApp = WScript.CreateObject("sldworks.application"&SwVer)

    swapp.Visible = True   '<< sonst ist sowo unsichtbar!
    swapp.UserControl = True

sp = Mid(swApp.RevisionNumber(), 4, 4)
ver = Left(swApp.RevisionNumber(), 2) + 1992
'Debug.Print 

 MsgBox  "version="&ver & " SP" & sp