Discussion :

[nicolasghaz]

Bonjour, je dois faire un script wsh codé en vbs permettant grace a l'objet wmi de recuperer certaines informations sur les postes inscrit sur mon reseau. J'ai donc fait ceci :

Code :

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

1
2
3
4
5
6
 
1   set objADSI = getobject ("LDAP://cn=Computers,dc=nicolas,dc=fr")
2   for each computers in objADSI
3     ordi = (computers.name).Substring(0,2)
4     set obj = getobject ("winmgmts:\\" & ordi & "\root\cimv2")
5   next

Mon probleme se situe a la ligne 3, je veux recuperer les noms des ordinateurs pour pouvoir m'y connecter or quand je les recupere ils sont sous la forme "CN=nomduposte" et j aimerais enlever le "CN=". Je pensais donc extraire "nomduposte" mais voila avec ce code il me retourne comme erreur "objet requis computers.name". Je trouve la solution nulle part. Merci d'avance pour votre aide.

[Admin]

Attention !
"TEST".Substring(0,2) = "TE"

Dans ton cas substring te renvoie "CN"...

Pour toi je dirai plutot :

Code :

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

ordi = computers.name.Substring(3,len(computers.name))

Je crois pas qu'il faille mettre de parenthèse.

[nicolasghaz]

ah merci, j'avais pas vu ca comme ca . Mais meme en changeant j ai toujours mon erreur "objet requis computers.name". Je ne vois pas ce quil peut manquer.
Cette erreur aparait a la ligne 3.

[Admin]

Mais objADSI n'a pas de propriété name, c'est normal que tu ai cette erreur.

[nicolasghaz]

pourtant quand je fait un wscript.echo computers.name il m'affiche bien les noms des ordinateurs qui sont dans mon active directory

[Admin]

Bizarre et en plus j'ai rien pour tester de mon coté, je regarderai ce soir.

[nicolasghaz]

merci !!

[nicolasghaz]

j'ai changé mon code et maintenant ca marche, en plus plus besoin de manipuler les chaines de caracteres :

Code :

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

1
2
3
4
5
6
 
set objADSI = getobject ("LDAP://cn=Computers,dc=nicolas,dc=fr")
for each computers in objADSI
  ordi = computers.get ("name")
  set obj = getobject ("winmgmts:\\" & ordi & "\root\cimv2")
next

merci encore pour votre aide.