怎么使用脚本更改一个用户的名字为这台机器的主机名

如何使用脚本更改一个用户的名字为这台机器的主机名？
如果我想使用脚本得到主机名，并将一个系统中的一个“用户名字”更改为这个“主机名” 
(注：主机名未知，要通过脚本得到)
该如何使用脚本完成？

[解决办法]
比如你想把用户test的名称改成计算机名

VBScript code

Re=1Set objWMIService = GetObject("Winmgmts:root\cimv2")For Each objComputer in objWMIService.InstancesOf("Win32_ComputerSystem")  Cn=objComputer.NameNextFor Each objComputer in objWMIService.InstancesOf("Win32_UserAccount")  If objComputer.Name="test" Then    Re=objComputer.Rename(Cn)  End If NextIf Re<>0 then  WScript.Echo "操作失败!"Else  WScript.Echo "操作成功!"End If
[解决办法]
方法1
BatchFile code
@echo offset OldName=learnlifefor /f "delims=" %%a in ('hostname') do (  wmic useraccount where name='%OldName%' call rename "%%a")