Vbscript to create local Admin account and Password Never Expires

[Jpoandl]

Question: I would like to create a script that will be ran locally on a server. The script will create a user account with password. Then set the password not to Expire.

I am having problem with how to set the password not to expire. Any ideas?

strComputer = "."
Set colAccounts = GetObject("WinNT://" & strComputer & ",computer")
Set objUser = colAccounts.Create("user", "adminguy")
objUser.SetPassword "password123"

objUser.SetInfo


Joseph L. Poandl
MCSE 2003

If your company is in need of experts to examine technical problems/solutions, please check out

http://www.NJCOMPUTERNETWORKS.com

(Sales@njcomputernetworks.com)

 

[Jpoandl]

got it...

Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000

strComputer = "."
Set colAccounts = GetObject("WinNT://" & strComputer & ",computer")
Set objUser = colAccounts.Create("user", "userguy")
objUser.SetPassword "password1234"
objUser.Put "fullname", "bob kid"
objUser.Put "description", "Windows Account"
objPasswordExpirationFlag = ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo

Joseph L. Poandl
MCSE 2003

If your company is in need of experts to examine technical problems/solutions, please check out

http://www.NJCOMPUTERNETWORKS.com

(Sales@njcomputernetworks.com)