'*** v9.B *** www.dieseyer.de ****************************** 

' 

' Datei:  ramnutzung.vbs 

' Autor:  dieseyer@gmx.de 

' 

' Zeigt die aktuelle Arbeitsspeicher-Nutzung: 

' RAM- (realer Arbeitsspeicher) und 

' virtueller Arbeitsspeicher (inkl. Auslagerungsdatei) 

' 

'*********************************************************** 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

  Dim PC : PC ="." 

  MsgBox SpeicherNutzung( PC ), , "15 :: " & WScript.ScriptName 

 

WScript.Quit 

 

'*** v9.B *** www.dieseyer.de ****************************** 

Function SpeicherNutzung( PC ) 

'*********************************************************** 

  Const wbemFlagReturnImmediately = &h10 

  Const wbemFlagForwardOnly = &h20 

  Dim objWMIService		: Set objWMIService	= GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & PC & "\root\cimv2") 

 

' RAM - realer Arbeitsspeicher 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

  Dim colItems			: Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly) 

  Dim objItem, MemFrei, MemTotal, t 

  MemFrei = 0 : MemTotal = 0 

  For Each objItem In colItems ' in kBytes 

 

	MemFrei = FormatNumber( objItem.FreePhysicalMemory / 1024*10, 0, 0, 0, -2 ) / 10 

	MemFrei = FormatNumber( objItem.FreePhysicalMemory / 1024   , 0, 0, 0, -2 ) 

	MemFrei = FormatNumber( Round( objItem.FreePhysicalMemory / 1024 ), 0, 0, 0, -2 ) 

	t = t & vbCRLF & "FreePhysicalMemory: " & MemFrei & "MB" 

 

	MemTotal = FormatNumber( objItem.TotalVisibleMemorySize / 1024*10, 0, 0, 0, -2 ) / 10 

	MemTotal = FormatNumber( objItem.TotalVisibleMemorySize / 1024   , 0, 0, 0, -2 ) 

	MemTotal = FormatNumber( Round( objItem.TotalVisibleMemorySize / 1024 ), 0, 0, 0, -2 ) 

	t = t & vbCRLF & "TotalVisibleMemorySize: " & MemTotal & "MB" 

  Next 

  SpeicherNutzung = "RAM: " & MemFrei & "MB (" & Round( MemFrei / MemTotal * 100 ) & "%) von " & MemTotal & "MB frei; " 

' MsgBox SpeicherNutzung, , "44 :: " 

 

' virtueller Arbeitsspeicher (inkl. Auslagerungsdatei) 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

  Dim VirtTotal, VirtAkt, VirtFrei 

  VirtTotal = 0 : VirtAkt = 0 : VirtFrei = 0 

  Set colItems		= objWMIService.ExecQuery("SELECT * FROM Win32_PageFileSetting", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly) 

  For Each objItem In colItems 

	VirtTotal = VirtTotal + objItem.MaximumSize 

  Next 

 

  Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PageFileUsage", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly) 

  For Each objItem In colItems 

	VirtAkt = VirtAkt + objItem.CurrentUsage 

  Next 

	VirtFrei = VirtTotal - VirtAkt 

  SpeicherNutzung = SpeicherNutzung & "Virt.: " & VirtFrei & "MB (" & Round( VirtFrei / VirtTotal * 100 ) & "%) von " & VirtTotal & "MB frei." 

' MsgBox SpeicherNutzung, , "61 :: " 

 

End Function ' SpeicherNutzung( PC )