function GetGlanceClientVersionIE()
	on error resume next
	GetGlanceClientVersionIE = "0"
	if ScriptEngineMajorVersion >= 2 then
		Set GClient = CreateObject("GlanceClient.Client")
		if IsObject(GClient) then
		    GetGlanceClientVersionIE = GClient.Version
		end if
	end if
	set GClient = Nothing
end function