Export non expiry password accounts

$CurrentDomain = [System.DirectoryServices.ActiveDirectory.Domain]::getcurrentdomain()
$Forest = $CurrentDomain.Forest.ToString()
$Forest = “dc=” + $Forest
$Forest = $Forest.Replace(“.”,”,dc=”)
$Root     = New-Object DirectoryServices.DirectoryEntry $Dom
$selector = New-Object DirectoryServices.DirectorySearcher
$selector.PageSize = 1000
$selector.SearchRoot = $root
$selector.Filter= “(&(objectClass=user)(userAccountControl:1.2.840.113556.1.4.803:=65536))”
$objs= $selector.findall()
$objs