MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Mostrar IP da maquina!

    Compartilhe
    avatar
    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.
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3389
    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!
    avatar
    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: Qua 20 Set 2017, 21:00