Jump to content
Sign in to follow this  
lafafmentvotre

Rename Local Account

Recommended Posts

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 :whistle::)

thanks and sorry for my bad english

Share this post


Link to post
Share on other sites
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 :whistle::)

thanks and sorry for my bad english

Share this post


Link to post
Share on other sites
lafafmentvotre

Oupps

Nobody can help me ?

Thanks

Share this post


Link to post
Share on other sites
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 :whistle::)

thanks and sorry for my bad english

; 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 by JdeB

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×