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
Jean-Claude BELLAMY
Dans le message news:2108801c459c0$c1030510$ ,
s'est ainsi exprimé:
Bonjour à tous,
J'utilise dans une boucle une connexion wmi sur chaque PC du domaine.
Set objWmiservice= GetObject ("winmgmts:"&"{impersonationLevel=impersonate}!" & ComputerName & "rootcimv2").
Lorsque le PC est inaccessible, la boucle s'arrête ou devient très longue du fait que le Set objwmiservice ne peut se faire.
Peut créer une condition qd le pc est inaccessibe et passer au pc suivant.
La méthode que j'utilise dans ce cas est très "agricole", mais elle a le mérite de fonctionner : Elle suppose au départ : - que le script est lancé sous un compte administrateur (quand on fait tourner un script WMI s'adressant à plusieurs machines, c'est généralement le cas) - que les partages administratifs n'ont pas été désactivés (donc plate-forme NT. Ne peut pas marcher avec Win9X/ME)
Il suffit alors de tester l'existence du dossier nom-du-pcadmin$ (qui désigne le %systemroot% de l'ordinateur distant, donc un dossier qui existe toujours si la machine fonctionne)
Dans le cas où le PC est inaccessible, cela prend un peu de temps, mais beaucoup moins qu'un GetObject qui n'aboutit pas.
... Set fso = WScript.CreateObject("Scripting.FileSystemObject") ... UNC="" & ComputerName if fso.FolderExists(UNC & "admin$") then Set objWmiservice= GetObject("winmgmts:" & UNC & "rootcimv2") ... 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 http://www.bellamyjc.org *
Dans le message news:2108801c459c0$c1030510$a001280a@phx.gbl ,
anonymous@discussions.microsoft.com <anonymous@discussions.microsoft.com>
s'est ainsi exprimé:
Bonjour à tous,
J'utilise dans une boucle une connexion wmi sur chaque PC
du domaine.
Set objWmiservice= GetObject
("winmgmts:"&"{impersonationLevel=impersonate}!\" &
ComputerName & "rootcimv2").
Lorsque le PC est inaccessible, la boucle s'arrête ou
devient très longue du fait que le Set objwmiservice ne
peut se faire.
Peut créer une condition qd le pc est inaccessibe et
passer au pc suivant.
La méthode que j'utilise dans ce cas est très "agricole", mais elle a le
mérite de fonctionner :
Elle suppose au départ :
- que le script est lancé sous un compte administrateur
(quand on fait tourner un script WMI s'adressant à
plusieurs machines, c'est généralement le cas)
- que les partages administratifs n'ont pas été désactivés
(donc plate-forme NT. Ne peut pas marcher avec Win9X/ME)
Il suffit alors de tester l'existence du dossier \nom-du-pcadmin$
(qui désigne le %systemroot% de l'ordinateur distant, donc un dossier qui
existe toujours si la machine fonctionne)
Dans le cas où le PC est inaccessible, cela prend un peu de temps, mais
beaucoup moins qu'un GetObject qui n'aboutit pas.
...
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
...
UNC="\" & ComputerName
if fso.FolderExists(UNC & "admin$") then
Set objWmiservice= GetObject("winmgmts:" & UNC & "rootcimv2")
...
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
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr
J'utilise dans une boucle une connexion wmi sur chaque PC du domaine.
Set objWmiservice= GetObject ("winmgmts:"&"{impersonationLevel=impersonate}!" & ComputerName & "rootcimv2").
Lorsque le PC est inaccessible, la boucle s'arrête ou devient très longue du fait que le Set objwmiservice ne peut se faire.
Peut créer une condition qd le pc est inaccessibe et passer au pc suivant.
La méthode que j'utilise dans ce cas est très "agricole", mais elle a le mérite de fonctionner : Elle suppose au départ : - que le script est lancé sous un compte administrateur (quand on fait tourner un script WMI s'adressant à plusieurs machines, c'est généralement le cas) - que les partages administratifs n'ont pas été désactivés (donc plate-forme NT. Ne peut pas marcher avec Win9X/ME)
Il suffit alors de tester l'existence du dossier nom-du-pcadmin$ (qui désigne le %systemroot% de l'ordinateur distant, donc un dossier qui existe toujours si la machine fonctionne)
Dans le cas où le PC est inaccessible, cela prend un peu de temps, mais beaucoup moins qu'un GetObject qui n'aboutit pas.
... Set fso = WScript.CreateObject("Scripting.FileSystemObject") ... UNC="" & ComputerName if fso.FolderExists(UNC & "admin$") then Set objWmiservice= GetObject("winmgmts:" & UNC & "rootcimv2") ... 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 http://www.bellamyjc.org *
Merci
c'est OK
-----Message d'origine----- Dans le message news:2108801c459c0$c1030510 $ ,
s'est ainsi exprimé:
Bonjour à tous,
J'utilise dans une boucle une connexion wmi sur chaque PC
du domaine.
Set objWmiservice= GetObject ("winmgmts:"&"{impersonationLevel=impersonate}!" & ComputerName & "rootcimv2").
Lorsque le PC est inaccessible, la boucle s'arrête ou devient très longue du fait que le Set objwmiservice ne peut se faire.
Peut créer une condition qd le pc est inaccessibe et passer au pc suivant.
La méthode que j'utilise dans ce cas est très "agricole", mais elle a le
mérite de fonctionner : Elle suppose au départ : - que le script est lancé sous un compte administrateur
(quand on fait tourner un script WMI s'adressant à plusieurs machines, c'est généralement le cas) - que les partages administratifs n'ont pas été désactivés
(donc plate-forme NT. Ne peut pas marcher avec Win9X/ME)
Il suffit alors de tester l'existence du dossier nom-du- pcadmin$
(qui désigne le %systemroot% de l'ordinateur distant, donc un dossier qui
existe toujours si la machine fonctionne)
Dans le cas où le PC est inaccessible, cela prend un peu de temps, mais
beaucoup moins qu'un GetObject qui n'aboutit pas.
.... Set fso = WScript.CreateObject ("Scripting.FileSystemObject")
.... UNC="" & ComputerName if fso.FolderExists(UNC & "admin$") then Set objWmiservice= GetObject("winmgmts:" & UNC & "rootcimv2")
... 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 http://www.bellamyjc.org *
.
Merci
c'est OK
-----Message d'origine-----
Dans le message news:2108801c459c0$c1030510
$a001280a@phx.gbl ,
J'utilise dans une boucle une connexion wmi sur chaque
PC
du domaine.
Set objWmiservice= GetObject
("winmgmts:"&"{impersonationLevel=impersonate}!\" &
ComputerName & "rootcimv2").
Lorsque le PC est inaccessible, la boucle s'arrête ou
devient très longue du fait que le Set objwmiservice ne
peut se faire.
Peut créer une condition qd le pc est inaccessibe et
passer au pc suivant.
La méthode que j'utilise dans ce cas est très "agricole",
mais elle a le
mérite de fonctionner :
Elle suppose au départ :
- que le script est lancé sous un compte
administrateur
(quand on fait tourner un script WMI s'adressant à
plusieurs machines, c'est généralement le cas)
- que les partages administratifs n'ont pas été
désactivés
(donc plate-forme NT. Ne peut pas marcher avec
Win9X/ME)
Il suffit alors de tester l'existence du dossier \nom-du-
pcadmin$
(qui désigne le %systemroot% de l'ordinateur distant,
donc un dossier qui
existe toujours si la machine fonctionne)
Dans le cas où le PC est inaccessible, cela prend un peu
de temps, mais
beaucoup moins qu'un GetObject qui n'aboutit pas.
....
Set fso = WScript.CreateObject
("Scripting.FileSystemObject")
....
UNC="\" & ComputerName
if fso.FolderExists(UNC & "admin$") then
Set objWmiservice= GetObject("winmgmts:" & UNC
& "rootcimv2")
...
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
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr
-----Message d'origine----- Dans le message news:2108801c459c0$c1030510 $ ,
s'est ainsi exprimé:
Bonjour à tous,
J'utilise dans une boucle une connexion wmi sur chaque PC
du domaine.
Set objWmiservice= GetObject ("winmgmts:"&"{impersonationLevel=impersonate}!" & ComputerName & "rootcimv2").
Lorsque le PC est inaccessible, la boucle s'arrête ou devient très longue du fait que le Set objwmiservice ne peut se faire.
Peut créer une condition qd le pc est inaccessibe et passer au pc suivant.
La méthode que j'utilise dans ce cas est très "agricole", mais elle a le
mérite de fonctionner : Elle suppose au départ : - que le script est lancé sous un compte administrateur
(quand on fait tourner un script WMI s'adressant à plusieurs machines, c'est généralement le cas) - que les partages administratifs n'ont pas été désactivés
(donc plate-forme NT. Ne peut pas marcher avec Win9X/ME)
Il suffit alors de tester l'existence du dossier nom-du- pcadmin$
(qui désigne le %systemroot% de l'ordinateur distant, donc un dossier qui
existe toujours si la machine fonctionne)
Dans le cas où le PC est inaccessible, cela prend un peu de temps, mais
beaucoup moins qu'un GetObject qui n'aboutit pas.
.... Set fso = WScript.CreateObject ("Scripting.FileSystemObject")
.... UNC="" & ComputerName if fso.FolderExists(UNC & "admin$") then Set objWmiservice= GetObject("winmgmts:" & UNC & "rootcimv2")
... 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 http://www.bellamyjc.org *
