深圳升蓝软件
数据库开发 .Net技术  |  ASP技术 PHP技术 JSP技术 应用技术类   
Hiblue Software

送大家一个小脚本,非常实用。:)


March 25,2004
'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> <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

       
Copyright © 2001-2008 Shenzhen Hiblue Software Team All rights reserved