Quantité de RAM.

Nombre de messages : 1595 Date d'inscription : 19/01/2014

Bonsoir.

L'un d'entre vous sait-il comment récupérer la quantité de RAM installée sur son PC.

J'ai bien testé ceci:

Code:: execute_wait "msinfo32.exe"

Qui m'affiche une boîte d'infos, mais de là à récupérer son contenu !

Merci de votre aide.

bonsoir Pedro
pour ma part j'utilise le célèbre Ccleaner.
mais tu ne pourras pas récupérer le contenu.
que veux tu faire?
bonne journée

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Dans le premier panneau qui s'affiche, après 'Actualisation des informations système': 'Résumé système', colonne de droite, tu as la mémoire installée: 'Mémoire physique (RAM) installée' (sous Windows 7)...

Nombre de messages : 1595 Date d'inscription : 19/01/2014

Bonsoir.

J'avais omis de préciser que je voulais récupérer le résultat dans un programme Panoramic.

Bonsoir à tous !

@Pedro
Depuis l'invite de commandes, tu peux taper :

wmic MEMORYCHIP get BankLabel,DeviceLocator,Capacity,Speed

Voici le résultat :

Spoiler:

Tu peux supprimer les paramètres Speed, Capacity ...

EDIT : Pedro, nos messages se sont croisés !

Tu fais : wmic MEMORYCHIP | CLIP

Nombre de messages : 1595 Date d'inscription : 19/01/2014

Bonsoir.

Je suppose qu'en ajoutant execute_wait avant la commande, puis | clip après, il est possible de récupérer le résultat dans le clipboard ?

Pedro, regarde le fil de la discussion :

https://panoramic.1fr1.net/t5607-aide-memoire-des-commandes-console

Klaus a posté une solution à la commande EXECUTE_WAIT qui ne prend plus en compte les arguments passés sur les dernières versions de Panoramic.

Pour répondre à ta question, la commande est :

EXECUTE_WAIT "cmd.exe wmic MEMORYCHIP | CLIP"

Chez moi, EXECUTE_WAIT ne lance pas le programme tel que présenté. Problème de droit d'accès, certainement, comme déjà débattu largement. Voici ce qui marche:

Code:: dim s$
file_open_write 1,"test.bat"
file_writeln 1,"wmic ComputerSystem get TotalPhysicalMemory | clip"
file_close 1
execute_wait "test.bat"
s$ = clipboard_string_paste$
message s$
end

W10 dernières mises à jour faites, 8 Go de mémoire centrale, voici le résultat:

Code:: TotalPhysicalMemory

8467550208

~~Donc, tu as la valeur dans la 3ème ligne.~~

EDIT

Ou plutôt dans la deuxième:

Code:: dim s$
file_open_write 1,"test.bat"
file_writeln 1,"wmic ComputerSystem get TotalPhysicalMemory | clip"
file_close 1
execute_wait "test.bat"
s$ = clipboard_string_paste$
message s$
memo 1
text 1,s$
message item_read$(1,2)
end

Nombre de messages : 1595 Date d'inscription : 19/01/2014

Bonjour à tous.

Un grand merci à tous pour la réponse à ma demande.

Nombre de messages : 1595 Date d'inscription : 19/01/2014

Bonjour.

Une question qui se pose:

Comment éviter l'affichage d'une fenêtre DOS lors de l'exécution du fichier batch.
J'ai vainement tenté d'ajouter une commande @echo off un peu partout, mais rien n'y fait.

Merci de votre aide.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

En passant la commande par l'exécution d'un script en vbs.
Essaie ça, pour voir:

Code:: SUB Exprog(pr$)
  ' Exécution d'un programme externe sans la fenêtre noire Ms-DOS
  ' - exemple: Exprog("Cmd.exe /c DIR C:\UTIL >C:\TEMP\Dir.txt")
  DIM_LOCAL vb$,vt$,q$: q$ = CHR$(34)
  vb$ = "C:\TEMP\Vb.vbs": vt$ = "C:\TEMP\Tmp.bat"
  IF UPPER$(FILE_EXTRACT_EXTENSION$(pr$))<>".BAT"
   FILE_OPEN_WRITE 9,vt$
   FILE_WRITELN 9,"@echo off"
   FILE_WRITELN 9,pr$
   FILE_CLOSE 9: pr$ = vt$
  END_IF
  FILE_OPEN_WRITE 9, vb$: ' ===== Création du script .vbs =====
   FILE_WRITELN 9,"CreateObject("+q$+"Wscript.Shell"+q$+").Run "+q$+pr$+q$+",0,True"
  FILE_CLOSE 9
  EXECUTE_WAIT "WSCRIPT.exe |"+vb$: ' ===== Exécution du script =====
  FILE_DELETE vb$: IF FILE_EXISTS(vt$) = 1 THEN FILE_DELETE vt$: ' efface les traces
END_SUB

Nombre de messages : 1595 Date d'inscription : 19/01/2014

Bonjour.

Un grand merci JL35. Cette routine fonctionne parfaitement sous Win 10.

Je l'ai cependant remaniée un peu, comme suit, afin de l'adapter à mon programme général:

Code:: dim a$, b$, c$

sub quantite_ram()
   a$="wmic ComputerSystem get TotalPhysicalMemory | clip"

   b$="Vb.vbs": c$="Tmp.bat"

   file_open_write 9,c$
   file_writeln 9,"@echo off"
   file_writeln 9,a$
   file_close 9

   file_open_write 9, b$
   file_writeln 9,"createobject("+chr$(34)+"wscript.shell"+chr$(34)+").run "+chr$(34)+"tmp.bat"+chr$(34)+",0,true"
   file_close 9

   execute_wait "vb.vbs"
   memo 802:hide 802:text 802,clipboard_string_paste$
   ram=int((val(item_read$(802,2))/1000000000)*10)/10
   delete 802

   file_delete b$: if file_exists(c$)=1 then file_delete c$
end_sub

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Alors tant mieux si ça marche pour toi !
Et c'est évidemment fait dans l'esprit d'être remanié et adapté à ses propres besoins et préférences.

» Déterminer la quantité de RAM.
» Panoramic et les scripts vbs.
» Quantité de RAM installée.
» Quantité de mémoire utilisée par un exe