Visual Basic.NET - Obtener IP, Memoria, Capacidad HDD, etc.

Hola a todos,
Quisiera saber como puedo obtener datos de un COMPUTADOR, como por ejemplo:
IP, Cantidad de memoria, Procesador, Sistema Operativo, Capacidad de Disco Duro, etc.
Algo así como el "AIDA32". En VISUAL BASIC .NET.

Gracias

NO te sirvió el link ke te propuse..??
O no te convence?..
Saludos!!!

Hola Quique..

Bien pues si, si que cada quien es diferente no??? jajajaja. . . .

Que yo, siendo gran visitadora y participadora en el sentido de que son más las dudas que las respuestas que presento en el presente foro y muchos más, por lo menos trato de dar las gracias!! o decir si me sirvió o no..
Pero bueno la vida te hace aprender que no todos pensamos y mucho menos somos iguales!!!
Pero en lo Personal, con que me dijeran si por lo menos les sirvió me daría por bien servida... Pero a veces eso ni sikiera pasa.. Pues he revisado en varias ocasiones si hay alguna respuesta satisfactoria a mi nota y me encontré con ke estaba nuevamente la pregunta... . .oooups!!!!
Y que ahora que he intentado dar alguna respuesta y no una pregunta como es lo más usual... Creo ke ha sido un acto fallido!! Snif, Snif!!!
Pero no hay problema.. Solo espero y sigamos por estos andares!!
Y mientras yo pueda seguiré respondiendo.. y como no, preguntando tmb!!!!

Te mando un saludo!!!
Que estés y estén muy bien!!!
Gracias a Dios Rencorosa no soy,,... jejejejeje
Besos!!!

Hola amigos:

Lilia, sabes, me parece bien tu opinión. Al menos hoy voy a empezar a dar las gracias después de recibir cada ayuda.

Por curiosidad estaba leyendo algunas respuestas, para aprender más, mientras espero mi ayuda..... sé que puedo encontrar como obtener el IP buscando en respuestas anteriores, pero.... ¿Me darías la respuesta para ganar tiempo?... creo que es algo interesante esto del IP y Parámetros de la PC.

Que les parece si agregamos una respuesta "DAR LAS GRACIAS" e incentivamos a ello.

MUCHAS GRACIAS

Hola amigos:

Lilia, sabes, me parece bien tu opinión. Al menos hoy voy a empezar a dar las gracias después de recibir cada ayuda.

Por curiosidad estaba leyendo algunas respuestas, para aprender más, mientras espero mi ayuda..... sé que puedo encontrar como obtener el IP buscando en respuestas anteriores, pero.... ¿Me darías la respuesta para ganar tiempo?... creo que es algo interesante esto del IP y Parámetros de la PC.

Que les parece si agregamos una respuesta "DAR LAS GRACIAS" e incentivamos a ello.

MUCHAS GRACIAS

Hola.

NO entendí bien tu comentario. y talvés yo sea una mal pensada pero me sonó a "sarcasmo"??? o es de buenas intenciones? jajaja, pero bueno aquí venimos a ayudarnos, y por lo menos yo no sé muchisimas cosas, es por ello que si bien todos necesitamos de todos.. aqui venimos a compartir conocimiento.. y no ha cambiar ideas..

Por lo pronto te comento que en cuanto a como obtener la IP, yo no sé como se hace, pero talvés éste link te guíe como lograrlo, claro está no es mío, pero alguien lo ha creado para quien le pueda servir:

http://www.elguille.info/colabora/NET2005/mfguerrero_ObtenerIP.htm

Y algunos pasamos la voz...

En lo personal soy muy nueva en esto y en ocasiones trato de compartir lo pokitito que sé, que me han enseñado compañeros de este Foro y algunos otros más.. o que me encuentro mientras (cómo tu también lo comentas), busco que aprender leyendo otras notas o buscando que veo de nuevo..
Y en lo personal no es requisito que den o no las gracias.. pues alguien mas lo hará... ayudando tmb...Además de que a veces, segura estoy, se da el caso de que mi respuesta puede no ayudar de mucho...

Asi que Si todos COLABORAMOS...todos aprendemos...
Que tengas un excelente día!!!
Besos!!!

.."La vida es confiar y creer en las personas a nuestro alrededor, es entregarnos a los demás... En el compartir está la clave...." Anónimo...

'Este ejemplo obtiene la información a traves de WMI
'Windows Management Object.
'Debes agregar la referencia a System.Managemet

'Para este ejemplo necesitas un listbox llamado lstInfo y un combobox llamado cboInfo


Imports System.Net
Imports System.Management

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

cboInfo.Items.Add("Hard disk")
cboInfo.Items.Add("Network")
cboInfo.Items.Add("Procesador")
cboInfo.Items.Add("Sistema Operativo")

End Sub

Sub InformacionPC(ByVal GetObjetoInfo As String, ByVal Objeto As String)
Dim WMIQuery As WqlObjectQuery
Dim properties As PropertyDataCollection
Dim searcher As ManagementObjectSearcher
Dim lista() As Object

lstInfo.Items.Add("")
lstInfo.Items.Add("Información de :" & Objeto)
lstInfo.Items.Add("")
lstInfo.Items.Add("")

Select Case GetObjetoInfo
Case "Sistema Operativo"
WMIQuery = New WqlObjectQuery("SELECT * FROM Win32_OperatingSystem")
Case "Network"
WMIQuery = New WqlObjectQuery("Select * From Win32_NetworkAdapter " _
& "Where NetConnectionID = " & _
"'Wifi'")
Dim hostname As String = Dns.GetHostName()
Dim hostentry As IPHostEntry = Dns.GetHostByName(hostname)
For Each ipaddress As IPAddress In hostentry.AddressList
lstInfo.Items.Add("IPAddress: " & ipaddress.ToString)
Next

Case "Procesador"
WMIQuery = New WqlObjectQuery("SELECT * FROM Win32_Processor")
Case "Hard disk"
WMIQuery = New WqlObjectQuery("SELECT * FROM Win32_DiskDrive")
End Select

searcher = New ManagementObjectSearcher(WMIQuery)
For Each SisInfo As ManagementObject In searcher.Get()
properties = SisInfo.Properties
For Each p As PropertyData In properties
If p.IsArray Then
If p.GetType Is GetType(System.String()) Then
lista = p.Value
lstInfo.Items.Add(p.Name & ": " & lista.GetValue(0))
End If
Else
If Not String.IsNullOrEmpty(p.Value) Then
lstInfo.Items.Add(p.Name & ": " & p.Value.ToString)
Else
Me.lstInfo.Items.Add(p.Name & ": " & "-----")
End If
End If
Next
lstInfo.Items.Add("")
lstInfo.Items.Add("")
Next

End Sub

Private Sub cboInfo_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboInfo.SelectionChangeCommitted
Me.lstInfo.Items.Clear()
Select Case Me.cboInfo.SelectedIndex
Case 0
InformacionPC("Hard disk", cboInfo.SelectedItem.ToString)
Case 1
InformacionPC("Network", cboInfo.SelectedItem.ToString)
Case 2
InformacionPC("Procesador", cboInfo.SelectedItem.ToString)
Case 3
InformacionPC("Sistema Operativo", cboInfo.SelectedItem.ToString)
End Select

End Sub
End Class

Hola Harold,

Disculpa pero no logro solucionar este tema me arroja muchos errores.
Que posibilidades hay de que me envíes el compilado completo funcionando?
Agregué las referencia y aún así me salen errores.

[email protected]

GRACIAS,
SALUDOS

WALTER