Programación General > Visual Basic 6.0 e inferiores

 Obtener Propiedades Del Hardware

(1/2) > >>

jpaler:
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 !!!

RadicalEd:
Usa el buscador del foro
http://foros.solocodigo.com/index.php?show...9&hl=disco+duro

Bicholey:
:lol:  :lol:  :lol:  :lol:  :lol:

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

http://foros.solocodigo.com/index.php?showtopic=21118

jpaler:
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

--- Fin de la cita ---

...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...

Toph:

--- 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...
--- Fin de la cita ---
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 ---Dim Texto As String  Dim Fichero As String  Dim num As Variant   Texto = VSerFis   CommonDialog1.CancelError = False   CommonDialog1.DialogTitle = "guardar archivo como"   CommonDialog1.Filter = "Archivos de texto (*.txt) |*.txt|"   CommonDialog1.InitDir = Texto   CommonDialog1.FileName = ""   CommonDialog1.ShowSave      Fichero = CommonDialog1.FileName    num = FreeFile  If Trim(Fichero) <> "" Then      Open Fichero For Output As #num          Print #num, Texto      Close #num      MsgBox "Fichero guardado"  End IfEnd Sub 
asi guardas el archivo de texto  :comp:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente