• Home
 · 
• Windows System Services
 · 
• This code will change the name of your computer.

This code will change the name of your computer.

This code will change the name of your computer.

API Declarations


Public Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long




Rate This code will change the name of your computer.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'at the click event of the command button  add this code
Private Sub Command1_Click()
Dim a
Dim b
a = MsgBox("this will change the name of your system", vbYesNo + vbInformation)
If ans = vbYes Then
b = SetComputerName(Text1.Text)
End If

End Sub