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