Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft Array à 2 ou plusieurs dimensions

Array à 2 ou plusieurs dimensions

4 réponses
Avatar
Ziggy
Bonjour @ tous,

J'arrive à créer un tableau dynamique qui récupère tous les noms des
ordinateurs sur le réseau et arrive à savoir si l'ordinateur en cours est un
serveur ou une station.
Je voudrais créer un tableau dans lequel, pour chaque machine avoir une
correspondance avec le rôle de la machine :
par exemple : arrComputers = ("PC01","Ordi" ; "PC02","Ordi" ;
"SRV01","Serveur" ; ....)

Quelqu'un peut il m'orienter dans la construction des boucles.

Par avance merci de vos réponses.

Thierry
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean-Claude BELLAMY
Dans le message :,
Ziggy <tpmsn2004nospam]@nospamfree.fr> a pris la peine d'écrire ce qui suit
:
Bonjour @ tous,

J'arrive à créer un tableau dynamique qui récupère tous les noms des
ordinateurs sur le réseau et arrive à savoir si l'ordinateur en cours
est un serveur ou une station.
Je voudrais créer un tableau dans lequel, pour chaque machine avoir
une correspondance avec le rôle de la machine :
par exemple : arrComputers = ("PC01","Ordi" ; "PC02","Ordi" ;
"SRV01","Serveur" ; ....)

Quelqu'un peut il m'orienter dans la construction des boucles.


Pour ce genre de travail, il est préférable d'utiliser un "dictionnaire",
qui est un objet collection, donc dynamique, et composé de couples d'items
nom/valeur. (http://www.bellamyjc.org/fr/vbsobj/vsobjdictionary.html)

Set CollComp = WScript.CreateObject("Scripting.Dictionary")

'Pour éviter les pb de casse ....
CollComp.compareMode=vbTextCompare

CollComp.Add "PC01","Ordi"
CollComp.Add "PC02","Ordi"
CollComp.Add "SRV01","Serveur"
...

' Pour tester l'existence d'un PC :
PCname="MonPC"
if not CollComp.Exist(PCname) then
wscript.echo "L'ordinateur " & PCname & " n'est pas répertorié"
else
wscript.echo "L'ordinateur " & PCname & " est un " &
CollComp.Item(PCname)
end if




--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] -
http://www.bellamyjc.org ou http://jc.bellamy.free.fr

Avatar
Ziggy
Pour ce genre de travail, il est préférable d'utiliser un "dictionnaire",
qui est un objet collection, donc dynamique, et composé de couples d'items
nom/valeur. (http://www.bellamyjc.org/fr/vbsobj/vsobjdictionary.html)


Bien merci jean-claude, je m'obstinais à le faire avec array(). Je ne
connaissais pas Dictionnary.
En effet, je peux faire ce que j'ai besoin avec

Bon WE

Avatar
Ziggy
Bon j'ai testé, c'est très bien pour deux dimensions.
Pour ma part, j'aurai voulu obtenir une solution du type :
("PC01","Ordi","WinXp" ; "PC02","Ordi","Win2k" ; "SRV01","Serveur","Win2k3"
; ....)
Dois je chercher dans le style Dictionary imbriqué dans Dictionary ou Array
+ Dictionary ?
Avatar
lavache
"Jean-Claude BELLAMY" a écrit dans le
message de news:
Dans le message :,
Ziggy <tpmsn2004nospam]@nospamfree.fr> a pris la peine d'écrire ce qui
suit

:
Bonjour @ tous,

J'arrive à créer un tableau dynamique qui récupère tous les noms des
ordinateurs sur le réseau et arrive à savoir si l'ordinateur en cours
est un serveur ou une station.
Je voudrais créer un tableau dans lequel, pour chaque machine avoir
une correspondance avec le rôle de la machine :
par exemple : arrComputers = ("PC01","Ordi" ; "PC02","Ordi" ;
"SRV01","Serveur" ; ....)

Quelqu'un peut il m'orienter dans la construction des boucles.


Pour ce genre de travail, il est préférable d'utiliser un "dictionnaire",
qui est un objet collection, donc dynamique, et composé de couples d'items
nom/valeur. (http://www.bellamyjc.org/fr/vbsobj/vsobjdictionary.html)

Set CollComp = WScript.CreateObject("Scripting.Dictionary")

'Pour éviter les pb de casse ....
CollComp.compareMode=vbTextCompare

CollComp.Add "PC01","Ordi"
CollComp.Add "PC02","Ordi"
CollComp.Add "SRV01","Serveur"
...

' Pour tester l'existence d'un PC :
PCname="MonPC"
if not CollComp.Exist(PCname) then
wscript.echo "L'ordinateur " & PCname & " n'est pas répertorié"
else
wscript.echo "L'ordinateur " & PCname & " est un " &
CollComp.Item(PCname)
end if




--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] -
http://www.bellamyjc.org ou http://jc.bellamy.free.fr




TRÈS TRÈS pratique ce code.
:)

Sébas