SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: jpaler en Martes 20 de Marzo de 2007, 23:03

Título: Obtener Propiedades Del Hardware
Publicado por: jpaler en Martes 20 de Marzo de 2007, 23:03
Hola a todos !!!

bueno... puse este mismo mensaje en foro de java pero como no me
resultaron respuestas decidi intentarlo en el foro de delphi y vb.

...,Saben ustedes como obtener informacion del hardware instalado
en un pc.... desde visual basic.

Especificamente, necesito obtener el serial de los discos duros instalados.

ahora... si alguien sabe como hacerlo desde otro programa, tambien lo
aceptare con mucho gusto... ya q desde otro programa yo puedo enviarlo
a algun archivo de texto y leer la informacion desde java.

Gracias !!!
Título: Re: Obtener Propiedades Del Hardware
Publicado por: RadicalEd en Martes 20 de Marzo de 2007, 23:43
Usa el buscador del foro
http://foros.solocodigo.com/index.php?show...9&hl=disco+duro (http://foros.solocodigo.com/index.php?showtopic=9749&hl=disco+duro)
Título: Re: Obtener Propiedades Del Hardware
Publicado por: Bicholey en Miércoles 21 de Marzo de 2007, 01:27
:lol:  :lol:  :lol:  :lol:  :lol:

Para obtener màs informaciòn del disco duro checate esto:

http://foros.solocodigo.com/index.php?showtopic=21118 (http://foros.solocodigo.com/index.php?showtopic=21118)
Título: Re: Obtener Propiedades Del Hardware
Publicado por: jpaler en Miércoles 21 de Marzo de 2007, 22:33
bueno muchachos... MUCHISIMAS GRACIAS, ya con este pedazo
de codigo pude obtener el verdadero Numero Serial del Disco
Duro:
Citar
Dim ObjetoWMI As Object
   Dim Disco As Object
   Dim Discos As Object
   Set ObjetoWMI = GetObject("WINMGMTS:")
   Set Discos = ObjetoWMI.InstancesOf("Win32_PhysicalMedia")

   For Each Disco In Discos
      VSerFis = Trim(Disco.serialnumber)
      Msgbox VSerFis
   Next

...pero ahora necesito enviarlo a un archivo de texto (.txt) para poder
leerlo desde java.

¿Como creo un archivo de texto q contenga un String q sera el Nro Serial del HD?

Gracias...
Título: Re: Obtener Propiedades Del Hardware
Publicado por: Toph en Miércoles 21 de Marzo de 2007, 22:58
Cita de: "jpaler"
...pero ahora necesito enviarlo a un archivo de texto (.txt) para poder
leerlo desde java.

¿Como creo un archivo de texto q contenga un String q sera el Nro Serial del HD?

Gracias...
una forma es asi: te vas a proyecto---> componentes chequeas el que dice microsoft commondialog control 6.0 le das aceptar te aparecera el componente en la barra general lo agregas al formulario, y en tu programa pones el siguiente codigo
Código: Text
  1. Dim Texto As String
  2.   Dim Fichero As String
  3.   Dim num As Variant
  4.  
  5.   Texto = VSerFis
  6.    CommonDialog1.CancelError = False
  7.    CommonDialog1.DialogTitle = "guardar archivo como"
  8.    CommonDialog1.Filter = "Archivos de texto (*.txt) |*.txt|"
  9.    CommonDialog1.InitDir = Texto
  10.    CommonDialog1.FileName = ""
  11.    CommonDialog1.ShowSave
  12.    
  13.    Fichero = CommonDialog1.FileName
  14.  
  15.   num = FreeFile
  16.   If Trim(Fichero) <> "" Then
  17.       Open Fichero For Output As #num
  18.           Print #num, Texto
  19.       Close #num
  20.       MsgBox "Fichero guardado"
  21.   End If
  22. End Sub
  23.  

asi guardas el archivo de texto  :comp:
Título: Re: Obtener Propiedades Del Hardware
Publicado por: jpaler en Jueves 22 de Marzo de 2007, 00:26
gracias tania... dejame y pruebo.
Título: Re: Obtener Propiedades Del Hardware
Publicado por: jpaler en Jueves 22 de Marzo de 2007, 23:10
pues si.... listo... problema solucionado.

Gracias tania... con ese pedazo de codigo todo anda de maravilla, claro
q le quite lo del cuadro de dialogo xq no lo necesitaba...

Mil Gracias....