如何改变电脑名字？

Question

Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'E-Mail: [email protected]
    Dim sNewName As String
    'Ask for a new computer name
    sNewName = InputBox("Please enter a new computer name.")
    'Set the new computer name
    SetComputerName sNewName
    MsgBox "Computername set to " + sNewName
End Sub

Answer 1

The SetComputerName function sets the computer name to be used the next time the system is restarted. BOOL SetComputerName(    LPCTSTR lpComputerName  // address of new computer name 
   );
 ParameterslpComputerNamePoints to a null-terminated character string that specifies the name that will be the computer name the next time the computer is started. The name must not be longer than MAX_COMPUTERNAME_LENGTH characters.
Windows 95: If this string contains one or more characters that are outside the standard character set, those characters are coerced into standard characters.
Windows NT: If this string contains one or more characters that are outside the standard character set, SetComputerName returns ERROR_INVALID_PARAMETER. It does not coerce the characters outside the standard set.The standard character set includes letters, numbers, and the following symbols: ! @ # $ % ^ & ' ) ( . - _ { } ~ . Return ValuesIf the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError. ResApplications using this function must have administrator rights. See AlsoGetComputerName