Vbs script to Autioit

[vickerps]

Hi guys

Can someone help me convert this vbs script so that i can include it in my autoit script. I don't want to run it as a seperate script if i can help it.

The following is a vbs script for changing a user account "Password never expires setting"

strComputer = "."
strUser = "temp"
Set User = Getobject("WinNT://" & strComputer & "/" & strUser)
Flags = User.Get("UserFlags")
User.put "Userflags", flags OR &H10000
user.setinfo
Set User = nothing

This is my attempt to change it to autoit

$strComputer = "."
$strUser = "temp"
$User = ObjGet("WinNT://" & $strComputer & "/" & $strUser)
$Flags = $User.Get("UserFlags")
$User.put "Userflags", $flags OR "&H10000"
$user.setinfo
$User = "nothing"

It error on the $user.put line. Thanks in advance for any help.

[JLogan3o13]

Hi, vickerps. I suggest taking a look at Water's great It has a function in it to accomplish this (and many other AD tasks) easily.

[wakillon]

Try with parentheses

[vickerps]

Thanks for you help both of you. Although good to know Water's scripts are all based around AD. I am doing this on a Local system account and the AD script don't work.

I have tried wrapping brackets around $User.put("Userflags", $flags OR "&H10000") but no joy.

[BrewManNH]

Try this $User.put("Userflags", BitOr($flags, 0x10000)) as I believe the Or in there is a bitwise Or.

[UEZ]

This one works for me

#cs VBS code
strComputer = "."
strUser = "temp"
Set User = Getobject("WinNT://" & strComputer & "/" & strUser)
Flags = User.Get("UserFlags")
User.put "Userflags", flags OR &H10000
user.setinfo
Set User = nothing
#ce
Global $strComputer = "."
Global $strUser = "temp"
Global $oUser = ObjGet("WinNT://" & $strComputer & "/" & $strUser)
Global $flags = $oUser.Get("UserFlags")
$oUser.Put("UserFlags", BitOR($flags, 0x10000))
$oUser.SetInfo
Exit

Br,

UEZ

[vickerps]

Works perfectly! Thankyou all for the help very much appreciated