VBS脚本 – 使用samAccountName访问LDAP用户对象

我正在尝试编写满足2个要求的VBScript：

1. 它解锁用户的帐户。
2. 它可以这样做，并使用samAccountName引用用户。

＃1的作品。 然而，我得到的下面的脚本只能引用用户完整的AD名称。

' UnlockUserAccount.vbs Option Explicit 'Get the arguments dim oArgs, strUser, strContainer set oArgs = WScript.Arguments strUser = "CN=" & trim(oArgs(0)) & "," strContainer = "OU=User Accounts,OU=Staff,OU=Org," ' Bind to Active Directory and get the user object dim objRootLDAP, objUser Set objRootLDAP = GetObject("LDAP://rootDSE") Set objUser = GetObject("LDAP://" & strUser & strContainer & objRootLDAP.Get("defaultNamingContext")) 'Unlock the user's account objUser.IsAccountLocked = False objUser.SetInfo Wscript.Quit(1) 

例如，假设我们有用户'bsmith'，其全名是Bill Smith。

我只能通过传递“Bill Smithi”作为用户来调用这个脚本。

• LDAPsearch和虚拟列表视图之间的区别
• DC发生故障时会发生什么？ 客户如何识别DC故障？
• 请求所有用户从一个特定的OU时Powershell等待更多的参数？
• 将服务器升级到域控制器时，本地用户和组会发生什么情况？
• 访问被拒绝的用户可以完全访问自己的文件夹中的某些文件

我如何参考通过“bsmith”的用户？ 我无法弄清楚这一点。

  get-aduser bsmith |Unlock-ADAccount