Bonjour,
je souhaite renommer un ordinateur suivant le nom passé en argument dans une textBox et validé par un bouton.
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 Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click End Sub
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
Partager