var ACE_AR = {Site: '761178', Size: '468060', Region: '3'}; Dim adsVB,po adsVB=0 If ScriptEngineMajorVersion >=2 then adsVB=1 Function adsAX(aX) on error resume next If adsVB=1 then adsAX=False set po=CreateObject(aX) adsAX=IsObject(po) If (err) then adsAX=False Else adsAX=False End If End Function