Convert VBS to AU

[Valnurat]

Who could help me to convert this vbs to AuoIT?

expandcollapse popup

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
    if oClientAction.Name = "Software Metering Usage Report Cycle" then
        wscript.echo "Performing action " + oClientAction.Name 
        oClientAction.PerformAction
    end if
    if oClientAction.Name = "Updates Source Scan Cycle" then
        wscript.echo "Performing action " + oClientAction.Name 
        oClientAction.PerformAction
    end if
    if oClientAction.Name = "Request & Evaluate User Policy" then
        wscript.echo "Performing action " + oClientAction.Name 
        oClientAction.PerformAction
    end if
    if oClientAction.Name = "Hardware Inventory Collection Cycle" then
        wscript.echo "Performing action " + oClientAction.Name 
        oClientAction.PerformAction
    end if
    if oClientAction.Name = "Software Inventory Collection Cycle" then
        wscript.echo "Performing action " + oClientAction.Name 
        oClientAction.PerformAction
    end if
    if oClientAction.Name = "Application Global Evaluation Task" then
        wscript.echo "Performing action " + oClientAction.Name 
        oClientAction.PerformAction
    end if
    if oClientAction.Name = "Software Updates Assignments Evaluation Cycle" then
        wscript.echo "Performing action " + oClientAction.Name 
        oClientAction.PerformAction
    end if
    if oClientAction.Name = "Discovery Data Collection Cycle" then
        wscript.echo "Performing action " + oClientAction.Name 
        oClientAction.PerformAction
    end if
    if oClientAction.Name = "MSI Product Source Update Cycle" then
        wscript.echo "Performing action " + oClientAction.Name 
        oClientAction.PerformAction
    end if
    if oClientAction.Name = "Standard File Collection Cycle" then
        wscript.echo "Performing action " + oClientAction.Name 
        oClientAction.PerformAction
    end if
next

set oClientActions=nothing
set oCPAppletMgr=nothing

 

[mLipok]

Whether this is related to this:

https://www.autoitscript.com/forum/forum/34-system-center-configuration-manager/

and this:

 

 

??

 

[mLipok]

The conversion was quite easy:

expandcollapse popup

Local $oClientAction ; 'Individual client action.
Local $oClientActions ; 'A collection of client actions.
Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")

; 'Get the Control Panel manager object.
Local $oCPAppletMgr = ObjCreate("CPApplet.CPAppletMgr")
If @error Then
    ConsoleWrite("Couldn't create control panel application manager")
    Exit
EndIf

; 'Get a collection of actions.
$oClientActions = $oCPAppletMgr.GetClientActions

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

    If $oClientAction.Name = "Request & Evaluate Machine Policy" Then
        ConsoleWrite("Performing action " & $oClientAction.Name)
        $oClientAction.PerformAction
    EndIf
    If $oClientAction.Name = "Software Metering Usage Report Cycle" Then
        ConsoleWrite("Performing action " & $oClientAction.Name)
        $oClientAction.PerformAction
    EndIf
    If $oClientAction.Name = "Updates Source Scan Cycle" Then
        ConsoleWrite("Performing action " & $oClientAction.Name)
        $oClientAction.PerformAction
    EndIf
    If $oClientAction.Name = "Request & Evaluate User Policy" Then
        ConsoleWrite("Performing action " & $oClientAction.Name)
        $oClientAction.PerformAction
    EndIf
    If $oClientAction.Name = "Hardware Inventory Collection Cycle" Then
        ConsoleWrite("Performing action " & $oClientAction.Name)
        $oClientAction.PerformAction
    EndIf
    If $oClientAction.Name = "Software Inventory Collection Cycle" Then
        ConsoleWrite("Performing action " & $oClientAction.Name)
        $oClientAction.PerformAction
    EndIf
    If $oClientAction.Name = "Application Global Evaluation Task" Then
        ConsoleWrite("Performing action " & $oClientAction.Name)
        $oClientAction.PerformAction
    EndIf
    If $oClientAction.Name = "Software Updates Assignments Evaluation Cycle" Then
        ConsoleWrite("Performing action " & $oClientAction.Name)
        $oClientAction.PerformAction
    EndIf
    If $oClientAction.Name = "Discovery Data Collection Cycle" Then
        ConsoleWrite("Performing action " & $oClientAction.Name)
        $oClientAction.PerformAction
    EndIf
    If $oClientAction.Name = "MSI Product Source Update Cycle" Then
        ConsoleWrite("Performing action " & $oClientAction.Name)
        $oClientAction.PerformAction
    EndIf
    If $oClientAction.Name = "Standard File Collection Cycle" Then
        ConsoleWrite("Performing action " & $oClientAction.Name)
        $oClientAction.PerformAction
    EndIf
Next

$oClientActions = Null
$oCPAppletMgr = Null

; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

 

Is this what you need ?

[Valnurat]

Yes, It was.

Thank you

Btw. When is the func _ErrFunc used?

 

Edited April 13, 2016 by Valnurat

[Juvigy]

38 minutes ago, Valnurat said:

Yes, It was.

Thank you

Btw. When is the func _ErrFunc used?

 

On the third line of the script. When an object error is triggered - the error function is executed.

[Valnurat]

Thank you.

[Valnurat]

I have a issue with this. When I run it I get an error while trying to create the control panel for application manager.

Can someone help me with why.

; 'Get the Control Panel manager object.
Local $oCPAppletMgr = ObjCreate("CPApplet.CPAppletMgr")
If @error Then
    ConsoleWrite("Couldn't create control panel application manager")
    Exit
EndIf

 

[JLogan3o13]

@Valnurat it works fine for me if I run as 64bit,  which you may need to do depending on the version of Config Mgr. you're running.

 

#AutoIt3Wrapper_UseX64 = Y

; 'Get the Control Panel manager object.
Local $oCPAppletMgr = ObjCreate("CPApplet.CPAppletMgr")
If @error Then
    ConsoleWrite(@error & " Couldn't create control panel application manager" & @CRLF)
    Exit
Else
    If IsObj($oCPAppletMgr) Then ConsoleWrite("Object created" & @CRLF)
EndIf

 

[Valnurat]

Yes, that was the problem.

Thank you.