Tem macro que captura o IP ADRESS...

Serve?

Mais uma que não conheço. Serve como biblioteca. Se puder mandar agradeço.

Eu estou montando uma planilha q precisa ser aberta em uma máquina só, então nem rolaria bloquear por IP. Seria só trocar o IP da outra. Uma dessa no máximo não seria usada por duas máquinas AO MESMO TEMPO.

A ideia é o usuário ficar preso a mim. Eu preciso liberar pra usar em máquina por máquina.

Mas vamos juntos. Acho que chegaremos lá.

Obrigado.

Do site vbaexpress.com

Option Explicit 
 
Sub IPtest() 
    Dim wsh As Object 
    Dim RegEx As Object, RegM As Object 
    Dim FSO As Object, fil As Object 
    Dim ts As Object, txtAll As String, TempFil As String 
    Set wsh = CreateObject("WScript.Shell") 
    Set FSO = CreateObject("Scripting.FileSystemObject") 
    Set RegEx = CreateObject("vbscript.regexp") 
    TempFil = "C:myip.txt" 
     ' Save ipconfig info to temporary file
    wsh.Run "%comspec% /c ipconfig > " & TempFil, 0, True 
    With RegEx 
        .Pattern = "(d{1,3}.){3}d{1,3}" 
        .Global = False 
    End With 
    Set fil = FSO.GetFile(TempFil) 
     ' Access temporary file
    Set ts = fil.OpenAsTextStream(1) 
    txtAll = ts.ReadAll 
    Set RegM = RegEx.Execute(txtAll) 
     ' Return IP address to Activesheet cell A1 by parsing text
    ActiveSheet.Range("A1").Value = RegM(0) 
    ActiveSheet.Range("A1").EntireColumn.AutoFit 
    ts.Close 
     ' Remove temp file
    Kill TempFil 
     
    Set ts = Nothing 
    Set wsh = Nothing 
    Set fil = Nothing 
    Set FSO = Nothing 
    Set RegM = Nothing 
    Set RegEx = Nothing 
End Sub

Abriu um baita horizonte aqui.

TempFil = "C:myip.txt"
' Save ipconfig info to temporary file
wsh.Run "%comspec% /c ipconfig > " & TempFil, 0, True

Essas linhas rodam o comando ipconfig e jogam pra dentro do arquivo myip.txt.

rodar comando no DOS e importar pro Excel vai ajudar muito. Agora é só descobrir um comando no DOS que me dê o ID da placa ou do processador que eu consigo chegar lá. Continuar pesquisando.

Compartilhando chegamos lá.

Obrigado.

PS: No linux seria bem mais fácil achar o comando. sr.

Bom. Graças a sua luz Mandrix cheguei lá. Pra ser sincero acho que ninguém nunca tinha feito algo assim. Caçei em foruns gringos e não achei nada tb. Mas vamos ao trabalho.

1)Não entendi como o camarada do script de IP transformou

Isso:

Configuração de IP do Windows

Adaptador Ethernet Conexão local:

Sufixo DNS específico de conexão . :

Endereço IP . . . . . . . . . . . . : 10.10.20.50

Máscara de sub-rede . . . . . . . . : 255.255.255.0

Gateway padrão. . . . . . . . . . . : 10.10.20.254

Nisso
10.10.20.50

Que seria meu IP.

2) Utilizei o comando systeminfo no dos e um script pra importar o arquivo de texto pro excel, tudo na tabela chamada RegTemp. Depois Isolei a ID na célula b1 da tabela registros. Esta tabela possui todos os computadores registrados na coluna A.

3) Compararei cada linha com dado da coluna A com o registro da célula B1. Se existisse esse registro o computador liberaria acesso imediato.

4) Porem... Se não existisse ele perguntaria se eu desejava registrar o computador. Se eu não quisesse ele sairia da pasta de trabalho.

5) Se eu quisesse ele pediria a senha do administrador. Após colocar a senha um novo Se. Se a senha estivesse incorreta ele sairia da pasta de trabalho. Se a senha estiver correta ele registra na coluna A da tabela Registros, libera acesso instantaneamente e por todas as próximas vezes que for acessada daquele computador.

A senha de administrador é: 123

Bom. O modelo vai ser anexado. Espero que sirva para vocês. Alguma dúvida só entrar em contato. Se entenderam como o cara fez pra isolar o IP me expliquem, talvez eu consiga reduzir minha macro.

Abraços e obrigado Mandrix.

fernando23,

Bom Dia!

Peço, por gentileza, das próximas vezes que anexar arquivos aqui no fórum, que faça antes a compactação com ZIP, por menores que sejam os mesmos. São as regras do fórum.

Tentando contribuir um pouco com a questão que você colocou, segue um pequeno exemplo de função que pega o número do HD da máquina. Isso talvez te ajude também a controlar aonde as macros devem rodar.

Opa,

Certo Wagner. Me desculpe, cheguei aqui ontem a noite com essa dúvida e não li os tópicos do fórum.

Que bom que a luz veio. Acredito que tenha sido a única falha pela experiência em fóruns anteriores, mas qualquer coisa estou a disposição.

Quanto a planilha que enviou. Obrigado, entendi o sentido dela. vai ter boa utilidade pra um outro pensamento que tenho.

Espero que tenham entendido a minha.

Um abraço.