Código Vba que muestre las Pc's que están conectadas a la Red
Sres. T.E.
De Uds. Necesito código Vba o Una Macro, que muestre los Pc's que se encuentren conectados a mi pc Acensando mis archivos.
1 respuesta
Respuesta de Dante Amor
Visita:
Cursos de Excel y Macros
--------------------------------------------
Ejecuta lo siguiente en la "Hoja1" revisa si te proporciona lo que necesitas. O por lo menos te dará una pista por dónde buscar en la red.
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", , 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--------------------------------------------
Recomendación en mi canal:
Excel vba dictionary parte 3 - YouTube
Nota: Ya puedes descargar el archivo con los ejercicios del curso. Encuentra el enlace en la descripción del vídeo.
Sal u dos Dante Amor
