Je souhaite réaliser un script pour realiser des tâches sur un ensemble
de machines hors domaine.
Lorsque je boucle sur des noms de machines, pas de problèmes. Par contre
ca ne marche pas lorsque je met l'adresse IP. il est plus pratique de
faire une boucle sur une classe C IP que sur un ensemble de machines
dont on n'a pas forcement la liste.
Si vous avez la solution....
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 :438e17d4$0$21627$, JCJ a pris la peine d'écrire ce qui suit :
Bonjour,
Je souhaite réaliser un script pour realiser des tâches sur un ensemble de machines hors domaine. Lorsque je boucle sur des noms de machines, pas de problèmes. Par contre ca ne marche pas lorsque je met l'adresse IP. il est plus pratique de faire une boucle sur une classe C IP que sur un ensemble de machines dont on n'a pas forcement la liste. Si vous avez la solution....
Oui, pour avoir automatiquement la liste des noms des machines :
' Récupération du nom de workgroup de la machine courante Set ComputerSystem = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("Win32_ComputerSystem") for each ComputerItem in ComputerSystem domain=ComputerItem.Domain next
' Enumération des machines Set oWinnt=GetObject("WinNT://" & domain) For each oDomainItem in oWinnt classe=oDomainItem.Class Computer=oDomainItem.Name If classe="Computer" Then MaTache Computer Next
Sub Matache(ordinateur) ... ... End sub
A toi de complèter !
-- 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
Dans le message :438e17d4$0$21627$636a15ce@news.free.fr,
JCJ <jcj003nospam@free.fr> a pris la peine d'écrire ce qui suit :
Bonjour,
Je souhaite réaliser un script pour realiser des tâches sur un
ensemble de machines hors domaine.
Lorsque je boucle sur des noms de machines, pas de problèmes. Par
contre ca ne marche pas lorsque je met l'adresse IP. il est plus
pratique de faire une boucle sur une classe C IP que sur un ensemble
de machines dont on n'a pas forcement la liste.
Si vous avez la solution....
Oui, pour avoir automatiquement la liste des noms des machines :
' Récupération du nom de workgroup de la machine courante
Set ComputerSystem =
GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf
("Win32_ComputerSystem")
for each ComputerItem in ComputerSystem
domain=ComputerItem.Domain
next
' Enumération des machines
Set oWinnt=GetObject("WinNT://" & domain)
For each oDomainItem in oWinnt
classe=oDomainItem.Class
Computer=oDomainItem.Name
If classe="Computer" Then MaTache Computer
Next
Sub Matache(ordinateur)
...
...
End sub
A toi de complèter !
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - Jean-Claude.Bellamy@wanadoo.fr
http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Dans le message :438e17d4$0$21627$, JCJ a pris la peine d'écrire ce qui suit :
Bonjour,
Je souhaite réaliser un script pour realiser des tâches sur un ensemble de machines hors domaine. Lorsque je boucle sur des noms de machines, pas de problèmes. Par contre ca ne marche pas lorsque je met l'adresse IP. il est plus pratique de faire une boucle sur une classe C IP que sur un ensemble de machines dont on n'a pas forcement la liste. Si vous avez la solution....
Oui, pour avoir automatiquement la liste des noms des machines :
' Récupération du nom de workgroup de la machine courante Set ComputerSystem = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("Win32_ComputerSystem") for each ComputerItem in ComputerSystem domain=ComputerItem.Domain next
' Enumération des machines Set oWinnt=GetObject("WinNT://" & domain) For each oDomainItem in oWinnt classe=oDomainItem.Class Computer=oDomainItem.Name If classe="Computer" Then MaTache Computer Next
Sub Matache(ordinateur) ... ... End sub
A toi de complèter !
-- 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
