Topics

Lo que intento hacer es ejecutar el VBS y que los datos que me muestre se vayan guardando en una hoja de excel en columnas ?

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.

Code Select Expand



' 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