VBS Local Admin Change Password Change Next Logon Disable

strComputer = "."
Set objUser = GetObject("WinNT://" & strComputer & "/obadmin,user")
objUser.SetPassword "Aa123456"
objUser.Put "PasswordExpired", 0
objUser.SetInfo