SoftwareEngineering/ProgramLanguage/WSH/VBScript
'
' SID履歴をクリアする
'
Const ADS_PROPERTY_DELETE = 4
' SID履歴を削除するオブジェクトを取得する
set targetObject = GetObject("LDAP://target_computer_name.target.codereign.org/CN=TargetObject,CN=targetObjects,DC=target,DC=codereign,DC=org")
' SID履歴をすべて削除する
targetObject.PutEx ADS_PROPERTY_DELETE, "sIDHistory", targetObject.GetEx("sIDHistory")
targetObject.SetInfo