Saber información de mi Hardware utilizando VB.NET 2005
 

Estoy haciendo una aplicación que recoge el inventario en Hardware de una PC y necesito saber de que forma saber como sacar la siguiente información desde el VB.NET 2005.

1) Espacio Total en Disco
2) Espacio Libre en Disco
3) Velocidad del CPU
4) Licencia de Windows
5) Saber si tiene o no CDROM
6) Cantidad de Discos Duros

Estuve revisando las clases Environment y VisualBasic.Devices.ComputerInfo. hasta el momento he obtenido mucha información útil, pero me faltan las que les listo más arriba.

¿Alguien sabe como obtener esa información desde el VB.NET 2005? :pensando:

Re: Saber información de mi Hardware utilizando VB.NET 2005
 

Ya encontré la forma de obtener la información de los discos duros y cdrom.

Les dejo el código por si les interesa:
Para el espacio libre cambian disk("Size") por disk("FreeSpace").

Pero aún me faltan las siguientes:
1) Velocidad del CPU
2) Licencia de Windows

Alguien que me ayude... :pensando:

Re: Saber información de mi Hardware utilizando VB.NET 2005
 

Aún estoy buscando:
1) Velocidad del CPU (Procesador)
2) Licencia de Windows

Estuve buscando en todas las GetEnvironmentVariables de la clase Environment y no hay nada que sea referente a la velocidad del procesador.

¿Alguién me puede dar una mano? :pensando:

Respuesta: Saber información de mi Hardware utilizando VB.NET 2005
 

brother sabes como hacer para capturar los datos del procesador su nombre y su frecuencia y velocidad? podrias poner como hiciste para capturar los otros datos

Respuesta: Saber información de mi Hardware utilizando VB.NET 2005
 

No tengo todo lo que pides, pero hay ten van algunos Tips! :-)

TipoProcesador = Environment.GetEnvironmentVariable("PROCESSOR_IDENTIFIER").ToString
CantProcesadores = CShort(Environment.ProcessorCount)
NombrePC = Environment.MachineName

Función para saber la dirección IP:
Usuario = My.User.Name.ToUpper



VersionOS = Environment.OSVersion.VersionString
VersionSPWin = Environment.OSVersion.ServicePack

Función para saber el espacio Libre en Disco:

Código:

---

PrivateFunction fn_SpacioLibreEnDisco() As System.UInt64
Dim diskClass AsNew System.Management.ManagementClass("Win32_LogicalDisk")
Dim disks As System.Management.ManagementObjectCollection = diskClass.GetInstances()
Dim disk As System.Management.ManagementObject
Dim space As System.UInt64 = 0
ForEach disk In disks
If disk("Description").ToString = "Local Fixed Disk"Then
space += CType(disk("FreeSpace"), System.UInt64)
EndIf
Next disk
Return space
EndFunction


---

Respuesta: Saber información de mi Hardware utilizando VB.NET 2005
 

Aquí te va una clase que tiene muchas cosas más:

PublicClass clsSystemInformation
#Region"Variables"
Private _strComputerName AsString
Private _strManufacturer AsString
Private _StrModel AsString
Private _strOSName AsString
Private _strOSVersion AsString
Private _strSystemType AsString
Private _strTPM AsString
Private _strWindowsDir AsString
Private _decVelocidadProcesador AsDecimal
#EndRegion
#Region"Propiedades"
PublicReadOnlyProperty pr_ComputerName() AsString
Get
pr_ComputerName = _strComputerName
EndGet
EndProperty
PublicReadOnlyProperty pr_Manufacturer() AsString
Get
pr_Manufacturer = _strManufacturer
EndGet
EndProperty
PublicReadOnlyProperty pr_Model() AsString
Get
pr_Model = _StrModel
EndGet
EndProperty
PublicReadOnlyProperty pr_OsName() AsString
Get
pr_OsName = _strOSName
EndGet
EndProperty
PublicReadOnlyProperty pr_OSVersion() AsString
Get
pr_OSVersion = _strOSVersion
EndGet
EndProperty
PublicReadOnlyProperty pr_SystemType() AsString
Get
pr_SystemType = _strSystemType
EndGet
EndProperty
PublicReadOnlyProperty pr_TotalPhysicalMemory() AsString
Get
pr_TotalPhysicalMemory = _strTPM
EndGet
EndProperty
PublicReadOnlyProperty pr_WindowsDirectory() AsString
Get
pr_WindowsDirectory = _strWindowsDir
EndGet
EndProperty
PublicReadOnlyProperty pr_VelocidadProcesador() AsDecimal
Get
Return _decVelocidadProcesador
EndGet
EndProperty
#EndRegion
#Region"Constructor"
PublicSubNew()
Dim objMgmt AsNew Management.ManagementObject
Dim objMOS AsNew Management.ManagementObjectSearcher
objMOS = New Management.ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
ForEach 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")
ForEach 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")
ForEach objMgmt In objMOS.Get
_decVelocidadProcesador = CDec(objMgmt("CurrentClockSpeed").ToString.Trim)
Next
objMOS.Dispose() : objMOS = Nothing
objMgmt.Dispose() : objMgmt = Nothing
EndSub
#EndRegion
EndClass

Respuesta: Re: Saber información de mi Hardware utilizando VB.NET 2005
 

Qué espacios de nombres usas, en vb2008 con framework 3.0 me da un monton de errores

Respuesta: Saber información de mi Hardware utilizando VB.NET 2005
 

Hiciste el Add Reference de System.Management dentro del tab .NET

Respuesta: Saber información de mi Hardware utilizando VB.NET 2005
 

También pueden intentarlo con esta DLL

http://www.aimbox.cl/main/informacion-de-sistema-net/

nos cuentas.