如何使用变量作为PUT的用户名对象，通过VBS修改AD属性？

Question

我知道标题有点令人困惑。这是当前代码的片段：

Set objSysInfo = CreateObject("ADSystemInfo") 

On Error Resume Next
Set oShell = CreateObject( "WScript.Shell" )
comp=oShell.ExpandEnvironmentStrings("%ComputerName%")

Set objUser = GetObject("LDAP://" & objSysInfo.Username) 
user = WScript.Arguments.Named("current_user")
Set objUser = user

total = Now & " - " & comp

objUser.Put "info", total
objUser.SetInfo

此脚本的目的（从其他人的脚本修改）是使用时间戳和计算机名更新AD用户的“notes”属性。我还设置了一个计划任务，在解锁时执行此操作，因此它可以为我们提供整个环境中用户的实时图片。

我正在根据CONSOLE会话的explorer.exe进程从读取CURRENT用户的批处理文件传递变量“user”。我需要此用户在此vbs脚本的末尾用于PUT操作。

我该怎么做？

我已经尝试过直接设置它，正如您在脚本中看到的那样。我也试过做同样的事情，但是评论出来了：

Set objUser = GetObject("LDAP://" & objSysInfo.Username)

似乎没什么用。 任何想法都表示赞赏！谢谢！