如何用VB更改计算机用户名【【急用】】

请各位高手指教，如何用vB更改计算机的用户名，比如有一个用户a001，如何将其更改为a002 ？？？？
诚请各位高手指教，万分感谢！！！

你可以用Windows API或者用WSH来设置环境变量中的计算机用户名

只能用API但是不知道是那個
還是去百度吧

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

Dim lResult As Long
Dim RV As Boolean
lResult = SetComputerName(CName)
If lResult <> 0 Then
RV = True '修改成功
Else
RV = False
End If
SetCName = RV
End Function

Private Sub Command1_Click()
If SetCName("hxfly") = True Then
MsgBox ("修改成功")
End If
End Sub