[2 days left] What’s wrong with your cloud strategy? Learn why multicloud solutions matter with Nimble Storage.Register Now


check memory status

Posted on 2008-06-11
Medium Priority
Last Modified: 2012-06-27
This function gives me a error at WIn32API call. Iam using vbscripts. Any idea how to declare win32API  calls

Function GetMemoryStatus()
Dim Mem
Set GetMemoryStatus = Nothing
Set Mem = Win32API.TMemoryStatus
Mem.dwLength = 32
Set GetMemoryStatus = Mem
End Function
Question by:ajaypappan
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
  • 2
  • +1
LVL 19

Expert Comment

ID: 21763890

this is the best site I know

LVL 19

Expert Comment

ID: 21763901
sorry , pasted by mistake to here , please ignore
LVL 24

Expert Comment

ID: 21763950
You cannot access API function directly from VBScript as it only support the variant type.  You need a plug-in to be able to access API calls.

The code you have pasted above comes from another site, and they state that it requires the Win32 API plug-in.  Quite what this is or where it comes from I am not sure.  The only reference I found to it is here: http://www.orchardsoft.com/4dapps/win32api.htm

However, I am not sure if that is relevant to VBScript.
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.


Author Comment

ID: 21769580
purplepomegranite I know i copied from another site but iam asking for a solution how to make it work.

And API calls can be made using extern functions

extern.Declare micInteger, "SetWindowText","User32.dll","",micHwnd, micString
Extern.Declare micInteger,"GetMemoryStatus","kernel32.dll","GetMemoryStatus",micInteger
LVL 24

Expert Comment

ID: 21769846
What is an extern function?  It is not VBScript as far as I am aware.  Neither of those lines make any sense to me - they are not valid VBScipt without the library of which the extern object is a part.  And I've no idea what library that is.

The solution to get the code you posted above to work is to obtain the Win32 API plug-in, as I said.

VBScript doesn't support API calls in the way VB does.
LVL 24

Expert Comment

ID: 21769953
But then if your question is how to get details about memory from VBScript, there is another answer.

There is code here that will list many details about the memory, from VBScript: http://tlepsh.blogspot.com/2007/08/vbscript-listing-memory-config.html

Author Comment

ID: 21770971
I want to check how much memory a process or application Like IExplorer.exe is using and if it using too much memory close the browser and reopen it..

LVL 24

Accepted Solution

purplepomegranite earned 750 total points
ID: 21771312
In that case you want to query Win32_Process via WMI.

An example of how to actually query it are here: http://www.computerperformance.co.uk/vbscript/wmi_process.htm

A description of the class with its properties is here: http://msdn.microsoft.com/en-us/library/aa394372(VS.85).aspx

You would be interested in the QuotaNonPagedPoolUsage and QuotaPagedPoolUsage properties if you are checking its memory useage.

Author Comment

ID: 21772078
this is what i did and it works fine..
Public Function winGetMemoryStatus(sTaskName )
On Error Resume Next
Dim objWMIService, objProcess, colProcess
Dim strComputer,  sProcessName,  intSize
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Caption = '" & sTaskName &"'" ,,48)

For Each objProcess in colProcess
          intSize = objProcess.WorkingSetSize/1024
winGetMemoryStatus=  intSize
End function


Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Script to copy or move mouse-selected collection of files plus targets referenced by shortcuts (.lnk) The purpose of this article is to help illuminate the real challenges and options available (where they may exist) for utilizing simple scriptin…
This script will sweep a range of IP addresses (class c only, and report to a log the version of office installed. What it does: 1.)      Creates log file in the directory the script is run from (if it doesn't already exist) 2.)      Sweep…
In response to a need for security and privacy, and to continue fostering an environment members can turn to for support, solutions, and education, Experts Exchange has created anonymous question capabilities. This new feature is available to our Pr…
Please read the paragraph below before following the instructions in the video — there are important caveats in the paragraph that I did not mention in the video. If your PaperPort 12 or PaperPort 14 is failing to start, or crashing, or hanging, …
Suggested Courses

656 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question