renommer une liste d'objets

Question

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

cs_JMO · Answer

Bonjour à tous,

Script vbs non testé.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
Set objShare = objWMIService.Get("Win32_ComputerSystem.Name='SERVER'")
Set objInParam = objShare.Methods_("Rename").inParameters.SpawnInstance_()
objInParam.Properties_.Item("Name") =  "server2"
objInParam.Properties_.Item("Password") =  "admin"
objInParam.Properties_.Item("UserName") =  "administrator"
Set objOutParams = objWMIService.ExecMethod("Win32_ComputerSystem.Name='SERVER'", "Rename", objInParam)
Wscript.echo "ReturnValue: " & objOutParams.ReturnValue

jean-marc

Renommer une liste d'objets

1 réponse

Votre réponse

Discussions similaires