Break On
"Memory info on local computer:" ?
"Location Capacity Speed" ?
For each $memModule in PhysicalMemoryInfo('msea001')
$memModule[0] chr(9) chr(9) $memModule[1] chr(9) chr(9) $memModule[4] ?
Next
? "Done."
get $
Function PhysicalMemoryInfo(optional $sComp)
dim $fF,$mT,$oWMI,$oM,$tMem[0]
if not $sComp
$sComp = "."
endif
$fF="Unknown","Other","SIP","DIP","ZIP","SOJ","Proprietary","SIMM","DIMM","TSOP","PGA",
"RIMM","SODIMM","SRIMM","SMD","SSMP","QFP","TQFP","SOIC","LCC","PLCC","BGA","FPBGA","LGA"
$mT="Unknown","Other","DRAM","Synchronous DRAM","Cache DRAM","EDO","EDRAM","VRAM","SRAM",
"RAM","ROM","Flash","EEPROM","FEPROM","EPROM","CDRAM","3DRAM","SDRAM","SGRAM","RDRAM","DDR"
$oWMI = GetObject("winmgmts:\\" + $sComp + "\root\cimv2")
if @error exit @error endif
For each $oM in $oWMI.ExecQuery("Select * from Win32_PhysicalMemory",,48)
$tMem[ubound($tMem)]=$oM.DeviceLocator,1 * $oM.Capacity / 1048576,
$fF[$oM.FormFactor], $mT[$oM.MemoryType], $oM.Speed,$oM.DataWidth
redim preserve $tMem[ubound($tMem)+1]
Next
if 0<ubound($tMem)
redim preserve $tMem[ubound($tMem)-1]
endif
$PhysicalMemoryInfo=$tMem
EndFunction
do some more code....
Break On
"Memory info on local computer:" ?
"Location Capacity Speed" ?
For each $memModule in PhysicalMemoryInfo('msea001')
$memModule[0] chr(9) chr(9) $memModule[1] chr(9) chr(9) $memModule[4] ?
Next
? "Done."
get $
Function PhysicalMemoryInfo(optional $sComp)
dim $fF,$mT,$oWMI,$oM,$tMem[0]
if not $sComp
$sComp = "."
endif
$fF="Unknown","Other","SIP","DIP","ZIP","SOJ","Proprietary","SIMM","DIMM","TSOP","PGA",
"RIMM","SODIMM","SRIMM","SMD","SSMP","QFP","TQFP","SOIC","LCC","PLCC","BGA","FPBGA","LGA"
$mT="Unknown","Other","DRAM","Synchronous DRAM","Cache DRAM","EDO","EDRAM","VRAM","SRAM",
"RAM","ROM","Flash","EEPROM","FEPROM","EPROM","CDRAM","3DRAM","SDRAM","SGRAM","RDRAM","DDR"
$oWMI = GetObject("winmgmts:\\" + $sComp + "\root\cimv2")
if @error exit @error endif
For each $oM in $oWMI.ExecQuery("Select * from Win32_PhysicalMemory",,48)
$tMem[ubound($tMem)]=$oM.DeviceLocator,1 * $oM.Capacity / 1048576,
$fF[$oM.FormFactor], $mT[$oM.MemoryType], $oM.Speed,$oM.DataWidth
redim preserve $tMem[ubound($tMem)+1]
Next
if 0<ubound($tMem)
redim preserve $tMem[ubound($tMem)-1]
endif
$PhysicalMemoryInfo=$tMem
EndFunction