VBScript/ActiveDirectory/AddSidHistory の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• VBScript/ActiveDirectory/AddSidHistory へ行く。

#author("2021-11-25T23:52:32+09:00","","")
[[ソフトウェア開発>SoftwareEngineering]] / [[Active Directory>ActiveDirectory]] / [[AddSidHistory>./]]
#author("2021-11-26T00:12:38+09:00","","")
[[ソフトウェア開発>SoftwareEngineering]] / [[Active Directory>ActiveDirectory]] / [[SID履歴にSIDを追加する>./]]

*AddSidHistory [#d101a85e]
#highlightjs([VBScript])
 ' 
 ' SID履歴にSIDを追加する
 ' 
 ' 
 ' clonepr.dll
 '   DSUtils.ClonePrincipal
 ' 
 ' 
 
 
 
 ' 継承元のドメイン情報
 Const sourceDomainController = "source_computer_name"
 Const sourceDomainFQDN = "source.codereign.org"
 
 
 ' 継承先のドメイン情報
 Const targetDomainController = "target_computer_name"
 Const targetDomainFQDN = "target.codereign.org"
 
 
 ' SID履歴にSIDを追加することが可能なオブジェクトのインスタンスを生成する
 Set clonepr = CreateObject("DSUtils.ClonePrincipal")
 
 
 ' 継承元と継承先のドメインコントローラーに接続する
 clonepr.Connect sourceDomainController, sourceDomainFQDN, targetDomainController, targetDomainFQDN
 
 
 ' SID履歴にSIDを追加する
 clonepr.AddSidHistory "source_SAM_Account_Name", "target_SAM_Account_Name", 0