code:

---

 Shell "%comspec% /c winmsd /s /f" 
  Shell '%comspec% /c type '+@wksta.txt+' | find "   Total:" >$memtmp'  
	If Open(1,$memtmp) = 0
		$result = Trim(ReadLine(1))
    $pos = InStr($result, "total:")
    	If ($pos <> 0)
        $memory = SubStr($result,$pos+6,Len($result)-$pos-1)
        $memory = Val(Replace($memory,",",""))
				$memMB = $memory/1024
    	Else
    		$memMB = "Unknown"
    	EndIf
 		$cf= Close(1)
  	Del $memtmp 		
	EndIf 

---

code:

---

Break On
? "Workstation name is: " +@wksta
? "System Memory is: "val(WMIQuery("TotalPhysicalMemory","Win32_LogicalMemoryConfiguration"))/1024 " MB"
? "CPU Speed is: "WMIQuery("CurrentClockSpeed","Win32_Processor") " Mhz"
? "Operating system is: " @PRODUCTTYPE
? "System Manufacturer is: "WMIQuery("Manufacturer","Win32_ComputerSystem")
? "Logged on user is: " @USERID
? "Logon date is: " @DATE 
? "Logon time is: " @TIME

FUNCTION WMIQuery($what,$where,)
	dim $strQuery, $objEnumerator, $value
	$strQuery = "Select $what From $where"
	$SystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//@WKSTA")
	$objEnumerator = $SystemSet.ExecQuery($strQuery)
	For Each $objInstance in $objEnumerator
		If @Error = 0 and $objInstance <> ""
			$=execute("$$value = $$objInstance.$what")
			$WMIQuery="$value"+"|"+"$WMIQuery"
			EndIf
		Next
	$WMIQuery=left($WMIQuery,len($WMIQuery)-1)
	exit @error
ENDFUNCTION

---

quote:

---

Hi,

If you have access to PSTAT (part of the NT Resource Kit) try this (1
single command line):

for /f "tokens=2 delims=K " %%a in ('pstat ^| find "Memory:"') do set
/a %%a / 1024

It may display 1MB less than the actual amount of memory, due to
incorrect rounding down.
Good luck,

Rob van der Woude

---