CONEXAO COM O WEB SERVICE NFE

AMANDANARRAIS 20/10/2011 14:24:30
#387186

Olá pessoal, desculpe o incomodo, mas tenho o código :
Dim oX509Cert As New X509Certificate2()
Dim store As New X509Store([Ô]MY[Ô], StoreLocation.CurrentUser)
store.Open(OpenFlags.[ReadOnly] Or OpenFlags.OpenExistingOnly)
Dim collection As X509Certificate2Collection = DirectCast(store.Certificates, X509Certificate2Collection)
Dim collection1 As X509Certificate2Collection = DirectCast(collection.Find(X509FindType.FindByTimeValid, DateTime.Now, False), X509Certificate2Collection)
Dim collection2 As X509Certificate2Collection = DirectCast(collection.Find(X509FindType.FindByKeyUsage, X509KeyUsageFlags.DigitalSignature, False), X509Certificate2Collection)
Dim scollection As X509Certificate2Collection = X509Certificate2UI.SelectFromCollection(collection2, [Ô]Certificado(s) Digital(is) disponível(is)[Ô], [Ô]Selecione o certificado digital para uso no aplicativo[Ô], X509SelectionFlag.SingleSelection)
If scollection.Count = 0 Then
Dim mgsResultado As String = [Ô]Nenhum certificado digital foi selecionado ou o certificado selecionado está com problemas.[Ô]
Else
oX509Cert = scollection(0)

doc.Load([Ô]NFNotaFiscal-nfe.xml[Ô])
Dim woNfeStatusServico As Object
Dim woXML As New XDocument
woNfeStatusServico = New br.gov.sp.fazenda.nfe.homologacao.NfeStatusServico2
woNfeStatusServico.ClientCertificates.Add(oX509Cert)
woNfeStatusServico.nfeCabecMsgValue = New br.gov.sp.fazenda.nfe.homologacao.nfeCabecMsg
woNfeStatusServico.nfeCabecMsgValue.cUF = 31
woNfeStatusServico.nfeCabecMsgValue.versaoDados = [Ô]2.00[Ô]
woNfeStatusServico.ClientCertificates.Add(oX509Cert)
woNfeStatusServico.nfeStatusServicoNF2(doc)
doc.Save([Ô]NFNotaFiscal1-nfe.xml[Ô])
End If
Que da o seguinte erro:
Error: Firewall on Remote Machine
Já desabilitamos o Firewall no nosso servidor, e o erro continuou, Aguém tem um solução?
Att.