Changer le nom de l'ordinateur


Cet exemple de script avec son code permet de changer le nom de l'ordinateur (computername) sur un système windows. Il suffit d'exécuter le script sur l'ordinateur.


Code du script VBS

(dans ce premier exemple, les paramètres du nom sont en dur dans le script)

' ***************************************************************************************************************
' Changer le nom de l'ordinateur
' ***************************************************************************************************************
strComputer = "."

' Paramètres du nouveau nom en dur dans le script *****************************
strNouveauNom = "NouveauNomOrdinateur"

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(strNouveauNom)
Next
' ***************************************************************************************************************




Code du script VBS

(dans ce deuxième exemple, le nouveau nom est à saisir au clavier)

' ***************************************************************************************************************
' Changer le nom de l'ordinateur
' ***************************************************************************************************************
strComputer = "."

' Paramètres à saisir au clavier  ************************
strNouveauNom = Inputbox ("Entrer le nouveau nom du PC : ")

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(strNouveauNom)
Next
' ***************************************************************************************************************


Lire la suite »






0488035