[WQL]properties
Fermé
Canard007
Messages postés
5927
Date d'inscription
mercredi 26 mai 2004
Statut
Contributeur
Dernière intervention
18 septembre 2009
-
7 juil. 2004 à 15:03
Canard007 Messages postés 5927 Date d'inscription mercredi 26 mai 2004 Statut Contributeur Dernière intervention 18 septembre 2009 - 7 juil. 2004 à 17:59
Canard007 Messages postés 5927 Date d'inscription mercredi 26 mai 2004 Statut Contributeur Dernière intervention 18 septembre 2009 - 7 juil. 2004 à 17:59
A voir également:
- [WQL]properties
- Match properties autocad francais ✓ - Forum AutoCAD
- Fichier properties ✓ - Forum Logiciels
- Cannot read properties of undefined (reading 'scrollintoview' - Forum Javascript
- Cannot read properties of null (reading 'style') ✓ - Forum Javascript
- Fichier properties java - Forum Programmation
1 réponse
Canard007
Messages postés
5927
Date d'inscription
mercredi 26 mai 2004
Statut
Contributeur
Dernière intervention
18 septembre 2009
215
7 juil. 2004 à 17:59
7 juil. 2004 à 17:59
bon ba probleme resolu a l aide du ch'ti script que voila ..reste plus qu a le convertir en java..
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 ^^
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 ^^