'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 "

Align=Center>

User accounts for " & UCASE(domainname) & "

"

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=""

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 & "

"

Next

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

strInfo=strInfo & "

Size=3>Username	Size=3>Description	Logon Script	Size=3>LastLogin
onmouseover="&CHR(34)&"status='"&detail&"'; "&CHR(34)& "onmouseout="&CHR(34)&"status='Done';"&CHR(34)& ">" & oUser.Name & "	" & oUser.Description & "	" & oUser.LoginScript & "	" & oUser.LastLogin & "

"

write strInfo & "
"

write "" & Now & ""

set ie=Nothing

set doc=Nothing

wscript.quit

'******************

sub write(str)

doc.body.insertAdjacentHTML "beforeend", str

end sub