请教修改计算机帐号的问题
windows里有一个名字是 abc 的帐号，我想用命令行或者编程的方式来重命名为user，请问应该如何做？谢谢。

[解决办法]
Sub changeusername()
Dim myname As String, objWMIService As Object, objComputer As Object, r As Long
Name = InputBox( "Enter the new computer name below and click OK to continue ", "Rename ")
Set objWMIService = GetObject( "Winmgmts:root\cimv2 ")
For Each objComputer In objWMIService.InstancesOf( "Win32_ComputerSystem ")
r = objComputer.rename(Name, "mypassword ", "abc ")
If r <> 0 Then
MsgBox "Rename failed. Error = " & Err.Number
Else
MsgBox "Rename succeeded. " & " Reboot for new name to go into effect "
End If
Next
End Sub

[解决办法]
楼上倒是说错了，你试试，在系统的用户管理中是可以改名的。这个应该补充进你的基本常识中。

只是用命令行或程序的方法很难办，没找到。我自己试着在系统TEST几次，都因不得不有所顾虑而无法找到所有关联的内容。

看来可能是因为这个问题非常涉及用户安全，所以也没什么公开资料。