MZP@ !L!This program must be run under Microsoft Windows. $NE  @PP q 00=0020 P00%0wmi01LIBENTRYWEP˸Borland Standard File@|~@ cFormUIManagerUIContainerUIObjectPageFormObjButtonText f&open+close+canArrive2arrive2setFocus+canDepart2removeFocus+depart2mouseEnter,mouseExit,mouseMove,mouseDown,mouseUp,mouseDouble,mouseRightDown,mouseRightUp,mouseRightDouble,keyPhysical-keyChar-action.menuAction/timer4pushButton+changeValue0calcField+run+newValue+proc+error3status1mouseClick,init+stringListChange+UsesTypeVarConstProc,/ C/]*3? PONX WMI 01.4Cd:\w\Corel\WordPerfect Office 2000\Paradox\PDOXHome\DEFAULT.FTB#Formdata1POST> E e *02< J RemplString2I'A  Type arrayString = array[] string endType var stm string endvar proc PonxInit(var oa oleAuto, mode string) logical var str,sret,ponxdir string aas array[] string i smallint endvar if not oa.open("Ponx.Mci") then return(False) endif sleep() str=workingDir() str.breakAPart(aas,"\\") ponxdir=aas[1] for i from 2 to aas.size() ponxdir=ponxdir+"\\"+aas[i] endfor str="" ;str=str+"\n"+"global fichier,nfichier,vifi,ponxopen,ponxquit" if mode="PONX.OUT" then str=str+"\n"+"ponxopen('"+ponxdir+"')" else str=str+"\n"+"ponxopen('.RETURNSTRING.')" endif sret=oa.PRun(str) ;msginfo("sret.init",sret) sleep() return True endProc proc PonxQuit(var oa oleAuto) var str,sret string endvar str="ponxquit()" sret=oa.PRun(str) ;msginfo("sret.quit",sret) sleep() oa.close() sleep() endProc Proc LitPonxOut(var aas arrayString) var ts textstream endvar if not ts.open("Ponx.out","R") then errorshow() endif ts.readLine(aas) ts.close() ;msginfo("Nb lignes "+string(aas.size()),aas) endProc proc PmRempl(st string, ch string, repl string) string var i,j longint str,s1,sr string endvar str=st i=str.searchex(ch) j=ch.sizeex() sr="" while i>0 sr=sr+str.substr(1,i-1)+repl if (i+j)>=str.sizeex() then str="" else str=str.substr(i+j,str.sizeex()) endif i=str.searchex(ch) endWhile sr=sr+str return sr endproc proc PonxChargeTxt(ficPonx string) string var ts textstream endvar ts.open(ficPonx,"r") ts.readChars(stm,32000) ts.close() return stm endproc method pushButton(var eventInfo Event) ; Michel Claveau Informatique var oa oleauto aas,ast arrayString str,st0,sret string tv tableview tc tcursor li longint st2 string endvar ;if not PonxInit(oa,"PONX.OUT") then if not PonxInit(oa,".RETURNSTRING.") then errorshow() return endif sleep() str="global chaineretour import win32com,win32com.client nomcpu = '.'"+" WMIService =win32com.client.GetObject(r'winmgmts:{impersonationLevel=impersonate}!//'+nomcpu) obj = WMIService.InstancesOf('Win32_LogicalMemoryConfiguration') chaineretour = str(obj[0].TotalPhysicalMemory)" sret=oa.PRun(str) if sret.sizeex()>0 then msginfo("Mmoir physique totale",sret) endif sleep() PonxQuit(oa) endMethod pushButton+'  :02<  Q     02< C  Mmoire physique totale du poste courant (par WMI appel via PONX) * RemplString1 'r Q Type arrayString = array[] string endType var stm string endvar proc PonxInit(var oa oleAuto, mode string) logical var str,sret,ponxdir string aas array[] string i smallint endvar if not oa.open("Ponx.Mci") then return(False) endif sleep() str=workingDir() str.breakAPart(aas,"\\") ponxdir=aas[1] for i from 2 to aas.size() ponxdir=ponxdir+"\\"+aas[i] endfor str="" ;str=str+"\n"+"global fichier,nfichier,vifi,ponxopen,ponxquit" if mode="PONX.OUT" then str=str+"\n"+"ponxopen('"+ponxdir+"')" else str=str+"\n"+"ponxopen('.RETURNSTRING.')" endif sret=oa.PRun(str) ;msginfo("sret.init",sret) sleep() return True endProc proc PonxQuit(var oa oleAuto) var str,sret string endvar str="ponxquit()" sret=oa.PRun(str) ;msginfo("sret.quit",sret) sleep() oa.close() sleep() endProc Proc LitPonxOut(var aas arrayString) var ts textstream endvar if not ts.open("Ponx.out","R") then errorshow() endif ts.readLine(aas) ts.close() ;msginfo("Nb lignes "+string(aas.size()),aas) endProc proc PmRempl(st string, ch string, repl string) string var i,j longint str,s1,sr string endvar str=st i=str.searchex(ch) j=ch.sizeex() sr="" while i>0 sr=sr+str.substr(1,i-1)+repl if (i+j)>=str.sizeex() then str="" else str=str.substr(i+j,str.sizeex()) endif i=str.searchex(ch) endWhile sr=sr+str return sr endproc proc PonxChargeTxt(ficPonx string) string var ts textstream endvar ts.open(ficPonx,"r") ts.readChars(stm,32000) ts.close() return stm endproc method pushButton(var eventInfo Event) ; Michel Claveau Informatique var oa oleauto aas,ast arrayString str,st0,sret string tv tableview tc tcursor li longint st2 string endvar ;if not PonxInit(oa,"PONX.OUT") then if not PonxInit(oa,".RETURNSTRING.") then errorshow() return endif sleep() st2="STATION-01" st2.view("Nom du poste") str="global chaineretour import win32com,win32com.client nomcpu = '"+st2+"' WMIService =win32com.client.GetObject(r'winmgmts:{impersonationLevel=impersonate}!//'+nomcpu) obj = WMIService.InstancesOf('Win32_LogicalMemoryConfiguration') chaineretour = str(obj[0].TotalPhysicalMemory)" sret=oa.PRun(str) if sret.sizeex()>0 then msginfo("Mmoir physique totale",sret) endif sleep() PonxQuit(oa) endMethod pushButton+' :02< Q    02< =  Mmoire physique totale d'un poste (par WMI appel via PONX) $JJ4  RemplString1 @-t"Arial NarrowX_"Arial Narrow` V0d  CONTAINERd\bACTIVE>LASTMOUSECLICKED\SUBJECTbZLASTMOUSERIGHTCLICKED<0(SELFZ #FORMDATA1?[#PAGE2  REMPLSTRING1\(  #TEXTE3C\ REMPLSTRING2+  #TEXTE9 +\Hz=  ARRAYSTRING38PONXINIT  OA MODEOA MODEPONXQUIT OA%OA LITPONXOUT3 AAS;(AAS3PMREMPL  ST CH REPLuO STCH REPL PONXCHARGETXTFICPONX FICPONX PUSHBUTTON METHOD_SELF EVENTINFOlX Dd . METHOD_SELF  EVENTINFO+ &   }  ARRAYSTRING 8PONXINITT  OA MODE  OA MODEPONXQUIT OA +@i OA LITPONXOUT  AAS V AAS PMREMPL  ST CH REPL  j STCH REPL PONXCHARGETXTFICPONX FICPONX PUSHBUTTON METHOD_SELF EVENTINFO 4s__BI METHOD_SELF  EVENTINFOSTMSTRdSRETPONXDIRAAS,8I$STRSRETTS!bI"J"STRLS1hSRTS!OAAAS3ASTP3STRST0SRETTVDTCjLI"ST2STMSTRdSRETPONXDIRAAS,8I$STRSRETTS!}I"J"STRLS1hSRTS!OAAAS ASTP STRST0SRETTVDTCjLI"ST2. rr* Kgr T 8!#$%,-/0129:<=?GHIJKLMNPRTUV]^_`aqrsuwr H :!#$%,-/0129:<=?GHIJKLMNPRTUV]^_`aqrsuwxz    & "(tVKAd=*d, ,(*$*,p(t$p"ON%(,$(%T(*$'d* %PVdd(%(D%T(%8(`%(*7dd(%(|%T(*! d- *t#KA$(t% ,yd8 Tp$~(5 ,5*-5@ - *t/5KA054 415KA25 -4@t5D 9 &:t'At<  =? -t]B rGL *H L  *tI   *tJ*K%HKLL% %( %(*M%4 L %"NL*RPLL%4 L  *R L  *tTL%(*U(V l Lh WYR , ]R   ^R  _R `R  (aR  V e  q $&&3r 'As 5u KAw @*x \z x%(%x(* 8- *t 88%( MA KA   8xyPuD + c  c  & "c (tVc KAc d=*c d, c ,(*c $*,p(t$p"ONc %(,$(%T(*$'c d*c  %PVc dd(%(D%T(%8(`%(*7c dd(%(|%T(*!c  d- *t#c KA$c (t%c  8Tp $,(d6(  , *- @ - *t/ KA0 4 41 KA2  -4@,5 D 9  &: t'At<   = ?  -tBb  rGb L *Hb  L  *tIb    *tJb *Kb %HKLb L% %( %(*Mb %4 L %"Nb L*RPb LL%4 L  *Rb  L  *tTb L%(*Ub (Vb  l Lh Y0 , ]0   ^0  _0 `0  (a0   e d }q $&&3r 'As u KAw %(* T- *t TT%( MA KA I  TDP +    \x\@$|`D( zsni} 0Ponx.Mci\PONX.OUT ponxopen('')ponxopen('.RETURNSTRING.')PRUN ponxquit()Ponx.outRr.RETURNSTRING. STATION-01 Nom du poste@global chaineretour import win32com,win32com.client nomcpu = '' WMIService =win32com.client.GetObject(r'winmgmts:{impersonationLevel=impersonate}!//'+nomcpu) obj = WMIService.InstancesOf('Win32_LogicalMemoryConfiguration') chaineretour = str(obj[0].TotalPhysicalMemory)Mmoir physique totaleBglobal chaineretour import win32com,win32com.client nomcpu = '.' WMIService =win32com.client.GetObject(r'winmgmts:{impersonationLevel=impersonate}!//'+nomcpu) obj = WMIService.InstancesOf('Win32_LogicalMemoryConfiguration') chaineretour = str(obj[0].TotalPhysicalMemory)