查找Windows域未修改密码的用户 VBS

在公司中有时候有这样需求,有时候给了新员工开邮箱,设置了初始密码,并且都通知了他们修改密码。

但是部分人还是没有改,这样就有安全的问题了。

本文的VBS可以把域中的某个OU的未修改过密码的用户都查找出来。

find_pass.vbs

Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject(“ADODB.Connection”)
Set objCommand =   CreateObject(“ADODB.Command”)
objConnection.Provider = “ADsDSOObject”
objConnection.Open “Active Directory Provider”

……

下载地址:find_pass

解压密码:www.zhengda.me