CÓDIGO ACCESS PARA SABER LA MAC DE MI PC
Publicado por Rodanim (16 intervenciones) el 22/07/2020 23:52:37
HOLA AMIGOS, ME DA GUSTO SALUDARLOS..
ALGUIEN POR CASUALIDAD PUEDE AYUDARME CON UN PROBLEMITA...
NECESITO UN CODIGO VISUAL PARA PODER VER LA MAC DE MI COMPUTADORA (SIN INTERNET) EN UN FORMULARIO ACCESS, A TRAVÉS DE UN BOTÓN DE COMANDO...
ALGUIEN QUE ME PUEDE AYUDAR.. LES AGRADECERÉ ENORMEMENTE.
ENCONTRE UN CODIGO, SI ME FUNCIONA MUY BIEN.. PERO LUEGO ME DI CUENTA QUE SOLO FUNCIONA SI LA COMPUTADORA TIENE CONEXIÓN A INTERNET.... ESO NO ME PARECE. QUISIERA SABER SI HABRÁ ALGÚN CÓDIGO PARA SABER LA MAC SIN INTERNET
LES ADJUNTO EL CÓDIGO QUE FUNCIONA SOLO SI LA PC TIENE INTERNET:
ALGUIEN POR CASUALIDAD PUEDE AYUDARME CON UN PROBLEMITA...
NECESITO UN CODIGO VISUAL PARA PODER VER LA MAC DE MI COMPUTADORA (SIN INTERNET) EN UN FORMULARIO ACCESS, A TRAVÉS DE UN BOTÓN DE COMANDO...
ALGUIEN QUE ME PUEDE AYUDAR.. LES AGRADECERÉ ENORMEMENTE.
ENCONTRE UN CODIGO, SI ME FUNCIONA MUY BIEN.. PERO LUEGO ME DI CUENTA QUE SOLO FUNCIONA SI LA COMPUTADORA TIENE CONEXIÓN A INTERNET.... ESO NO ME PARECE. QUISIERA SABER SI HABRÁ ALGÚN CÓDIGO PARA SABER LA MAC SIN INTERNET
LES ADJUNTO EL CÓDIGO QUE FUNCIONA SOLO SI LA PC TIENE INTERNET:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim sComputer As String
Dim oWMIService As Object
Dim cItems As Object
Dim oItem As Object
Dim myMacAddress As String
sComputer = "."
Set oWMIService = GetObject("winmgmts:\\" & sComputer & "\root\cimv2")
Set cItems = oWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each oItem In cItems
If Not IsNull(oItem.IPAddress) Then myMacAddress = oItem.macAddress
Exit For
Next
'it will return mac address in format MM:MM:MM:SS:SS:SS
CuadroTexto = myMacAddress
Valora esta pregunta
0