Jump to content

Recommended Posts

Posted

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.

Posted

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.

Posted

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

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Posted

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

Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

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
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...