Últimos Temas de: MoThErHaCkErMxLi

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.

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