'vbscript
'SetAltirisAdminPasswortNeverExpire
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Set objNetwork = wscript.CreateObject("wscript.network")
strComputer = objNetwork.Computername
strUser = "Altiris"
Set objUser = GetObject("WinNT://" & _
strComputer & "/" & strUser & ",User")
objUserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo