information.
'Full name, password expiration and age are displayed for users in the

status bar
'by passing mouse over username

On Error Resume Next
dim ie,doc

set ie = createobject("internetexplorer.application")
ie.navigate "about:blank"
ie.visible = true

set doc = ie.document

'HARD CODE YOUR DOMAIN NAME
'注意在下面填写上要查询用户的域的名字.:)
'否则不会正常工作的
domainname = "domainname"

write "<Table border=1 cellpadding=4 width=90% bgcolor=ffffcc><TR

Align=Center><TD valign=top> <B><Font Size=5 Color=Blue>User accounts

for " & UCASE(domainname) & "</B></Font></td></tr></table>"

doc.title=UCASE(domainname) & " - User Accounts"
Set oDomain = GetObject("WinNT://" & domainname)

'verify this is a valid domain
'If this code causes problems for a known good domain, comment out

everything
'up to and include end if
if oDomain.PasswordHistoryLength="" then
wscript.echo "There was an error connecting to " & domainname
write "<Font Color=Red> There was an error connecting to " &

domainname & "</Font>!<br>"
set ie=Nothing
wscript.quit
end if

ie.StatusText="Working......"

oDomain.Filter = Array("User")
strInfo="<Table border=0 cellpadding=5><TR><TD><B><Font

Size=3>Username</Font></B></TD><TD><B><Font

Size=3>Description</Font></B></TD><TD><B><Font Size=3>Logon

Script</Font></TD></B><TD><B><Font

Size=3>LastLogin</Font></B></TD></TR>"

For each oUser in oDomain
ie.StatusText="Working......"&oUser.Name
if oUser.PasswordExpirationDate="" then
pwexpire="Never"
else
pwexpire=oUser.PasswordExpirationDate
end if

detail=oUser.Fullname & " Password Expires:" & pwexpire & "

Password Age:"&FormatNumber(oUser.PasswordAge/86400,0) & " day(s)"
strInfo=strInfo & "<TR><TD><Font Size=2 color=blue

onmouseover="&CHR(34)&"status='"&detail&"'; "&CHR(34)&

"onmouseout="&CHR(34)&"status='Done';"&CHR(34)& ">" & oUser.Name &

"</Font></TD><TD><Font Size=2>" & oUser.Description &

"</Font></TD><TD><Font Size=2>" & oUser.LoginScript &

"</Font></TD><TD><Font Size=2>" & oUser.LastLogin & "</Font></TD></TR>"

Next

ie.StatusText="Formatting results......"

strInfo=strInfo & "</Table>"
write strInfo & "<br>"

write "<font size=1><I>" & Now & "</I></Font>"

set ie=Nothing
set doc=Nothing
wscript.quit

'******************
sub write(str)
doc.body.insertAdjacentHTML "beforeend", str
end sub

（出处：chinaasp.com）