P.T.A.M. Administrator

Joined: 08 Oct 2003 Posts: 752 Location: Greece
|
Posted: Oct 10th, 2003 08:03 AM Post subject: Set Computer Name |
|
|
You have to restart the computer for the changes to take effect.
| Code: | Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
Private Sub Command1_Click()
a$ = Text1.Text
b& = SetComputerName(a$)
End Sub |
_________________ No one is completely useless. They can at least be an example of what to avoid. |
|