' VB Script Document
Dim sVersion
Dim pVersion
Dim pObjPrefix

sVersion = "4,1,0,0"
pVersion = "4.1.0"
pObjPrefix = "Bradon"


function isclientobject(dObj)
    Dim cObject
    on error resume next
	dObj.name = pObjPrefix & ".Participant." & pVersion
	set cObject  = Nothing
	cObject = NULL
	set cObject = CreateObject(dObj.name)
	if  IsObject(cObject) and Err.Number=0 then
		dObj.detected = True
		dObj.supported = True
		dObj.version = sVersion
	else 	
		dObj.supported = False
		dObj.detected = False
	end if
	cObject.Close
	set cObject  = Nothing
	cObject = NULL
	isclientobject  = dObj
end function

function ishostobject(dObj)
    Dim cObject
    on error resume next
	dObj.name = pObjPrefix & ".Participant." & pVersion
	set cObject = CreateObject(dObj.name)
	if IsObject(cObject) and Err.Number=0 then
		dObj.detected = True
		dObj.supported = True
		dObj.version = sVersion
	else 	
		dObj.detected = False
		dObj.supported = False
	end if
	cObject.Close
	cObject = NULL
	set cObject  = Nothing
	ishostobject  = dObj
end function


function isaddressbookplugin(dObj)
    Dim cObject
    vers = False
    on error resume next
	dObj.name = "Contacts.Contacts." & pVersion
	set cObject = CreateObject(dObj.name)
    if  IsObject(cObject) and Err.Number=0 then
		dObj.detected = True
		dObj.supported = True
		dObj.version = sVersion
	else 	
		dObj.detected = False
		dObj.supported = False
    end if
	cObject.Close
	cObject = NULL
	set cObject  = Nothing
	isaddressbookplugin  = dObj
end function