code:

---

$objwinmgmts = getobject("winmgmts:{impersonationlevel=impersonate}!//@WKSTA")  

---

code:

---

 $objmemory = $objwinmgmts.instancesof("Win32_PhysicalMemory")
 $count = 0
 FOR EACH $module IN $objmemory
       $count = $count + 1
       "The memory size of module " + $count + " is " + (Val($module.capacity)/1048576) + " Megabytes." ?
       "There are " + $count + " memory modules installed." ?

;($begin)
;
;                       tue 28-may-2002 17:31:28       (kix 4.10 vs 3.04e)
;
;Informative KIXSTRIP:      input=6 output=6 skip=0
;
;Warning     KIXSTRIP:    1 error in block structure. missing statement(s).
;                           - do:until                 [0:0]
;                   -ERROR- - for|each:in|to:step|next [1|1:1|0:0|0]
;                           - function:endfunction     [0:0]
;                           - if:else:endif            [0:0:0]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;Informative KIXSTRIP:    1 block_structure found.
;Informative KIXSTRIP:   no UDF's found.
;Informative KIXSTRIP:   no labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;
;($end)
;($begin)
;
;
;($end)

---