Page 2 sur 2
Re: Obtenir des informations sur processeur avec "WMI"
Publié : lun. 14/nov./2016 13:30
par 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
Re: Obtenir des informations sur processeur avec "WMI"
Publié : lun. 14/nov./2016 13:46
par celtic88
Kwai chang caine a écrit :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
Re: Obtenir des informations sur processeur avec "WMI"
Publié : lun. 14/nov./2016 13:58
par Kwai chang caine
C'est du chinois pour moi
Qu'est ce qu'il faut faire ???
Re: Obtenir des informations sur processeur avec "WMI"
Publié : lun. 14/nov./2016 14:13
par celtic88
supprime ça
If CoInitialize_(0, #COINIT_MULTITHREADED) = #S_OK
.....
et
CoUninitialize_()
EndIf
Re: Obtenir des informations sur processeur avec "WMI"
Publié : lun. 14/nov./2016 14:15
par 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
Re: Obtenir des informations sur processeur avec "WMI"
Publié : lun. 14/nov./2016 14:23
par 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