Rename Local Account

[lafafmentvotre]

Hello

I want to create a script to rename the "administrator" or "administrateur" local account but i didn't choose the function reference to do it.

Please help me

thanks and sorry for my bad english

[lafafmentvotre]

Hello

I want to create a script to rename the "administrator" or "administrateur" local account but i didn't find the function reference to do it.

Please help me

thanks and sorry for my bad english

[lafafmentvotre]

Oupps

Nobody can help me ?

Thanks

[Jos]

Hello

I want to create a script to rename the "administrator" or "administrateur" local account but i didn't choose the function reference to do it.

Please help me

thanks and sorry for my bad english

expandcollapse popup

; Init objects
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc") ; Install a custom error handler 
$UserName = 'Fred'
$Password = 'Wilma123'
$strComputer = @ComputerName
$colAccounts = ObjGet("WinNT://" & $strComputer & "")
;***********************
;Create UserID
$objUser = $colAccounts.Create("user", $UserName)
$objUser.SetPassword ($Password)
$objUser.Put ("Fullname", "Test User")
$objUser.Put ("Description", "Test User description")
$objUser.Put ("PasswordExpired", 1)  ;expire the password
$objUser.SetInfo
;***********************
;Add User to group 
;$objGroup = ObjGet("WinNT://" & $strComputer & "/Administrators,group")
;$objGroup.Add($objUser.ADsPath)
;***********************
; Rename User
$OldUser = "Fred"
$NewUser = "Fredrenamed"
$oUser = ObjGet("WinNT://" & @ComputerName & "/" & $OldUser & ",user")
$oComputer = ObjGet("WinNT://" & @ComputerName)
$oNewUser = $oComputer.MoveHere($oUser.ADsPath, $NewUser)


Func MyErrFunc() 
   $HexNumber=hex($oMyError.number,8) 
   Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _
                "Number is: " & $HexNumber & @CRLF & _
                "Linenbr is: " & $oMyError.scriptline  & @CRLF & _
                "Description is: " & $oMyError.description  & @CRLF & _
                "Windescription is: " & $oMyError.windescription ) 

   SetError(1) ; something to check for when this function returns 
Endfunc

Edited February 8, 2007 by JdeB

[evilertoaster]

http://www.autoitscript.com/forum/index.ph...+user++accounts

http://www.autoitscript.com/forum/index.ph...+user++accounts

edit: or that above

Edited February 8, 2007 by evilertoaster