$UserAccount = "SomeUserAccount"
$wmiColl = GetObject("WinMgmts:root/cimv2").ExecQuery("Select * FROM Win32_UserAccount WHERE LocalAccount = True")
	
	For Each $wmiObj in $wmiColl
		If $wmiObj.Name = $UserAccount
			If $wmiObj.PasswordExpires <> 0
				"password Currently Expires" 
			EndIf
		EndIf	
	Next

$UserName = "SomeUserAccount"
$usr = GetObject("WinNT://" + @WKSTA + $UserName)
$oldFlags = $usr.Get("UserFlags")
"OldFlags = " + $oldFlags ?

$usr.Put("UserFlags", "66049")
@SERROR
$usr.SetInfo