Discussion :

[poussin_44]

Bonjour,

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

Code :

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

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 :

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

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

[Aspic]

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

Code :

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

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...

[poussin_44]

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 :

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

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

[Aspic]

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.

[poussin_44]

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 :

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

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 :

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

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 :

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

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 )

[Aspic]

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

Mets cela en haut de ta feuille :

Code :

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

1
2
Option Strict On
Option Explicit On

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

[poussin_44]

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

Code :

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

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 :

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

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

[LefortLudovic]

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.

[poussin_44]

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

[Aspic]

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

Code :

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

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 !! 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 :

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

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

[poussin_44]

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 :

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

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?

[Aspic]

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

[LefortLudovic]

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

[poussin_44]

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é

[LefortLudovic]

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

[poussin_44]

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?

[LefortLudovic]

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.

[poussin_44]

merci je vais me pencher la dessus

[LefortLudovic]

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