MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Mostrar IP da maquina!

    Compartilhe

    LEAM
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 698
    Registrado : 02/04/2011

    Mostrar IP da maquina!

    Mensagem  LEAM em Sex 16 Out 2015, 15:10

    Bom dia galera!

    Estou procurando o modulo para implantar no sistema que mostre o IP da maquina

    Lembrando que a rede aqui é privada e com proxy
    VBA MODULE: Get all IP


    .................................................................................
    Uma vida sem desafios não vale a pena ser vivida.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Mostrar IP da maquina!

    Mensagem  Avelino Sampaio em Sex 16 Out 2015, 15:34

    Olá!

    Veja se este meu artigo atende:

    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    LEAM
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 698
    Registrado : 02/04/2011

    Re: Mostrar IP da maquina!

    Mensagem  LEAM em Sab 17 Out 2015, 14:52

    Resolvido! Amigo agora queria usar o código para mostrar o IP sem ser no form da aplicação

    tipo uma caixa de texto de outro formulário


    Public Function fncIP() As String
    Dim objWMIService As Object
    Dim strComputer As String
    Dim strSql As String
    Dim IPConfigSet
    Dim IPConfig
    Dim i

    strComputer = "." 'Acesso a máquina local
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    strSql = "Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE"
    Set IPConfigSet = objWMIService.ExecQuery(strSql)

    For Each IPConfig In IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then
    For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
       If InStr(IPConfig.IPAddress(i), "::") = 0 Then fncIP = "IP da máquina " & Environ("computername") & ":  " & IPConfig.IPAddress(i)
    Next
    End If
    Next
    Set objWMIService = Nothing
    End Function



    .................................................................................
    Uma vida sem desafios não vale a pena ser vivida.

      Data/hora atual: Sab 03 Dez 2016, 02:26