Ayuda con programa que muestre informacion del pC

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