Ya encontré la forma de obtener la información de los discos duros y cdrom.
Les dejo el código por si les interesa:
Código:
Public Function fn_SpacioEnDisco() As System.UInt64
Dim diskClass As New System.Management.ManagementClass("Win32_LogicalDisk")
Dim disks As System.Management.ManagementObjectCollection = diskClass.GetInstances()
Dim disk As System.Management.ManagementObject
Dim space As System.UInt64
For Each disk In disks
If disk("Description").ToString = "Local Fixed Disk" Then
space += CType(disk("Size"), System.UInt64)
End If
Next disk
Return space
End Function
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...