[R] Du VBS en AutoIt

[yoann]

Bonjour à tous,

J'ai besoin d'un petit coup de main, voici ci-dessous un script en VBS, et j'aimerais le convertir en au3.
quelqu'un peut il m'aider.

Code : Tout sélectionner

On Error Resume Next
Dim oCPAppletMgr
Set oCPAppletMgr = CreateObject("CPApplet.CPAppletMgr")

Dim oClientActions
Set oClientActions = oCPAppletMgr.GetClientActions()

Dim oClientAction
For Each oClientAction In oClientActions
     If oClientAction.Name = "Software Inventory Collection Cycle" Then
        oClientAction.PerformAction
    End If

     If oClientAction.Name = "Hardware Inventory Collection Cycle" Then
        oClientAction.PerformAction
    End If
Next
 

Merci d'avance de votre aide.
Yoann

[sylvanie]

Merci de mettre les balise [..] devant le titre de votre post

[TT22]

Bonjour,
D'abord, vous devriez lire les Règles de présentation d'un message sinon, le temps de vie de votre sujet est comptée
Ensuite, si le code fonctionne en VBS, pourquoi voulez-vous le convertir en AutoIt ?

[PandiPanda]

Bonjour,

Quelque lecture par pure information:

- ObjCreate()
- For...In...Next

Sinon, je vous propose ce script ci;

► Afficher le texte

Code : Tout sélectionner

Dim $oCPAppletMgr = ObjCreate("CPApplet.CPAppletMgr")
If not @error Then
    Dim $oClientActions=$oCPAppletMgr.GetClientActions()

    For $eachClient In $oClientActions
        If $eachClient.Name = "Software Inventory Collection Cycle" Then
            $eachClient.PerformAction
        ElseIf $eachClient.Name =  "Hardware Inventory Collection Cycle" Then
            $eachClient.PerformAction
        EndIf
    Next
Else
    MsgBox(64,'',"erreur de la création de l'objet")
EndIf

[yoann]

Re

Merci à tous de votre aide.
Désolé pour la présentation, j'espère avoir fait les rectifications nécessaires.
Par manque de temps je suis allé au plus vite.
Pourquoi en au3 au lieu de laissé en vbs, tout simplement que dans l'environnement dans lequel je vais exécuter mon script je ne peux ni embarquer d'autre fichier, ni le faire en vbs.

PandiPanda merci BCP cela fonctionne très bien.
Yoann

[PandiPanda]

de rien ^^
simplement si votre sujet est résolu, il faudrai mettre les balise adéquates, c'est à dire [R] ^^
*modifié le 1er message pour rendre ceci actif*

Quand vous avez le temps, lisez ceci en entier