Obtenir des informations sur processeur avec "WMI"

[Kwai chang caine]

Merci de ta réponse
Alors avec "CoInitialize_(0)" ça marche pas non plus car la réponse est

Code : Tout sélectionner

Debug "CoInitialize_(0) = " + CoInitialize_(0)
Debug "#S_OK = " + #S_OK 

If CoInitialize_(0) = #S_OK
......
.....
etc ...
 

CoInitialize_(0) = 1
#S_OK = 0

[celtic88]

Merci de ta réponse
Alors avec "CoInitialize_(0)" ça marche pas non plus car la réponse est

Code : Tout sélectionner

Debug "CoInitialize_(0) = " + CoInitialize_(0)
Debug "#S_OK = " + #S_OK 

If CoInitialize_(0) = #S_OK
......
.....
etc ...
 

CoInitialize_(0) = 1
#S_OK = 0

je répond trop vite sans que j essaye le code lolll

l errur c quoi :
S_FALSE = 1 ====> The COM library is already initialized on this thread.
regarde la bibliothèque COM est déjà initialisée!!! aloor ne le réinitialise pas toi

[Kwai chang caine]

C'est du chinois pour moi
Qu'est ce qu'il faut faire ???

[celtic88]

supprime ça

If CoInitialize_(0, #COINIT_MULTITHREADED) = #S_OK
.....
et
CoUninitialize_()
EndIf

[celtic88]

okii voilla

Code : Tout sélectionner

; If CoInitialize_(0, #COINIT_MULTITHREADED) = #S_OK

If CoInitializeSecurity_(0, -1, 0, 0, #RPC_C_AUTHN_LEVEL_DEFAULT, #RPC_C_IMP_LEVEL_IMPERSONATE, 0, 0, 0) = #S_OK
  
  locator.IWbemLocator
  
  If CoCreateInstance_(?CLSID_WbemLocator, 0, #CLSCTX_INPROC_SERVER, ?IID_IWbemLocator, @locator) = #S_OK
   
   services.IWbemServices
   
   If locator\ConnectServer(@"ROOT\CIMV2", 0, 0, 0, 0, 0, 0, @services) = #S_OK
    
    CoSetProxyBlanket_(services, #RPC_C_AUTHN_WINNT, #RPC_C_AUTHZ_NONE, 0, #RPC_C_AUTHN_LEVEL_CALL, #RPC_C_IMP_LEVEL_IMPERSONATE, 0, #EOAC_NONE);
        
    ForEach WMI_Class_List()
    
     WMIClass.s = "SELECT * FROM " + WMI_Class_List()\Class_Name
     PhraseInfo$ + "============> WMI Class Name : " + WMI_Class_List()\Class_Name + "==============================================================" + #CRLF$
     WMIGetProperties(services, WMIClass, WMI_Class_List()\class_Syntax())
     PhraseInfo$ + "========================================================================================" + #CRLF$
    
    Next
    
    services\Release()
    
   EndIf
   
   locator\Release()
   
  EndIf
  
EndIf

; CoUninitialize_()
; 
; EndIf

[Kwai chang caine]

Yeeeeessss !!!!!!
Celtic...t'es le meilleur

Merci beaucoup de cette correction

Code : Tout sélectionner

CoInitializeSecurity_(0, -1, 0, 0, #RPC_C_AUTHN_LEVEL_DEFAULT, #RPC_C_IMP_LEVEL_IMPERSONATE, 0, 0, 0) = #S_OK

Et ben.. ça s'invente pas !!
Même au toilettes en forçant beaucoup, ou en me coinçant quelque chose dans un tiroir, j'ai pas ce genre de phrases dans ma tête
Je sais pas comment tu fais en temps qu'autodidacte pour comprendre ce genre de charabia, je t'admire
Et en plus sans parler anglais je rêve
Encore bravo

Excuse moi si j'abuse .....mais quand tu auras deux secondes
http://www.purebasic.fr/french/viewtopi ... 48#p188048

Encore merci pour toutes ces merveilles que tu nous offre