Un script VBS (Visual Basic Script) que obtiene la memoria RAM usada en porcentaje. Extraerá la información mediante WMI, con Win32_ComputerSystem y Win32_OperatingSystem.
- Script VBS para obtener la memoria RAM usada (porcentaje) en el equipo.
- Ejemplo de ejecución del script VBS que obtiene el porcentaje de memoria RAM usada en el equipo.
Script VBS para obtener la memoria RAM usada (porcentaje) en el equipo
El código fuente del script vbs completo:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
' Obtener el porcentaje de memoria RAM usada en el equipo dim memoriaUsada, porcentajeMemoriaUsada dim memoriaTotal ' Obtenemos la memoria RAM usada del equipo actual mediante WMI equipo = "." set oWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & equipo & "\root\cimv2") set cTotalRAM = oWMI.ExecQuery("Select * from Win32_ComputerSystem") ' Obtenemos la memoria RAM total del equipo memoriaTotal = 0 for each slotRAM in cTotalRAM memoriaTotal = slotRAM.totalPhysicalMemory next ' Obtenemos la memoria RAM libre en el equipo set cRAMUsada = oWMI.ExecQuery("Select freePhysicalMemory from Win32_OperatingSystem") for each slotRAM in cRAMUsada memoriaUsada = slotRAM.freePhysicalMemory * 1024 next ' Comprobamos que no se haya producido error en la obtención del total de RAM on error resume next siError = cTotalRAM.Count if (err.number <> 0) then siError = true else siError = false end if on error goto 0 ' Comprobamos que no se haya producido error en la obtención del total de RAM usada on error resume next siError = cRAMUsada.Count if (err.number <> 0) then siError = true else siError = false end if on error goto 0 if (not siError and memoriaTotal <> 0) then ' Obtenemos el porcentaje de RAM usada en base al total de memoria RAM y el total usada porcentajeMemoriaUsada = round (100 - (memoriaUsada / memoriaTotal) * 100, 2) ' Mostramos el resultado por consola Wscript.StdOut.WriteLine "Memoria RAM usada: " & porcentajeMemoriaUsada & "%" else Wscript.StdOut.WriteLine "No se ha podido obtener la Memoria RAM usada" end if Wscript.StdOut.flush WScript.Quit |
Ejemplo de ejecución del script VBS que obtiene el porcentaje de memoria RAM usada en el equipo
Guardaremos el código anterior en un fichero de texto plano, con el nombre memoria_RAM_Usada.vbs (por ejemplo). Para ejecutarlo y comprobar que funciona, abriremos una ventana de MS-DOS (Símbolo de sistema o cmd). Desde esta ventana, accederemos a la carpeta donde hayamos guardado el script con el comando:
|
1 |
cd nombre_carpeta |
Una vez en la carpeta del script, para ejecutarlo, introduciremos el siguiente comando:
|
1 |
cscript.exe /b memoria_RAM_Usada.vbs |
Nos devolverá:
Memoria RAM usada: 32,98%
