Запишите локальное описание компьютера в AD

Question

У меня есть один сценарий, который записывает определенный текст в:

HKLM\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters

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("HKLM\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters\srvcomment")
...