With this example task you can check within, lets say: task A, whether task B is running or not.

This comes in handy when you have to wait for an other task to finish before you can have a task doing its job.


Task Steps: (Right click, Select All, Copy to copy to the clipboard. Steps can then be pasted into the AutoMate Task Builder)
<AMSCRIPT>Sub Main End Sub Public Function WaitUntilTaskEnds( cTaskName As String) While IsTaskRunning( cTaskName) = True DoEvents Wait 1 Wend End Function Public Function IsTaskRunning( cTaskName As String) As Boolean Dim objWMIService As Object Dim objProcess As Object Dim colProcess As Object Dim strComputer As String strComputer = &quot;.&quot; IsTaskRunning = False Set objWMIService = GetObject(&quot;winmgmts:&quot; _ & &quot;{impersonationLevel=impersonate}!\\&quot; _ & strComputer & &quot;\root\cimv2&quot;) Set colProcess = objWMIService.ExecQuery _ (&quot;Select commandline from Win32_Process where name='AMTask.exe'&quot;) For Each objProcess In colProcess If InStr( UCase( objProcess.CommandLine), UCase( cTaskName)) &gt; 0 Then IsTaskRunning = True End If Next End Function </AMSCRIPT> <AMVARIABLE NAME="cTask">read and scan large file fast</AMVARIABLE> <AMIF EXPRESSION="%IsTaskRunning( cTask)% = true"> <AMMESSAGEBOX>Task: %cTask% is running, I'm gonna wait til it ends!</AMMESSAGEBOX> <AMLOOPEXPRESSION EXPRESSION="%IsTaskRunning( cTask)%"> <AMPAUSE SCALAR="1"> </AMLOOP> <AMMESSAGEBOX>Task: %cTask% is not running anymore!</AMMESSAGEBOX> </AMIF>

-------------------------
Bart van Lagen
ICT Department.
St Jansdal Hospital
Harderwijk, Netherlands
Automate 7.1.1.0 / BPA 7.1.1.0
Windows 2003SP2SRV

The code looks fishy.  Did it not translate into the code section properly?   Will it work with all of the "& amp;" and "& quot;" codes?

Edited: 03/31/2006 at 07:14 AM by JohnWard

You can copy this code and paste it into the TaskBuilder of Automate. Than it works.

-------------------------
Bart van Lagen
ICT Department.
St Jansdal Hospital
Harderwijk, Netherlands
Automate 7.1.1.0 / BPA 7.1.1.0
Windows 2003SP2SRV