Hola!

Registrándote como bakuno podrás publicar, compartir y comunicarte en privado con otros bakuos :D

Regístrame ya!

Inventario hardware

B

Balcirus

Becerro
Desde
22 Ene 2012
Mensajes
1
Buen día mis amigos

Quisiera saber si alguien tiene algún .bak para hacer inventario de hardware, porque tengo el tiene.por contado con esto y son muchas máquinas como para hacerlo manual

Saludos
 
GLPI es un software frances para hacer inventario de maquinas
 
Otra opcion es que programes un sistema que haga peticiones WMI a los equipos de computo, al regresar los datos WMI, los envies a una base de datos.
Yo hice uno asi para la empresa a la que trabajo.

Un ejemplo:
Código: 
Dim connection As New ConnectionOptions
  connection.Username = strAdmin
  connection.Password = strPassword
  connection.Authority = "ntlmdomain:DOMAIN"

  Dim scope As New ManagementScope("\\" & COMPUTERNAME & "\root\CIMV2", connection)
  'Dim scope As New ManagementScope("\\192.168.0.248\root\CIMV2", connection)

  scope.Connect()

  Dim query As New ObjectQuery("SELECT * FROM Win32_OperatingSystem")

  Dim searcher As New ManagementObjectSearcher(scope, query)

  Dim tmp_build_number As String = String.Empty
  Dim tmp_build_type As String = String.Empty
  Dim tmp_caption As String = String.Empty
  Dim tmp_country_code As String = String.Empty
  Dim tmp_csdversion As String = String.Empty
  Dim tmp_csname As String = String.Empty
  Dim tmp_current_time_zone As Int32 = 0
  Dim tmp_install_date As String = String.Empty
  Dim tmp_manufacturer As String = String.Empty
  Dim tmp_iOSLanguage As Int32 = 0
  Dim tmp_product_type As Int32 = 0
  Dim tmp_registered_user As String = String.Empty
  Dim tmp_serial_number As String = String.Empty
  Dim tmp_service_pack_major As Int32 = 0
  Dim tmp_service_pack_minor As Int32 = 0
  Dim tmp_system_device As String = String.Empty
  Dim tmp_system_directory As String = String.Empty
  Dim tmp_system_drive As String = String.Empty
  Dim tmp_version As String = String.Empty
  Dim tmp_windows_directory As String = String.Empty


  For Each queryObj As ManagementObject In searcher.Get()

  tmp_build_number = queryObj("BuildNumber")
  tmp_build_type = queryObj("BuildType")
  tmp_caption = queryObj("Caption")
  tmp_country_code = queryObj("CountryCode")
  tmp_csdversion = queryObj("CSDVersion")
  tmp_csname = queryObj("CSName")
  tmp_current_time_zone = queryObj("CurrentTimeZone")
  tmp_install_date = queryObj("InstallDate")
  tmp_manufacturer = queryObj("Manufacturer")
  tmp_iOSLanguage = queryObj("OSLanguage")
  tmp_product_type = queryObj("ProductType")
  tmp_registered_user = queryObj("RegisteredUser")
  tmp_serial_number = queryObj("SerialNumber")
  tmp_service_pack_major = queryObj("ServicePackMajorVersion")
  tmp_service_pack_minor = queryObj("ServicePackMinorVersion")
  tmp_system_device = queryObj("SystemDevice")
  tmp_system_directory = queryObj("SystemDirectory")
  tmp_system_drive = queryObj("SystemDrive")
  tmp_version = queryObj("Version")
  tmp_windows_directory = queryObj("WindowsDirectory")

   

     'INSERTA EN TU BASE DE DATOS FAVORITA

  Next
 
Debes iniciar sesión o registrarte para participar.
Volver
Arriba