如何解决使用带有备用凭据的 VBScript
我知道 VBScript 大部分已经被 PowerShell 取代,但我仍然需要在一些遗留系统中支持它。我需要将本地用户添加到远程独立服务器上的本地组。因为远程服务器不在同一个 AD 域中,所以我需要在脚本中提供凭据。我知道脚本中的硬编码凭据不是最佳实践,但我需要证明在脚本中提供凭据时脚本可以工作。该脚本从远程服务器设置用户对象和组对象,但是当我尝试将用户添加到组时,我收到错误消息:
无法将成员添加到本地组或从本地组中删除,因为该成员不存在。
我使用 objDSO 连接到使用不同凭据的远程对象。这是我的代码:
Const ADS_SECURE_AUTHENTICATION = 1
Const ADS_USE_ENCRYPTION = 2
strGroup = "WinNT://Servername/group"
remoteUser = "WinNT://Servername/user1"
strUser = "admin"
strPassword = "password"
Set objDSO = GetObject("WinNT:")
Set objUser = objDSO.OpenDSObject(remoteUser,strUser,strPassword,ADS_SECURE_AUTHENTICATION OR ADS_USE_ENCRYPTION)
Set objGroup = objDSO.OpenDSObject(strGroup,ADS_SECURE_AUTHENTICATION OR ADS_USE_ENCRYPTION)
objGroup.Add(objUser.adspath)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。