elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Pasar resultados de Visual Basic Script a Excel
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Pasar resultados de Visual Basic Script a Excel  (Leído 2,605 veces)
MoThErHaCkErMxLi

Desconectado Desconectado

Mensajes: 5


www.dssmexicali.com


Ver Perfil WWW
Pasar resultados de Visual Basic Script a Excel
« en: 31 Marzo 2012, 07:38 am »

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


En línea

ALFA AWUS036H Con Antena de 9dbi
[ :. www.dssmexicali.com .: ]
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
programacion en visual basic.ayuda para importar de excel a excel
Programación Visual Basic
Railil 2 4,620 Último mensaje 20 Junio 2006, 16:08 pm
por Railil
Archivos de Excel con Visual Basic
Programación Visual Basic
pulgar 3 2,518 Último mensaje 24 Enero 2007, 22:04 pm
por Novlucker
Excel y Visual Basic como ?????
Programación Visual Basic
::: Devil ::: 4 2,796 Último mensaje 24 Abril 2007, 06:47 am
por cuntur
Ayuda con Visual Basic 6.0 y Excel
Programación Visual Basic
Arielxsxb 4 3,748 Último mensaje 3 Diciembre 2009, 20:21 pm
por ssccaann43 ©
Pasar script CE a visual basic « 1 2 »
Programación Visual Basic
BryanEderson 10 5,932 Último mensaje 27 Julio 2013, 01:43 am
por MCKSys Argentina
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines