Una opcion con VBS y winmgmts
Código:
Function vbparametros()
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objItem In colItems
'WScript.Echo "Name: " & objItem.Name
fparametros.T16.value = objItem.Manufacturer
fparametros.T17.value = objItem.Model
fparametros.T18.value = objItem.TotalPhysicalMemory
Next
Set colOSItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objOSItem In colOSItems
fparametros.T13.value = objOSItem.FreePhysicalMemory
fparametros.T14.value = objOSItem.TotalVirtualMemorySize
fparametros.T15.value = objOSItem.FreeVirtualMemory
'WScript.Echo "Total Visible Memory Size: " & objOSItem.TotalVisibleMemorySize
Next
End Function
salu2