[WQL]properties
Canard007
Messages postés
5954
Date d'inscription
Statut
Contributeur
-
Canard007 Messages postés 5954 Date d'inscription Statut Contributeur -
Canard007 Messages postés 5954 Date d'inscription Statut Contributeur -
Salut,
Suite à :
http://www.commentcamarche.net/forum/affich-857757-%5BJava%5DCIM
je recherche comment recuperer les propriété d'une "table" CIM
telle que Win32_Process par exemple.
Msdn propose en WQL le select suivant:
(SELECT * FROM __InstanceModificationEvent WITHIN 600 WHERE TargetInstance ISA "Win32_LogicalDisk")
Mais en testant en vbs ca marche pas...aurais je commis une boulette? une redoutable erreur ? une legere incoprehension? qq un a une idee qq un meurt il d envie de m aider?
mmerci de votre aide
Suite à :
http://www.commentcamarche.net/forum/affich-857757-%5BJava%5DCIM
je recherche comment recuperer les propriété d'une "table" CIM
telle que Win32_Process par exemple.
Msdn propose en WQL le select suivant:
(SELECT * FROM __InstanceModificationEvent WITHIN 600 WHERE TargetInstance ISA "Win32_LogicalDisk")
Mais en testant en vbs ca marche pas...aurais je commis une boulette? une redoutable erreur ? une legere incoprehension? qq un a une idee qq un meurt il d envie de m aider?
mmerci de votre aide
1 réponse
-
bon ba probleme resolu a l aide du ch'ti script que voila ..reste plus qu a le convertir en java..
strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") For Each objclass in objWMIService.SubclassesOf() intCounter=0 If Left(objClass.Path_.Class,5) = "Win32" Then For Each Qualifier in objClass.Qualifiers_ If UCase(Trim(Qualifier.Name)) = "ASSOCIATION" Then intCounter = 1 End If Next If x = 0 Then strComputer = "." Set objWMIService = GetObject _ ("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2") Set strClass = objWMIService.Get(objClass.Path_.Class) Wscript.Echo "PROPERTIES:" For each strItem in strClass.properties_ Wscript.Echo objClass.Path_.Class & vbTab & strItem.name Next Wscript.Echo "METHODS:" For Each strItem in strClass.methods_ Wscript.Echo objClass.Path_.Class & vbTab & strItem.name Next End If End If Next
En fait je devrai arreter de poser des questions "pointus" je sent que je dois en mettre dans le desaroi plus d'un ^^
merci a ceux qui aurai essayer de m'aider..
c u a la prochaine question inbitable ^^