Creating a local admin and setting password to never expire

[CiS]

Hello all! Thanks so far for the help. I have been reading a searching this message board all day. I have 0 experience with scripting. I am trying to create a simple script to add a user, put them in the admin group, set a password, and make the password never expire.

This example has worked great for me but I cannot figure out what I need to do to set the password to never expire on just this account. Can someone please help?

I'm thinking is has something to do with this but I can't figure out where to add it or to get it working correctly

Const $ADS_UF_DONT_EXPIRE_PASSWD = 0x10000

$objUserFlags = $objUser.Get("UserFlags")

$objPasswordExpirationFlag = BitOR($objUserFlags,$ADS_UF_DONT_EXPIRE_PASSWD)

$objUser.Put ("UserFlags", $objPasswordExpirationFlag)

$objUser.SetInfo

Any help would be greatly appreciated!

Here's a COM version to add a user and add it to Administrators:

; Init objects
$UserName = 'Fred'
$Password = 'Wilma'
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc"); Install a custom error handler 
$strComputer = @ComputerName
$colAccounts = ObjGet("WinNT://" & $strComputer & "")
$objUser = $colAccounts.Create("user", $UserName)
$objUser.SetPassword ($Password)
$objUser.Put ("Fullname", "Test User")
$objUser.Put ("Description", "Test User description")
$objUser.SetInfo
;Add User to group 
$objGroup = ObjGet("WinNT://" & $strComputer & "/Administrators,group")
$objGroup.Add($objUser.ADsPath)
;
;
; This is my custom error handler 
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 August 31, 2007 by CiS

[Bert]

You can do this by also using Net use:

Net use

[PsaltyDS]

Question sounds familiar...

There was this rakishly good looking flightless water fowl who posted a function called _UserCtrlAttribs(). That might work for you.

[CiS]

Sorry,just figured I wouldn't get much of a reply since the thread was so old...

I did see your response. Like I said in the post I really have no knowledge of scripting. Do I need all of that just to be able to set the password not to expire? That is the only thing that I cannot get working.

[PsaltyDS]

Sorry,just figured I wouldn't get much of a reply since the thread was so old...

I did see your response. Like I said in the post I really have no knowledge of scripting. Do I need all of that just to be able to set the password not to expire? That is the only thing that I cannot get working.

_UserCtrlAttribs is a generalized function that can be used control many attributes and thoroughly reports any errors. If you really want the bare minimum:

$sUsrName = "Fred.Flinstone"
Local $objUser = ObjGet("WinNT://./" & $sUsrName & ", User")
$objUser.Put ("UserFlags", BitOR($objUser.get ("UserFlags"), 0x10000))
$objUser.SetInfo

Edited August 31, 2007 by PsaltyDS

[CiS]

Sorry to put you to sleep but you just made my day!

Thank you VERY much. Have a good weekend....