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
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]