Запуск выполнения метода ExecuteKCC 
? ExecuteKCC ——————————————————————————————
If boolExecuteKCC Then
   Set objWMIInstances = objWMIServices.InstancesOf («MSAD_DomainController»)
...:
   If objWMIInstances.Count = 1 Then
      For Each objWMIInstance In objWMIInstances
          objWMIInstance.ExecuteKCC cExecKCCTaskID, cExecKCCFlags
      Next
      WScript.Echo «KCC execution requested.» & vbCRLF
   Else
      WScript.Echo «No information available.» & vbCRLF
   End If
End If