Prezados, boa noite!
Preciso de um vbscript que faça uma varredura das placas de rede de minha maquina e salve os IPs e os Mac adress (um abaixo do outro no txt)
Como exemplo, no txt, ficaria assim;
10.127.94.145
00-51-57-C0-10-17
192.168.233.3
00-51-57-C1-13-03
192.168.245.4
D4-3C-04-65-35-E4
Achei este script que faz a varredura dos ips e mostra eles em sequencia num box. Mas preciso muito desse script de cima..
[code=vb]
strcomputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objitem In colitems
strIPAddress = Join(objitem.IPAddress, ",")
IP = Split(stripaddress, ",")
MsgBox(IP(0))
Next
[/code]
Por gentileza, alguém poderia me ajudar?
Desde já, muito grato!
jnstar.

jnstar
Novo Membro
Registrado
3 Mensagens
0 Curtidas