送大家一个小脚本，非常实用。：）

'User-ie.vbs
'v2.6 Jeffery Hicks
'jhicks@solutechinc.com
'USAGE: cscript|wscript user-ie.vbs
'DESC: create on the fly HTML page in IE showing user account
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> User accounts
for " & UCASE(domainname) & "</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 " There was an error connecting to " &
domainname & "! "
set ie=Nothing
wscript.quit
end if
ie.StatusText="Working......"
oDomain.Filter = Array("User")
strInfo="<Table border=0 cellpadding=5><TR><TD>Username</TD><TD>Description</TD><TD>Logon
Script</TD><TD><Font

补充：asp教程,远程脚本