Discussion :

[Taakar]

Bonjour,

Je recherche actuellement une solution pour renommer un ordinateur.
N'ayant rien trouvé du coté de windev, je me suis orienté vers le msdn.
J'ai trouvé une fonction qui permet de renommer un ordi.

Mon problème est que pour appeler cette fonction il faut instancié un objet Winmgmts:root\cimv2 , chose que je ne sais pas faire .

je voudrais pouvoir adapté le code que j'ai trouvé en windev.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
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

Avez-vous déjà manipulé se genre d'objet? ou même déjà utilisé d'autre méthode pour le faire.

Note: Le pc a renommer est dans un workgroup (domage avec Netdom.exe ca aurait été plus simple!)

[Taakar]

En fait c'était extrêmement simple!

le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
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

a mettre dans un fichier .vbs et exécuté!

[=JBO=]

Bonjour rital21,

En complément de ta solution, si tu souhaites "embarquer" et exécuter ton code VBScript dans une application WinDev, c'est possible grâce au composant ActiveX ScriptControl (installé automatiquement avec Windows).

Je te donne un lien vers un message qui montre comment s'y prendre:
http://www.developpez.net/forums/d83...s/#post4797302
_

[Taakar]

Merci bien =JBO= ta solution est plus dans ce que je recherchais ! C'est beaucoup plus "propre"