MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Nome do Controlador de Domínio

    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 361
    Registrado : 06/04/2013

    [Resolvido]Nome do Controlador de Domínio Empty Nome do Controlador de Domínio

    Mensagem  Jeferson de Paula 24/5/2013, 20:56

    Olá Galerinha,

    Gostaria de saber se existe algum código VBA para retornar o nome de um Controlador de Domínio do Windows Server e o IP Fixo Interno do próprio computador. Tipo um "Environ" para capturar o nome do usuário conectado!

    Código:

    Domínio Exemplo Microsoft®: contoso.corp.com
    Exemplo do IP Fixo Interno: 10.15.0.1


    Desde já agradeço pela ajuda!


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft®️ Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3821
    Registrado : 04/04/2010

    [Resolvido]Nome do Controlador de Domínio Empty Re: [Resolvido]Nome do Controlador de Domínio

    Mensagem  Avelino Sampaio 24/5/2013, 22:20

    Veja se este meu artigo ajuda

    http://www.usandoaccess.com.br/dicas/dica37.asp?id=1#inicio

    Bom estudo!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 361
    Registrado : 06/04/2013

    [Resolvido]Nome do Controlador de Domínio Empty Re: [Resolvido]Nome do Controlador de Domínio

    Mensagem  Jeferson de Paula 24/5/2013, 22:53

    Grande Avelino, era isso mesmo que estava precisando. Muito obrigado pela ajuda! Mas só tem uma coisa que ainda não consegui é o nome do Controlador de Domínio. Será que não há possibilidade de fazer isso?


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft®️ Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3821
    Registrado : 04/04/2010

    [Resolvido]Nome do Controlador de Domínio Empty Re: [Resolvido]Nome do Controlador de Domínio

    Mensagem  Avelino Sampaio 24/5/2013, 23:06

    Dê uma garimpada pelo oráculo Google, sobre o uso do WMI para capturar o domínio.

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3821
    Registrado : 04/04/2010

    [Resolvido]Nome do Controlador de Domínio Empty Re: [Resolvido]Nome do Controlador de Domínio

    Mensagem  Avelino Sampaio 24/5/2013, 23:10

    Veja se este irá atender:


    Sub fncInfoDominio()
    On Error Resume Next

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
       & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

    For Each objItem In colItems
       Debug.Print "Client Site Name: " & objItem.ClientSiteName
       Debug.Print "DC Site Name: " & objItem.DcSiteName
       Debug.Print "Description: " & objItem.Description
       Debug.Print "DNS Forest Name: " & objItem.DnsForestName
       Debug.Print "Domain Controller Address: " & objItem.DomainControllerAddress
       Debug.Print "Domain Controller Address Type: " & objItem.DomainControllerAddressType
       Debug.Print "Domain Controller Name: " & objItem.DomainControllerName
       Debug.Print "Domain GUID: " & objItem.DomainGuid
       Debug.Print "Domain Name: " & objItem.DomainName
       Debug.Print "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
       Debug.Print "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
       Debug.Print "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
       Debug.Print "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
       Debug.Print "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
       Debug.Print "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
       Debug.Print "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
       Debug.Print "DS Time Service Flag: " & objItem.DSTimeServiceFlag
       Debug.Print "DS Writable Flag: " & objItem.DSWritableFlag
       Debug.Print "Name: " & objItem.Name
       Debug.Print "Primary Owner Contact: " & objItem.PrimaryOwnerContact
       Debug.Print
    Next
    End Sub



    Sucesso!


    Última edição por Avelino Sampaio em 8/7/2013, 14:34, editado 2 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 361
    Registrado : 06/04/2013

    [Resolvido]Nome do Controlador de Domínio Empty Re: [Resolvido]Nome do Controlador de Domínio

    Mensagem  Jeferson de Paula 24/5/2013, 23:17

    Você é o cara! Ajudou a salvar minha janta! kkkkkkkkkkkk. Valeu mesmo Avelino!


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft®️ Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL

      Data/hora atual: 3/2/2023, 18:01