Obtener nombre de red WIFI conectado
¿Es posible obtener mediante una macro el nombre de la red WIFI a la que estoy conectado actualmente?
Respuesta de Dante Amor
3
Visita:
Cursos de Excel y Macros
-------------------------------------------------------------------------------------------
Esto es lo que encontré, espero que te sirva.
Ejecuta la macro, los resultados en la hoja1:
Sub Get_All_Network_Adapter_Details()
Dim NetworkAdapters As Object
Dim adapter As Object
Dim wmi As Object
Dim sh As Worksheet
Dim i As Long
'
Set sh = ThisWorkbook.Sheets("Hoja1")
Set wmi = GetObject("winmgmts:root\cimv2")
Set NetworkAdapters = wmi.ExecQuery("Select * from Win32_NetworkAdapter where AdapterTypeId<10 AND NetConnectionID='Wi-Fi'", , 48)
'
i = 2
'
On Error Resume Next
For Each adapter In NetworkAdapters
With adapter
sh.Cells(i, 1).Value = .AdapterType
sh.Cells(i, 2).Value = .AdapterTypeID
sh.Cells(i, 3).Value = .AutoSense
sh.Cells(i, 4).Value = .Availability
sh.Cells(i, 5).Value = .Caption
sh.Cells(i, 6).Value = .ConfigManagerErrorCode
sh.Cells(i, 7).Value = .ConfigManagerUserConfig
sh.Cells(i, 8).Value = .CreationClassName
sh.Cells(i, 9).Value = .Description
sh.Cells(i, 10).Value = .DeviceID
sh.Cells(i, 11).Value = .ErrorCleared
sh.Cells(i, 12).Value = .ErrorDescription
sh.Cells(i, 13).Value = .GUID
sh.Cells(i, 14).Value = .Index
sh.Cells(i, 15).Value = .InstallDate
sh.Cells(i, 16).Value = .Installed
sh.Cells(i, 17).Value = .InterfaceIndex
sh.Cells(i, 18).Value = .LastErrorCode
sh.Cells(i, 19).Value = .MACAddress
sh.Cells(i, 20).Value = .Manufacturer
sh.Cells(i, 21).Value = .MaxNumberControlled
sh.Cells(i, 22).Value = .MaxSpeed
sh.Cells(i, 23).Value = .Name
sh.Cells(i, 24).Value = .NetConnectionID
sh.Cells(i, 25).Value = .NetConnectionStatus
sh.Cells(i, 26).Value = .NetEnabled
sh.Cells(i, 27).Value = .NetConnectionID
'sh.cells(i, 27).value = .NetworkAddresses[]
sh.Cells(i, 28).Value = .PermanentAddress
sh.Cells(i, 29).Value = .PhysicalAdapter
sh.Cells(i, 30).Value = .PNPDeviceID
'sh.cells(i, 31).value = .PowerManagementCapabilities[]
sh.Cells(i, 32).Value = .PowerManagementSupported
sh.Cells(i, 33).Value = .ProductName
sh.Cells(i, 34).Value = .ServiceName
sh.Cells(i, 35).Value = .Speed
sh.Cells(i, 36).Value = .Status
sh.Cells(i, 37).Value = .StatusInfo
sh.Cells(i, 38).Value = .SystemCreationClassName
sh.Cells(i, 39).Value = .SystemName
sh.Cells(i, 40).Value = .TimeOfLastReset
i = i + 1
End With
Next
End SubAquí encuentras más información:
Win32_NetworkAdapter class - Win32 apps | Microsoft Learn
-------------------------------------------------------------------------------------------
Recomendaciones en mi canal
Sal u dos Dante Amor
