' CDOVersion.vbs - Determine the version of CDO and CDONTS
' 1999-04-24 stephen.campbell@marchview.com

option explicit

dim oCDONTS, oCDO

on error resume next
Err.Clear

set oCDONTS=CreateObject("CDONTS.Session")
if Err.Number <> 0 then
	WScript.echo "CDONTS not available. Error was " & Err.Description
else
	WScript.echo "CDONTS Version " & oCDONTS.Version
	set oCDONTS=Nothing
end if

set oCDO=CreateObject("MAPI.Session")
if Err.Number <> 0 then
	WScript.echo "CDO not available. Error was " & Err.Description
else
	WScript.echo "CDO Version " & oCDO.Version
	set oCDO=Nothing
end if

WScript.echo "Done."
WScript.quit