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

[RsOfT]

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:

Código:

 
Private Function fn_DireccionIP(ByVal strNombrePC As String) As String
'Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strNombrePC)
'Return CType(h.AddressList.GetValue(0), Net.IPAddress).ToString
'La siguiente rutina escribe todas las IPs del PC (puede tener más de una). 
'Requiere poner en el proyecto una Referencia a System.Management, y hacer un 
'Imports System.Management. Contiene dos bucles anidados: el primero recorre 
'todas las tarjetas de red del PC, y el segundo enumera, por cada tarjeta, 
'todas las direcciones de esa tarjeta. 
Dim query As New System.Management.ManagementObjectSearcher("SELECT * FROM WIN32_NetworkAdapterConfiguration WHERE IPEnabled = 'TRUE'")
Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()
Dim mo As New System.Management.ManagementObject
Dim strIPAddress As String = ""
For Each mo In queryCollection
Dim strAddresses() As String = CType(mo("IPAddress"), String())
For Each strIPAddress In strAddresses
Exit For
Next
If strIPAddress <> "" Then Exit For
Next
'--Liberando Memoria--
query.Dispose() : query = Nothing
queryCollection.Dispose() : queryCollection = Nothing
mo.Dispose() : mo = Nothing
'---------------------
Return strIPAddress

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