Bonjour,
 
Je suis à la recherche d'un script, exe ou autre qui permet de changer le nom de l'ordinateur. Peut importe le langage, à partir du moment ou il renomme sous 7 à la fois 32 et 64bits je prends
 
Merci d'avance pour votre aide,
 
Nico

Name = "name"
Password = "password"
Username = "username"
 
Set objWMIService = GetObject("Winmgmts:root\cimv2" )
 
' Call always gets only one Win32_ComputerSystem object.
For Each objComputer in _
    objWMIService.InstancesOf("Win32_ComputerSystem" )
 
        Return = objComputer.rename(Name,Password,Username)
        If Return <> 0 Then
           WScript.Echo "Rename failed. Error = " & Err.Number
        Else
           WScript.Echo "Rename succeeded." & _
               " Reboot for new name to go into effect"
        End If
 
Next
 
 
 
powershell
 
function renameAndReboot([string]$computer, [string]$newname)
{
        $comp = gwmi win32_computersystem  -computer $computer
        $os   = gwmi win32_operatingsystem -computer $computer
 
        $comp.Rename($newname)
        $os.Reboot()
}
 
 
vb
 
Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
Public Function ChangeComputerName(NewName As String) As Boolean
 
 
 
a une époque je le faisait en changeant la base de registres
mais je ne sais pas si c'est encore valabe !
 

Merci,
 
Le script en vbs était le même que j'utilisais, mais le problème était qu'avant de pourvoir faire une rename, il faut sortir du domaine, ce que je ne faisais pas.
 
Nico