Renommer l'ordinateur à l'aide d'une textBox

Bonjour,

je souhaite renommer un ordinateur suivant le nom passé en argument dans une textBox et validé par un bouton.

Code:

---

1 2 3

Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click   End Sub

---

Donc j'ai mon bouton et je voudrais insérer une fonction à l'intérieur pour changer le nom du pc :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long Public Function ChangeComputerName(NewName As String) As Boolean   On Error Resume Next Dim lret As Long   lret = SetComputerName(NewName) If Err.Number = 0 Then ChangeComputerName = lret <> 0   End Function

---

Attends soit je comprends rien au probleme, soit ta question est vraiment niveau (très) débutant !

Code:

---

Dim NomPc as String = ChangeComputerName(Textbox1.Text)

---

C'est ca que voulais savoir ?

EDIT : Es tu sur d'etre dans le bon forum ? car la c'est le forum Script...

En fait le problème est que changeComputerName n'est pas déclaré et si je le déclare en tant que fonction à l'intérieur de

Code:

---

1 2 3

Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click   End Sub

---

alors là il me génère des erreurs

Normal tu ne mets pas une fonction dans une procédure !

Soit tu mets ta fonctions en dehors et tu l'appelles avec mon code ou alors tu supprimes ta fonction et tu mets le code de ta fonction dans ta procédure. ;)

Merci pour tes conseils
mais malheureusement alors que le code ne génère aucune erreur, le changement de nom ne s'effectue pas.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long Public Function ChangeComputerName(ByVal NewName As String) As Boolean   On Error Resume Next Dim lret As Long   lret = SetComputerName(NewName) If Err.Number = 0 Then ChangeComputerName = lret <> 0   End Function

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long   Public Function ChangerNomOrdi(NouveauNomOrdi As String) As Boolean On Error Resume Next Dim Changer As Long Changer = SetComputerName(NouveauNomOrdi) If Err.Number = 0 Then ChangerNomOrdi = True Else ChangerNomOrdi = False End If End Function

---

j'ai essayé avec les deux fonction ci-dessus, puis ensuite

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click If RadioBtn1.Checked Then Label1.Text = nomOrdi & "-P" Else Label1.Text = nomOrdi & "-C" End If   Dim NomOrdiComplet As String = ChangeComputerName(Label1.Text) If Retour = True Then MsgBox("Le nom de votre ordinateur a été changé") Else MsgBox("Le nom de votre ordinateur n'a pas été changé") End If   End Sub

---

Et là lorsque je clic sur mon bouton, il me met que le nom de l'ordi a changer alors qu'il n'en est rien. Je trouve ça bizarre aussi qu'il ne me propose pas de rebooter, que d'un simple clic le pc soit renommé.
Je ne sais pas si je suis clair? (c'est un gros pb pour moi d'etre clair :? )

Y'a des erreurs de conversions dans ton code deja !

Mets cela en haut de ta feuille :

Code:

---

1 2	Option Strict On Option Explicit On

---

Ensuite d'ou sort cette variable "Retour" non déclarée ?

Pour la variable elle était déclarée comme ca :

Code:

---

Dim Retour As Boolean

---

sinon quesque c'est que tes options? car elles me génèrent des erreurs sur la partie en rouge du code suivant. Alors qu'il n'y a pas de problème lorsque je ne les mets pas. Je les ai bien misent tout en haut portant

Code:

---

1 2 3 4 5 6 7 8 9

If RadioBtn1.Checked Then Select Case CbBox1.SelectedItem Case "Portables" 'code effectué si expression=valeur Case "Postes Administrateurs" Case "Postes Fixes" End Select

---

Question bête : Pourquoi changer le nom de la machine depuis le code ?

Nombreux problèmes vont se poser :

• L'utilisateur qui éxécute le code est admin de la machine ?
• Comment tu gères le fait que la machine doit être redémarré pour que les changements prennent réellement effet ?
• La machine est enregistrée sur un domaine ?
• D'autres machines accède peut être cette machine en utilisant son nom.

Je crois que tu vas au devant de gros problèmes en faisant ça ...

L'utilisateur éxécutant ce code doit être admin, si c'est le cas il peut le faire très simplement dans Windows.

je sais très bien mais voilà je suis en train de faire une petite appli pour l'admin du domaine, pour automatiser certaines taches.
Donc oui il est admin.
Je dois dans le meme temps créer ce compte ordinateur dans une AD et le placer dans la bonne OU

Citation:

---

Envoyé par poussin_44

Pour la variable elle était déclarée comme ca :

Code:

---

Dim Retour As Boolean

---

sinon quesque c'est que tes options? car elles me génèrent des erreurs sur la partie en rouge du code suivant. Alors qu'il n'y a pas de problème lorsque je ne les mets pas. Je les ai bien misent tout en haut portant

---

Et oui c'est tout l'interet des options !! :fleche: ca va t'apprendre à bien coder en VB.NET et ce sont des erreurs de conversions...

Remplace par cela et comme par magie tu seras heureux :

Code:

---

1 2 3 4 5 6 7 8 9

If RadioBtn1.Checked Then Select Case CbBox1.SelectedItem.Tostring Case "Portables" 'code effectué si expression=valeur Case "Postes Administrateurs" Case "Postes Fixes" End Select

---

Alors merci pour vos réponses, petit à petit j'y vois un peu plus clair sur la programmation dans visual basic 2005.

Par contre en ce qui concerne le rennomage du pc cela ne fonctionne toujours pas. Alors que j'ai bien un message de réussite !
j'ai modifié quelque peu mon code comm ca :

Code:

---

1 2 3 4 5 6 7 8

'Pour Changer le nom de votre ordinateur : Dim NomOrdiComplet As Boolean = CBool(CStr(ChangerNomOrdi(Label1.Text)))   If NomOrdiComplet = True Then MsgBox("Le nom de votre ordinateur a été changé") Else MsgBox("Le nom de votre ordinateur n'a pas été changé") End If

---

j'ai également essayé dans ma fonction avec SetComputerNameEX au lieu de SetComputerNameEX mais c'est toujours pareil.

Quelqu'un a-t-il déjà réussi?

Pas regardé mais ca doit etre un probleme dans l'API...

Tu ne reçoit aucune erreur ????
Ton assembly ne doit pas être signée et avec un "full trust" pour faire cette opération ?

Excuse moi mais je n'ai pas compris ce que tu as dis ...

en tout cas il ne me génère aucune erreur, au contraire, il m'indique : Le nom de votre ordinateur a été changé

Au cas ou, tu as tenté de rebooter ??

oui j'ai essayé ca dès le début mais ca ne change rien. Ca doit venir de la fonction SetComputerName mais je n'en trouve pas d'autre.
Est-ce que ce serait possible en tappant dans la base de registre?

Je pense malheuresement qu'il y a plus qu'une clé qui contient le nom de la machine mais je n'en suis pas certain.

merci je vais me pencher la dessus

Désolé je ne peux pas t'aider plus