Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.
I'm obviously just learning vbs and don't full understand what I've put together or whether or not it will do what is needed which is:
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000 strComputer = "." Set colAccounts = GetObject("WinNT://" & strComputer & "") Set objUser = colAccounts.Create("user", "TestUser") objUser.SetPassword "password" objPasswordExpirationFlag = ADS_UF_DONT_EXPIRE_PASSWD objUser.Put "userFlags", objPasswordExpirationFlag objUser.SetInfo Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group") objGroup.Add(ObjUser.ADsPath) set objGroup = Nothing
Join the community of 500,000 technology professionals and ask your questions.