[Resolvido]Autenticação em domínio do WINDOWS

Boa tarde pessoal, tenho um BD com tabelas vinculadas, porem estão mudando a politica de rede da empresa, todos os usuários tem que autenticar com seu nome e senha,


no meu BD as tabelas estão vinculadas como:

\\172.16.11.20\gestao\be_be.aacdr

existe uma tabela no back end que checa o vinculo antes,

exite algum meio via vba ou algo que force o login do usuário na rede antes de autenticar e abrir o banco de dados ?

pois ha maquinas que ainda estao em fase de migração e nao faze parte do AD

Boa noite
Como?
Pelo que entendi você quer que o login aparece assim que abrir o sistema.
Vai em Arquivo - Opção - Banco de Dados Atual  no formulário de exibição você coloca o formulário do Login.
Não precisa de código.

Vou tentar explicar melhor,

A Empresa esta mudando a politica da rede, atualmente são computadores com Windows e compartilhamento simples por exemplo:

C:\Gestao\BD... essa pasta esta compartilhada e no front end as tabelas estao vinculadas ao ip da maquina que hospeda o back end

\\172.16.11.21\Gestao\be_br.accdb

existe uma tabela nos front end que aponta para \\172.16.11.21\Gestao\be_br.accd que checa se os vínculos estão corretos.

Instalaram um servidor e o acesso a pasta compartilhada será por meio de autenticação no domino da rede, acontece que esse processo será gradativa, ou seja, algumas maquinas irão autenticar na rede Windows outras nao, o problema são as maquinas que nao irão autenticar inicialmente...pois para elas acessarem a pasta compartilhada preciam ao acessar colocar o dominio\usuario e a senha, mas ao abrir a tela de login do banco de dados se a pasta compartilhada nao for autenticada, nem abre e da erro

Bom dia.
crie um modulo

Código:

Option Compare Database


Function MAC_ADDRESS() As String
    Dim cfg As Variant

    For Each cfg In GetObject("winmgmts://.").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")
        If Not IsNull(cfg.IPAddress) Then
            MAC_ADDRESS = cfg.MACAddress
            Exit For
        End If
    Next
End Function

Você faz um tabela onde você vai colocar os numeros das placas


coloque um campo onde vai ficar o numero da placa

Código:

me.placaDeRede=MAC_ADDRESS
placaDeRede = DLookup("placa", "tbl_Checks") Aqui ele vai na tabela e ver se o numero esta la na tabela
aqui vai autenticar
If Me.txtNplaca = placaDeRede   Then
 Else
    MsgBox "*** A licença do sistema não é registrado nesse computador ***", vbCritical, "O nome da sua Empresa - Licença"


no momento não teenho como mandar um anexo.
mas faça isso que dar certo.

Devo ter feito algo erra, pois não deu certo.

Em enexo

Olá a todos,

Wmantovani,
Para aceder à pasta partilhada no novo servidor \\172.16.11.21\Gestao , se as configurações estiverem corretas vai sempre precisar de se fazer o login.
A menos que nas permissões esteja acesso total.

Uma vez que diz que é temporário, pode solicitar ao administrador da rede um utilizador temporário (tmpuser) e fornecer aos utilizadores que ainda não tem a máquina no domínio.
Apenas será necessário fazer apenas quando a máquina arranca e colocar as credenciais.
O windows também permite memorizar o utilizador e palavra passe.
Creio que pode ser uma solução.

O que deve fazer é um batch para o utilizador clicar quando não tiver acesso, algo assim:

Código:

explorer  \\172.16.11.21\Gestao

Após este comando vai solicitar as credenciais, será introduzir e pode memorizar para não estar sempre a colocar.

Abraço a todos

Bom dia a todos, agradeço a todos, falei com o ADM da rede e irá deixar uma pasta temporária até a transição

Obrigado

Olá Wmantovani,

Essa foi a solução temporária mais simples!

Abraço a todos

Sucesso...