Bonjour tout le monde
J'aimerais changer le nom de mon ordinateur grâce à un VBscript. J'ai cherché des bouts de codes sur le net et je n'y arrive toujours pas ^^'.
1er essai
set Modif = createobject("WScript.shell" )
Modif.regWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName", hostname
Modif.regWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName", hostname
Verdict --> ne change rien
2ème essai
strComputer = hostname
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("test" )
next
--> erreur lors de l’exécution le serveur distant n'existe pas ou n'est pas disponible: GetObject
Si l'un d'entre vous pourrait m'aider se serait vraiment gentil
Merci d'avance.