Mensajes

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 [Seleccionar] Expandir



' 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


Había visto un documental, en el que un hacker mostraba como había hecho en su pasado para hacer eso mismo... Lo que no sé es dónde encontrarlo, había hecho un aparato él mismo para eso...

Jajaja ese hacker es conocido como "capitan crunch" y lo puedes encontrar en
esta es la primera parte del documental de Discovery Channel
[youtube=425,350]Cy-fLPzCAYw[/youtube]

[/b]