Brian,

Works a treat!

Doc - Sure you could use AD, but I think this is simpler. [Big Grin]

If you want the VBScript version..

code:
Dim DomainString, UserObj,PwExpire,TodayDt,DtCalc,FmtDate

DomainString = "YOURDOMAIN"

lstrUserName = "servicesql"

Set UserObj = GetObject("WinNT://" & DomainString  & "/" & lstrUserName)

PwExpire = UserObj.PasswordExpirationDate
DtCalc = DateDiff("d",date,PwExpire) 
'TodayDt = Date
'DtCalc = FmtDate - TodayDt

If DtCalc <= 2 Then
wscript.echo "Please Change your servicesql password"
end if

wscript.echo "UserAuthor: " & UserObj.Name
wscript.echo "UserPasswordExpires: " & PwExpire
'wscript.echo TodayDt
wscript.echo DtCalc
Pieces are found at - http://cwashington.netreach.net/depo/view.asp?Index=198&ScriptType=vbscript

Thanks,

- Kent

[ 31 May 2002, 21:55: Message edited by: kdyer ]
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's