sub readAttributeData()
	set envClient = createobject("CHTSecurityClient.EnvelopedData.1")
	rcode = envClient.ReadEncryCert()
	if(rcode<>0) then
		msgbox "讀取憑證資料失敗:" & getErrorMessage(rcode)
		exit sub
	end if

	set util = createobject("CHTSecurityClient.Utility.1")
	util.SetData(envClient.EncryptionCert)

	set certtool =  createobject("CHTSecurityClient.CertTool.1")
	rcode = certtool.SetCertificate(util.bstrBase64Data)
	if(rcode<>0) then
		msgbox "讀取憑證資料失敗:" & getErrorMessage(rcode)
		exit sub
	end if

	if certtool.bstrGPKICertType = "2.16.886.1.100.3.2.3.1" and certtool.bstrGPKICardType = "secondary" then
		rcode = ICCDF.readUserData(NULL, VerifyCertForm.pinCode.value, "0001", data)
		if(rcode<>0) then
			msgbox "讀取授權證失敗:" & getErrorMessage(rcode)
			exit sub
		end if	
	
		util.SetData(data)
		loginForm.attribute.value = util.bstrBase64Data
	
	End If

end sub