y como logro hacer para que me muestre solo la direccion MAC que esta activa en ese momento ya lo hice con la IP pero con la MAC no he podido ?
La idea es que ejecute el script se guarde en excel y brinque la linea para guardar mas datos.
Código:
' SELECCION DE DATOS
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
' NUMERO DE SERIE
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_BIOS")
For Each objItem in colItems
Wscript.Echo "Numero De Serie: " & objItem.SerialNumber
Next
' DOMINIO, MARCA, MODELO, NOMBRE PC, USUARIO
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_ComputerSystem")
For Each objItem in colItems
Wscript.Echo "Dominio: " & objItem.Domain
Wscript.Echo "Marca: " & objItem.Manufacturer
Wscript.Echo "Modelo: " & objItem.Model
Wscript.Echo "Nombre De PC: " & objItem.Name
Wscript.Echo "Usuario: " & objItem.PrimaryOwnerName
Next
' DIRECCION MAC
Set colItems = objWMIService.ExecQuery( _
"Select * from Win32_NetworkAdapter")
For Each objItem in colItems
Wscript.Echo "Direccion MAC: " & objItem.MACAddress
Next
' DIRECCION IP
Set colItems = objWMIService.ExecQuery( _
"Select IPAddress from Win32_NetworkAdapterConfiguration" _
& " where IPEnabled=TRUE")
For Each objItem in colItems
If isNull(objItem.IPAddress) Then
Wscript.Echo "Direccion IP: "
Else
Wscript.Echo "Direccion IP: " & Join(objItem.IPAddress, ",")
End If
Next
' SISTEMA OPERATIVO
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_OperatingSystem")
For Each objItem in colItems
Wscript.Echo "Sistema Operativo: " & objItem.Name
Next