ActiveX não pode criar objeto

Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01AD)O componente do ActiveX não pode criar objeto: 'Correios.CEP'/funcoes_endereco.asp, line 103rotina em aspFunction Encontra_Endereco(CEP_str) Set CEP_obj = CreateObject("Correios.CEP") CEP_obj.EncontraCEP(CEP_str) If CEP_obj.Erro = 0 Then Session("endereco") = CEP_obj.Endereco Session("bairro") = CEP_obj.Bairro Session("cidade") = CEP_obj.Cidade Session("estado") = CEP_obj.Estado Session("cep") = cep_str Encontra_Endereco = True Else Session("endereco") = "" Session("bairro") = "" Session("cidade") = "" Session("estado") = "" Session("cep") = "" Encontra_Endereco = False End If Set CEP_obj = NothingEnd Function