将本地计算机说明写入AD

Question

我有一个脚本可以将特定文本写入：

HKLMSYSTEMCurrentControlSetServicesLanmanServerParameters
srvcomment

然后我想要的是将注册表项发送到Active directory计算机描述中。

如果需要的话，我可以将注册表项拉到文本或CSV文件中。

我也可以使用以下方法写入活动目录：

Option Explicit
Dim objSysInfo, strComputerDN, objComputer, strDescr
' Retrieve DN of local computer object in AD.
Set objSysInfo = CreateObject("ADSystemInfo")
strComputerDN = objSysInfo.ComputerName
' Bind to the computer object in AD.
Set objComputer = GetObject("LDAP://" & strComputerDN)
' Assign description and save.
objComputer.description = "test2"
objComputer.SetInfo

然而，这只会输入您所写的内容：objComputer.description="test2">

我想做的是从注册表中提取信息并将其发送到Active Directory。

Answer 1

您唯一缺少的就是从注册表中读取值：

...
Set objShell = WScript.CreateObject("WScript.Shell")
objComputer.description = objShell.RegRead("HKLMSYSTEMCurrentControlSetServicesLanmanServerParameterssrvcomment")
...