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
Any help please...
Regards
Rodney