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.