dim result
dim errMsg
dim label
dim lockCount

Function GetCardInfo
  result = 0
  errMsg = ""
  label = ""
  lockCount = 0
  result = AXChangePin.Init(errMsg)
  if result = 0  then
    result = AXChangePin.GetCardLabel(lockCount,label,errMsg)
    if result <> 0 then
	errMsg = "取得卡片資料失敗，請先確認員工識別證已插入讀卡機中！！("+errMsg+")"
    end if
  else
    errMsg = "卡片初始失敗 : "+errMsg
  end if
End Function

function ChangePin(oldPin,newPin)
  result = AXChangePin.ChangePin(oldPin,newPin,errMsg)
  if result <> 0 then
    errMsg = "�K�X�ק�o�Ϳ�~ --> " + errMsg
  end if
end function