ERRO ACESSO

Olá a todos.

Desenvolvi uma aplicação em vb.net na qual o usuário ao acessar uma determinada página , vai ser retornado o serial da bios, do hd, volume e nome do computador. A rotina está funcionando e já testei em estações com windows xp e 2003 fazendo o acesso ao servidor. Porém ocorre que tem algumas máquinas está dando o erro de acesso negado ou servidor de rpc não está disponível.
Porém fiz o mesmo processo que nas demais criei o usuário, senha igual e poder de administrador. E nas estações que deu pau de servidor RPC não disponível eu acessei os serviços e startei os dois serviços de RPC que lá estavam, mas mesmo assim persite o erro.

Segue abaixo parte do código:

//pego o ip da estação
Dim ip As String = HttpContext.Current.Request.ServerVariables(´REMOTE_ADDR´)

// Dados da conta de acesso
Dim options = New ConnectionOptions()
options.Username = ´teste´
options.Password = ´xxxxxx´

//Conexão
Dim vmConnectString As String = ´\\´ & ip & ´\root\CIMV2´
Dim vmConnect = New ManagementScope(vmConnectString, options)
vmConnect.Connect()

//PEGA SERIAL BIOS
Dim objectQuery As New ObjectQuery(´SELECT * FROM Win32_BIOS´)
Dim searcher As New ManagementObjectSearcher(vmConnect, objectQuery)

For Each queryObj As ManagementObject In searcher.Get()
retorno = Criptografa(queryObj(´SerialNumber´), True)
Next
//FIM

PARTE DA MENSAGEM DE ERRO (ACESSO NEGADO):

Acesso negado. (Exceção de HRESULT: 0x80070005 (E_ACCESSDENIED))
O ASP.NET não está autorizado a acessar o recurso solicitado. Recomenda-se conceder à identidade de solicitação do ASP.NET direitos de acesso ao recurso. O ASP.NET tem uma identidade de processo-base (geralmente \ASPNET no IIS 5 ou Serviço de Rede no IIS 6) que é usada se o aplicativo não estiver sendo representado. Se o aplicativo estiver sendo representado através de <identity impersonate=´true´/>, a identidade será o usuário anônimo (geralmente IUSR_MACHINENAME) ou o usuário de solicitação autenticado.

Mensage erro RPC:

O servidor RPC não está disponível. (Exceção de HRESULT: 0x800706BA)


Lembrando tenho várias máquinas em que a rotina funcionou.

Obrigado e aguardo uma ajuda.

Ernani. :shock:

[/img]