strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select MaxProcessMemorySize from Win32_OperatingSystem")
For Each objItem in colItems
Wscript.Echo "MaxProcessMemorySize: " & objItem.MaxProcessMemorySize
Here are the possible outputs:
2097024 means neither switches are working
3145600 means only the /3GB switch is working
3104640 means both the /3GB and /USERVA=3030 switches are working
Mitch Tulloch is lead author for the Windows Vista Resource Kit from Microsoft Press, which is THE book for IT pros who want to deploy, maintain and support Windows Vista in mid- and large-sized network environments. Mitch is also the author of Introducing Windows Server 2008, the first book from Microsoft Press about the exciting new server platform. For more information on these and other books written by Mitch, see www.mtit.com.