重命名系统帐户名称

_RenameUser("Administrator","admin")

Func _RenameUser($User,$NewUser)

;================================
;用法：_RenameUser(用户名称,新的帐户名称)
;注意：此函数需要系统WMI服务的支持。
;版权：www.autoit.net.cn Make By Sanhen
;================================
    
Local $strComputer,$objWMIService
Local $colAccounts, $objAccount

$strComputer = "."

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colAccounts = $objWMIService.ExecQuery _
    ("Select * From Win32_UserAccount Where LocalAccount = True And Name = '"&$User&"'")

For $objAccount in $colAccounts
    $objAccount.Rename($NewUser)
Next

EndFunc