Create local User

[KatoXY 0]

Hi,

I want write script which create local user with password and add it to administrators group. I found in forum this:

; Init objects
;$oMyError = ObjEvent("AutoIt.Error","MyErrFunc") ; Install a custom error handler 
$UserName = 'Fred'
$Password = 'Wilma123'
$strComputer = @ComputerName
;***********************
;Create UserID
$colAccounts = ObjGet("WinNT://" & $strComputer & "")
$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)

It's created 4 years ago and it's working on Windows XP, but it doesn't working in Windows 7 (I have 64bits version).

Where is problem?

[water 2,420]

Where is problem?

Don't know

You must provide more information!

What error message do you get? Which line number returns the error?

Please see function "ObjEvent" in the help file to insert a COM error handler (starting from line "; COM Error Handler example") in your script which will deliver detailed error messages.

[KatoXY 0]

I added rest of the script from with ObjEvent then I got Access Denied.

When I compiled this script and run as administrator then program has executed the desired operations.