Vbscript 登录脚本，从AD中提取用户电话号码，然后在HKCU中使用该值创建注册表项

我试图创建一个登录脚本，从active directory中提取已登录用户的电话分机，然后我想获取该变量并使用它在HKCU\software\中创建一个具有该分机号码的注册表字符串值

我可以创建注册表项，并从AD中提取数据，但如何将AD中的信息传递到我的注册表项中却让我感到困惑

扩展示例是1234，我想创建一个注册表值

HKCU\software\shoreline teleworks\shoreware client\AgentID，“1234”

谢谢你的帮助

脚本1

Dim objSysInfo, objUser
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
set strtelno = objuser.telephonenumber ' Currently logged in User

脚本2

Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\shoreline teleworks\shoreware client\"
KeyPath = "SOFTWARE\shoreline teleworks\shoreware client"
strValueName = "AgentID"
strValue = "1234"
objRegistry.CreateKey HKEY_CURRENT_USER, strKeyPath, strvaluename, strvalue

---

从表面上看，你很接近。Try（未测试的代码）：

Dim objSysInfo，objUser
Set objSysInfo=CreateObject（“ADSystemInfo”）
设置objUser=GetObject（“LDAP://”&objSysInfo.UserName）
设置strtelno=objuser.telephonenumber“当前登录的用户”
Const HKEY_当前用户=&H80000001
strComputer=“”
Set objRegistry=GetObject（“winmgmts:\\”&strComputer&“\root\default:StdRegProv”）
strKeyPath=“软件\shoreline teleworks\shoreware客户端”
KeyPath=“软件\shoreline teleworks\shoreware客户端”
strValueName=“AgentID”
strValue=strtelno'向我们展示您迄今为止所做的工作，我们可能会提供帮助。所以我不是来为你写整个剧本的。到目前为止，基本上我有两个剧本。一个从AD提取，另一个从AD提取创建注册表项Dim objSysInfo，objUser Set objSysInfo=CreateObject（“ADSystemInfo”）Set strtelno=objUser.TENALENUMBER'当前登录用户Set objUser=GetObject（“LDAP://”&objSysInfo.UserName）Const HKEY\U CURRENT\U User=&H80000001 strComputer=“.”Set objRegistry=GetObject(“winmgmts:\\”&strComputer&“\root\default:StdRegProv”）strKeyPath=“SOFTWARE\shoreline teleworks\shoreware client\”KeyPath=“SOFTWARE\shoreline teleworks\shoreware client”strValueName=“AgentID”strValue=“1234“objRegistry.CreateKey HKEY_当前_用户、strKeyPath、strvaluename、strvalueI似乎不知道如何将这两个脚本绑定在一起，也许我只是还没有喝足够的咖啡：）vbsedit为此提供了一个很好的脚本集合。非常感谢你的帮助，我不得不对你的建议做一些调整，但我成功了！你是个救生员，现在我不必再碰200多台电脑了
Dim objSysInfo, objUser
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
set strtelno = objuser.telephonenumber ' Currently logged in User

Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\shoreline teleworks\shoreware client\"
KeyPath = "SOFTWARE\shoreline teleworks\shoreware client"
strValueName = "AgentID"
strValue = strtelno ' <-- This sets the Telephone Number
objRegistry.CreateKey HKEY_CURRENT_USER, strKeyPath, strvaluename, strvalue