[Script WMI] Petit soucis avec une condition... please help :)

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Script WMI] Petit soucis avec une condition... please help :)

zell45

:hello: Bonjour
J'ai un petit souci avec un script WMI que je suis entrain de faire, je m'explique...
En voilà un bout:

Code :

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("." )
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "IP :" & strComputer
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colItems = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem" )
For Each objItem in colItems
WScript.Echo "Nom de la machine :" & objitem.Name
WScript.Echo "=========================================="
WScript.Echo
Next
[...]
Wscript.Echo "-----------------------------------"
Wscript.Echo "||IMPRIMANTES INSTALLEES||"
Wscript.Echo "-----------------------------------"
'==IMPRIMANTES INSTALLEE SUR LA MACHINE==
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2" )
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer", "WQL",_
wbemFlagReturnImmediately +wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "" & objItem.Caption
Next
WScript.Echo
WScript.Echo
WScript.Echo
Next

En fait il me sert à récupérer des informations sur les machines de mon réseau à partir d'une liste d'adresse IP.
Le problème c'est que quand il cherche des info sur une @ IP non attribué (machine éteinte par exemple) il me renvoit cette erreur : "C:\Test.vbs(8, 1) (null): 0x80041003" En gros il n'arrive pas à lire le nom de la machine.
J'ai essayé en mettant "On Error Resume Next" au début du script mais s'il y a une erreur il me redonne les info de l'adresse IP précédente dans la liste... (j'espère que vous me suivez là lol)
Donc je voudrais qu'il affiche, par exemple, "Cette IP n'est pas attribué", s'il n'arrive pas à lire le nom de la machine au début, pour éviter qu'il execute tout.
C'est peut être facile ou impossible mais comme je n'y connais pas grand chose, je fait appel à vous
Merci, à ceux qui pourront m'aider :jap:

Message édité par zell45 le 11-04-2006 à 09:05:43

---------------
GuildWars : [Irivine Kinneas G/M | Yuna Llez R/El | Tidus Wong M/En [HCT]] [Ogame/U36/Ally A.M.I]

Publicité

lombrusco

pourquoi faire du script quand il y a des solutions sans scripting ^^

zell45

Bah j'ai bien chercher d'autres solutions logicielles par exemple, mais à chaque fois ça ne me convenais pas... A moins que t'es un bon truc (gratuit) à me proposer je suis tout ouïe

---------------
GuildWars : [Irivine Kinneas G/M | Yuna Llez R/El | Tidus Wong M/En [HCT]] [Ogame/U36/Ally A.M.I]

zell45

---------------
GuildWars : [Irivine Kinneas G/M | Yuna Llez R/El | Tidus Wong M/En [HCT]] [Ogame/U36/Ally A.M.I]

chailloug

où est passé mon temps libre ?

essayes dans la catégorie développement, ils seront surement meilleur que nous.

zell45

Oki, merci du conseil
J'ai refait le post dans une autre section, si un modo ou un admin passe par là, qu'il supprime le message
Merci

---------------
GuildWars : [Irivine Kinneas G/M | Yuna Llez R/El | Tidus Wong M/En [HCT]] [Ogame/U36/Ally A.M.I]

FORUM HardWare.fr

Windows & Software

[Script WMI] Petit soucis avec une condition... please help :)

Sujets relatifs
Créer une connexion VPN par script	Associations de fichier sous firefox -> besoin d'aide please
Creer une image disque HELP	Menu démarrer invisible ... Help !!
Dysfonctionnement disque dur externe USB sur NAS, help SVP.	[Thunderbird] Kesako ce petit cadenas ?
Petit log pour lire les PowerPoint	Windows media serve 2003 HELP
Script déclaration machine dans un AD ?	script de proxy par dhcp
Plus de sujets relatifs à : [Script WMI] Petit soucis avec une condition... please help :)

Page générée en 0.039 secondes