unmark manual

I need a vbs script that marks the automatic part and unmark the manual part.
I've made several attempts but can not find the correct code.
Someone can help me?

Parents

Dmisfatboy over 6 years ago

Here is a Basic Script. Not sure if this will help. Being your looking for vbs.

Manual

Dim DmisApp As Object
Dim DmisPart As Object
Dim DmisCommands As Object
Dim DmisCommand As Object

Sub Main
  Set DmisApp = CreateObject("PCDLRN.Application")
  Set DmisPart = DmisApp.ActivePartProgram
  Set DmisCommands = DmisPart.Commands
  DmisCommands.ClearMarked
  retval = DmisCommands.MarkAll(True)
  DmisPart.Execute
End Sub

DCC

Dim DmisApp As Object
Dim DmisPart As Object
Dim DmisCommands As Object
Dim DmisCommand As Object

Sub Main
  Set DmisApp = CreateObject("PCDLRN.Application")
  Set DmisPart = DmisApp.ActivePartProgram
  Set DmisCommands = DmisPart.Commands
  DmisCommands.ClearMarked
  retval = DmisCommands.MarkAll(False)
  DmisPart.Execute
End Sub

Reply

Dmisfatboy over 6 years ago

Here is a Basic Script. Not sure if this will help. Being your looking for vbs.

Manual

Dim DmisApp As Object
Dim DmisPart As Object
Dim DmisCommands As Object
Dim DmisCommand As Object

Sub Main
  Set DmisApp = CreateObject("PCDLRN.Application")
  Set DmisPart = DmisApp.ActivePartProgram
  Set DmisCommands = DmisPart.Commands
  DmisCommands.ClearMarked
  retval = DmisCommands.MarkAll(True)
  DmisPart.Execute
End Sub

DCC

Dim DmisApp As Object
Dim DmisPart As Object
Dim DmisCommands As Object
Dim DmisCommand As Object

Sub Main
  Set DmisApp = CreateObject("PCDLRN.Application")
  Set DmisPart = DmisApp.ActivePartProgram
  Set DmisCommands = DmisPart.Commands
  DmisCommands.ClearMarked
  retval = DmisCommands.MarkAll(False)
  DmisPart.Execute
End Sub

Children

No Data