strTitle="Make Temp Password"
strUsername=InputBox("What is the user's accountname?",strTitle,_
"jhicks")
strTempPass=strReverse(Second(Now) & "/" & Year(Now)) '
strTempPass=strTempPass & UCase(Mid(strUsername,3,1))
strTempPass=strTempPass & StrReverse(strUsername)

WScript.Echo "The temporary password is " & strTempPass