Discussion :

[Shadown]

Bonjour à tous,
J'ai besoin de vos lumières car je souhaiterai récupérer les numéros de série des écrans connectés à un ordinateur. Pour ce faire j'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
objLocator est un objet Automation "WbemScripting.SWbemLocator"
objService est un objet Automation dynamique
display est un objet Automation dynamique
 
objService = objLocator>>ConnectServer(".", "root\wmi")
objService>>Security_>>ImpersonationLevel = 3 
display = objService>>ExecQuery("select * from WmiMonitorID")
	POUR x = 0 _A_ display>>Count -1 
	      Trace(display>>ItemIndex(x)>>Properties_>>Item("SerialNumberID[]")>>Value)
	FIN
libérer display
libérer objService

Malheureusement ça me renvoi une erreur :

Vous avez appelé la méthode Automation 'Item'.
En tentant d'invoquer la méthode <Item> ou de lire la propriété <Item>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 80041002 : Non trouvé '
En tentant d'invoquer la méthode <Item>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 80041002 : Non trouvé '
En tentant de lire la propriété <Item>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 80020003, Le membre demandé n'existe pas'
En tentant d'écrire la propriété <Item>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 80020003, Le membre demandé n'existe pas'

Je pense que le problème vient des [] après SerialNumberID mais je ne sais pas comment contourner le problème.
Ce code fonctionne très bien avec les membres de la classe WmiMonitorID qui ne comporte pas les [] comme WeekOfManufacture et YearOfManufacture par exemple.

Merci d'avance

[jurassic pork]

hello,
Il faut mettre seulement SerialNumberID et l'élément renvoyé est un tableau de variants.
Tu peux faire comme ceci pour récupérer le numéro de série du moniteur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
objLocator est un objet Automation "WbemScripting.SWbemLocator"
objService est un objet Automation dynamique
display est un objet Automation dynamique
TabSerialId est un tableau de  0 Variants
MonSerialId est une chaîne
objService = objLocator>>ConnectServer(".", "root\wmi")
objService>>Security_>>ImpersonationLevel = 3 
display = objService>>ExecQuery("select * from WmiMonitorID")
POUR x = 0 _A_ display>>Count -1 
TabSerialId = display>>ItemIndex(x)>>Properties_>>Item("SerialNumberID")>>Value
FIN
y est un entier = 1
TANTQUE TabSerialId[y] <> 0 
MonSerialId +=  Caract(TabSerialId[y])	
y++
FIN
Trace (MonSerialId)
libérer display
libérer objService

Ami calmant, J.P