Réponse acceptée !
Sans dl
alias memory {
echo -a �2;Physical Memory:
var %cnt = 1, %totalmemory = $memory2(0)
while (%cnt <= %totalmemory) {
echo -a $memory2(%cnt)
inc %cnt
}
echo -a �2;Total:�2; $bytes(%capacity.total).suf
unset %capacity.total
}
alias memory2 {
.comopen xpver1 WbemScripting.SWbemLocator
.comclose xpver1 $com(xpver1,ConnectServer,1,dispatch* xpver2)
if $com(xpver2) {
.comclose xpver2 $com(xpver2,ExecQuery,1,bstr*,select * from Win32_PhysicalMemory,dispatch* xpver3)
if $com(xpver3) {
if ($1 == 0) { var %total = $comval(xpver3,0) | .comclose xpver3 | return %total }
var %location = $comval(xpver3,$1,DeviceLocator)
var %capacity = $comval(xpver3,$1,Capacity)
inc %capacity.total %capacity
var %capacity.suf = $bytes(%capacity).suf
var %formfactor.values = Unknown Other SIP DIP ZIP SOJ Proprietary SIMM DIMM TSOP PGA RIMM SODIMM SRIMM SMD SSMP QFP TQFP SOIC LCC PLCC BGA FPBGA LGA
var %formfactor = $gettok(%formfactor.values,$calc($comval(xpver3,$1,FormFactor) + 1),32)
.comclose xpver3
return �2; $+ %location $+ �2;: %capacity.suf %formfactor
}
}
}
tape /memory
|