How to monitor a SMS Machine Policy Retrieval & Evaluation Cycle

Hi, i am after a vbscript method to monitor when a Machine Policy Retrieval &
Evaluation Cycle is in progress, because it can take several minitues to
complete I would like my script to wait until the process has completed
before continuing.

This is the code used to start the process:

On Error Resume Next

Dim oCPAppletMgr 'Control Applet manager object.
Dim oClientAction 'Individual client action.
Dim oClientActions 'A collection of client actions.

'Get the Control Panel manager object.
Set oCPAppletMgr = CreateObject("CPApplet.CPAppletMgr")
If Err.Number <> 0 Then
Wscript.Echo "Couldn’t create control panel application manager"
WScript.Quit
End If

'Get a collection of actions.
Set oClientActions = oCPAppletMgr.GetClientActions
If Err.Number <> 0 Then
WScript.Echo "Couldn’t get the client actions"
Set oCPAppletMgr = Nothing
WScript.Quit
End If

'Display each client action name and perform it.
For Each oClientAction In oClientActions

If oClientAction.Name = "Request & Evaluate Machine Policy" Then
WScript.Echo "Performing action " + oClientAction.Name
oClientAction.PerformAction
End If
Next


Set oClientActions = Nothing
Set oCPAppletMgr = Nothing

any help would be great.

Regards
Rodney

has no one have an answer to this problem, it can be Visual Basic code or
VBScript but I need a way to tell when the Machine Policy Retrieval &
Evaluation Cycle starts, stops or is running.

Any help please...

Regards
Rodney