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
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 Sub

Aquí encuentras más información:

Win32_NetworkAdapter class - Win32 apps | Microsoft Learn


-------------------------------------------------------------------------------------------

Recomendaciones en mi canal

Sal u dos Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas