Ayuda con programa que muestre informacion del pC

[carlitta]

Hola a todos, soy novata en esto!!
es mi primera vez.asjsaasj
por ende les pido su auda a todos!!!!

Estoi creando un programa en el visual studio 2008 (lo instale hace poco)
y necesito que el programa m muestre toda la informacion del Pc
-usaurio,
-procesador
-ram
-disco duro
-sistema operativo
-memoria cache
-etc
-etc

soea toda la informacion del PC

espero puedan ayudarme
saludos cuidence:p ensando:

[Peterpay]

ok investiga aqui en el foro todos los temas que hablen de WMI y los queries correspondientes para todos tus apartados.

[carlitta]

e buscado pero no e podio encontrar nada:S
espeor puedas ayudarme con el codig
saludos

[Peterpay]

http://www.forosdelweb.com/f79/saber...2005-a-478256/ hay que buscarle con mas ganas ;)

[carlitta]

pero esos codigos sirven para lo que es visual studio 2008 ??
saludos
ya que los probe y no me funcionaron me tiro millones de errores xD

[Peterpay]

no pues sin ver algunos de esos millones de errores es imposible saber que es lo que te pasa. el lenguaje es el mismo y los cambios de versioens de framework no debe significar nigun problema.

ademas recuerda que son ideas de solucion no hay garantia de que todo funcione para copy & paste y ya, hay que ver que error te marca y por ahi se te puede ayudar.

[carlitta]

el error que siempre sale es
"se esperaba fin de declaracion!
saludos

[gnzsoloyo]

Iniciado por carlitta

el error que siempre sale es
"se esperaba fin de declaracion!
saludos

Trata de ser un poco más detallada en la explicación: En qué líneas (ejemplos), en cuáles métodos, qué partes del código no reconoce. qué cosas hiciste para tratar de resolverlo, qué cosas o mensajes no entiendes.
¿Importaste el workspace System.Management?
¿Trataste de ver por qué no reconocía las declaraciones de variables o métodos?
¿La copia de código generó algún error?

Por las dudas, te pongo el código tal y como yo lo copié (es el mismo salvo el nombre de la clase):

Código VB.Net:

Public Class SystemDescription
 
#Region "Variables"
    Private _strComputerName As String
    Private _strManufacturer As String
    Private _StrModel As String
    Private _strOSName As String
    Private _strOSVersion As String
    Private _strSystemType As String
    Private _strTPM As String
    Private _strWindowsDir As String
    Private _decVelocidadProcesador As Decimal
#End Region
 
#Region "Propiedades"
    Public ReadOnly Property pr_ComputerName() As String
        Get
            Return _strComputerName
        End Get
    End Property
    Public ReadOnly Property pr_Manufacturer() As String
        Get
            Return _strManufacturer
        End Get
    End Property
    Public ReadOnly Property pr_Model() As String
        Get
            Return _StrModel
        End Get
    End Property
    Public ReadOnly Property pr_OsName() As String
        Get
            Return _strOSName
        End Get
    End Property
    Public ReadOnly Property pr_OSVersion() As String
        Get
            Return _strOSVersion
        End Get
    End Property
    Public ReadOnly Property pr_SystemType() As String
        Get
            Return _strSystemType
        End Get
    End Property
    Public ReadOnly Property pr_TotalPhysicalMemory() As String
        Get
            Return _strTPM
        End Get
    End Property
    Public ReadOnly Property pr_WindowsDirectory() As String
        Get
            Return _strWindowsDir
        End Get
    End Property
    Public ReadOnly Property pr_VelocidadProcesador() As Decimal
        Get
            Return _decVelocidadProcesador
        End Get
    End Property
#End Region
 
#Region "Constructor"
    Public Sub New()
        Dim objMgmt As New Management.ManagementObject
        Dim objMOS As Management.ManagementObjectSearcher
        objMOS = New Management.ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
        For Each objMgmt In objMOS.Get
            _strOSName = objMgmt("name").ToString.Trim
            _strOSVersion = objMgmt("version").ToString.Trim
            _strComputerName = objMgmt("csname").ToString.Trim
            _strWindowsDir = objMgmt("windowsdirectory").ToString.Trim
        Next
        objMOS = New Management.ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem")
        For Each objMgmt In objMOS.Get
            _strManufacturer = objMgmt("manufacturer").ToString.Trim
            _StrModel = objMgmt("model").ToString.Trim
            _strSystemType = objMgmt("systemtype").ToString.Trim
            _strTPM = objMgmt("totalphysicalmemory").ToString.Trim
        Next
        objMOS = New Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor")
        For Each objMgmt In objMOS.Get
            _decVelocidadProcesador = CDec(objMgmt("CurrentClockSpeed").ToString.Trim)
        Next
        objMOS.Dispose()
        objMOS = Nothing
        objMgmt.Dispose()
        objMgmt = Nothing
    End Sub
#End Region
 
End Class
 

Al menos a mí me funcionó, aunque tuve que corregir muchos problemas de sintaxis por el Copy+Paste...

[carlitta]

oka muchas gracias gnzsoloyo, lo ocupe y funcionoa la perfeccion, tabien intente hacer algo mas simple con los comandos

textbox1 = My.computer.info.name
textbox2 = My.computer.info.Osplataform
etc
etc

pero el problema que solo he encontrado un maximo de 10 codigos o cosas que me meustran lso codigos, no encuentro mas.. y si te fijas en el everest. tiene una interfaz mucho mas completa y ademas muetra mas de 50 datos del computador. como podria hacer para que fuera asi.
o porlomenos divividir mi programa en 2
info hardaware e
info sisema
onda que la interfaz grafica sea con dos ventanas o dos opciones apra elejir

saludos y gracias de ante mano ..besitos!!

[shadowdark]

Hola mira puedes buscar y bajarte un programa que se llama everest, alli puedes encontrar solucion a tus problemas

[carlitta]

si se de la exsitencia de ese programa por ende msimo, estoi haceidno un program parecido a ese para un proyecto final
saludos grx