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