显示AD中账户密码过期时间
有俩个脚本, 一本脚本用户搜索AD中所有的账户,生成一个alluser.txt作为后一个脚本的输入: '本脚本调用dsquery user命令获得AD中所有的用户账户名称 '将结果写入e:\allusers.txt文件中 '如果需要改变结果保存位置和名称,用新的文件名和路径替换e:\allusers.txt 'bob.xu@serviceit.com.cn Set objShell = CreateObject("Wscript.Shell") objShell.Run("%comspec% /k dsquery user -limit 500 >e:\allusers.txt") 第二个脚本检测所有用户账户的密码修改时间,判断密码是否过期,是否设置为密码永不过期, 结果生成一个csv,用excel直接打开就是一个完整的表格,具体如下: '本脚本用于检查AD中所有用户账户密码过期状态 '可以判断密码设置为“永不过期”,最近一次修改密码时间,密码已经过期等状态 '结果保存为e:\passstate.csv,用户可以按需要自行改变结果位置、名称 '本脚本的运行是以ALLUsers.vbs的结果为依据 '如果改变了ALLUsers.vbs的默认输出结果,请修改InFile后面的信息 'bob.xu@serviceit.com.cn On Error Resume Next Const