renommer une liste d'objet
Bonjour,
Je voudrais renommer, pour commencer, une liste d'ordinateur.
Je voudrais faire une entrée avec un fichier txt ou csv par exemple sur un code vbs.
Voici le code qui fonctionne : (sources MS )
Code:
1
2
3
4
5
6
7
8
| strComputer = "brutest12"
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
err = objComputer.Rename("bibi00")
Next |
Ce code renomme bien mon pc brutet12 en bibi00.
Mon problème est :
-ce code fonctionne qd je l'execute sur mon pc en local, et ne fonctionne pas qd je tente de l'executer depuis un controlleur de domaine.
- J'aimerais faire un entrée via un fichier txt ou csv pour demander au script de renommer plusieurs ordinateur en même tps.
Voila, je debute en vbs et je tourne en rond depuis plusieurs jours.
Merci d'avacnce pour votre contribution
