送大家一个小脚本，非常实用。：）
''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= |
查看所有评论