code:

---

 
break on
$nul=open(1,"c:\scriptlogic\kix2001.402\users.txt")
$line=readline(1)
while not @error
for each $user in split($line)
gosub calculate
next
$line=readline(1)
loop
exit

:calculate
Kent's code here 

---

code:

---

 
;$lstrusername = $user
$userobj = GetObject("WinNT://$LDomain/$user") 

---

code:

---

 
break on
$nul=open(1,"c:\users.txt")
$line=readline(1)
while not @error
for each $user in split($line)
gosub calculate
next
loop
$line=readline(1)
exit 

---

code:

---

$user=getobject("WinNT://@domain")
$user.filter="User",""
for each $user in $user
	? $user.name "	" $user.PasswordExpirationDate
next

---

code:

---

 
$user=getobject("WinNT://@domain")
$user.filter="User",""
for each $user in $user	
? $user.name "	" $user.PasswordExpirationDate
$tt = SPLIT($user.PasswordExpirationDate," ")
             $mdy = SPLIT($tt[0],"/")
             $expiredatearray = $mdy[2],$mdy[0],$mdy[1]
             $currentdatearray = "@YEAR","@MONTHNO","@MDAYNO"
                             
                              
             FUNCTION CalcDayofYear($ymdarray) ; Only works on non-millenium years after 2000.
                   $calendar = 31,28,31,30,31,30,31,31,30,31,30,31
                   IF VAL($ymdarray[0]) & 1 $ly = 0 ; leap year calculations
                   ELSE
                         IF (Val($ymdarray[0])/2) & 1 $ly = 0
                         ELSE 
                               $ly = 1
                         ENDIF
                   ENDIF
                   $calendar[1] = $calendar[1] + $ly
                   $mdays = 0
                   FOR $m = 0 TO (Val($ymdarray[1]) -2)
                         $mdays =  $mdays + $calendar[$m]
                   NEXT
                   $calcdayofyear = $mdays + $ymdarray[2]
             ENDFUNCTION

             $diffyears =  VAL($expiredatearray[0]) - VAL($currentdatearray[0])
             IF $diffyears > 0
                   $yearstodays = 0
                   FOR $countyear = VAL($currentdatearray[0]) TO (VAL($expiredatearray[0])-1)
                         $acountyear = $countyear,"12","31"
                         $yearstodays = $yearstodays + CalcDayofYear($acountyear)
                   NEXT
             ENDIF

             $daystoexpire = CalcDayofYear($expiredatearray) - CalcDayofYear($currentdatearray) + $yearstodays
             ?"Number of Days till password expires: " + $daystoexpire
next 

---

code:

---

$user=getobject("WinNT://@domain")
$user.filter="User",""
for each $user in $user
	? $user.name "	"
	$maxage = $user.MaxPasswordAge / (60*60*24)
	$psdage = $user.PasswordAge / (60*60*24)
	Select
	Case $maxage < $psdage
		"Password is expired."
	Case $maxage - $psdage <= 7
		"Password will expire in 7 days or less."
	Case 1
		"Password age within parameters."
	Endselect
next

---

...that should be worth a six-pack at least. Oh, import or domestic is fine.

[ 03 August 2002, 00:15: Message edited by: Chris S. ]

code:

---

 Set FSO = CreateObject("Scripting.FileSystemObject")
Set AFileStream = FSO.CreateTextFile("c:\pwexp.txt", True)

DomainName = InputBox("Enter the domain name in which the user account exists:", "Enter Domain Name")
Set Domain = GetObject("WinNT://" & DomainName)
Domain.Filter = Array("User")
For Each UserAccount In Domain
	AFileStream.WriteLine UserAccount.Name &"'s password will expire on " &UserAccount.PasswordExpirationDate
Next
AfileStream.Close


Set WSHShell = WScript.CreateObject("WScript.Shell") 
' Get a reference to the Word Application object.     
Set appWord = Wscript.CreateObject("Word.Application")    
appWord.Visible = TRUE    
appWord.Documents.Open("C:\pwexp.txt")  

---