|
FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile |
| | | | | |
| Récup de la mémoire vidéo avec Windev en 64 bits |
| Débuté par p.leclercq, 12 mai 2014 14:41 - 2 réponses |
| |
| | | |
|
| |
| Posté le 12 mai 2014 - 14:41 |
Bonjour
je cherche à récupérer les informations de la carte vidéo (mémoire vidéo dispo)
via Automation dynamique ("Shell.explorer")
ou via WMI mais en 64bits
ou via base de registre
Quelqu'un a une idée ?
- Avec la base de registre je 'arrive pas à récupérer la valeur
RegistreLit("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winsat","VideoMemorySize")
- Avec le WMI ca marche en 32bits mais pas en 64 bits
//sListe est une chaîne
oScript est un objet Automation "MSScriptControl.ScriptControl"
MonScriptVBS est une chaîne = [
FUNCTION ScanCartesVideos()
Dim objWMIService, colVideoAdapters, objVideoAdapter, sInfo
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colVideosAdapters = objWMIService.ExecQuery("Select * from Win32_VideoController")
FOR EACH objVideoAdapter IN colVideosAdapters
IF sInfo <> "" THEN sInfo = sInfo & Chr(13) & Chr(10)
sInfo = sInfo & "Nom : " & objVideoAdapter.Name & Chr(13) & Chr(10)
sInfo = sInfo & "Description : " & objVideoAdapter.Description & Chr(13) & Chr(10)
sInfo = sInfo & "Processeur Video : " & objVideoAdapter.VideoProcessor & Chr(13) & Chr(10)
sInfo = sInfo & "AdapterDACType : " & objVideoAdapter.AdapterDACType & Chr(13) & Chr(10)
sInfo = sInfo & "AdapterCompatibility : " & objVideoAdapter.AdapterCompatibility & Chr(13) & Chr(10)
sInfo = sInfo & "Taille mémoire vidéo : " & objVideoAdapter.AdapterRam & Chr(13) & Chr(10)
Next
ScanCartesVideos = sInfo
END FUNCTION
]
QUAND EXCEPTION DANS
oScript>>Language("VBScript")
oScript>>Reset
oScript>>AddCode(MonScriptVBS)
oScript>>Timeout(-1) //pas de timeout
sListe = oScript>>Run("ScanCartesVideos") //Appel
//// le résultat est dans sListe
//Info("Infos carte(s) Vidéo : " + RC + sListe)
RENVOYER sListe
FAIRE
Erreur("Erreur execution WMI",ExceptionInfo(errInfo))
ExceptionActive()
RENVOYER "Erreur WMI"
FIN |
| |
| |
| | | |
|
| | |
| |
Membre enregistré
962 messages |
|
| Posté le 12 mai 2014 - 15:12 |
hello ,
il me semble que msscript n'existe qu'en 32 bits. Pour faire du wmi dans une application windev 64 bits tu peux essayer d'utiliser dotnet.
Ami calmant, J.P |
| |
| |
| | | |
|
| | |
| |
Membre enregistré
1 330 messages |
|
| Posté le 12 mai 2014 - 18:40 |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|