IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Code VB6 pour éxecuter simplement un script vbs


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    Septembre 2007
    Messages
    7
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2007
    Messages : 7
    Par défaut Code VB6 pour éxecuter simplement un script vbs
    Comment puis-je en code VB6 simple, lancer l'execution d'un script écrit dans un fichier.vbs ?
    Merci....

  2. #2
    Membre émérite
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    730
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 730
    Par défaut
    Par le biais d'un shell à mon avis, comme un batch

  3. #3
    Membre Expert
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Octobre 2006
    Messages
    1 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : Argentine

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Finance

    Informations forums :
    Inscription : Octobre 2006
    Messages : 1 173
    Par défaut
    I_strVBScriptCode est le contenu du .vbs (textuellement)
    I_strProcedureName est la procédure recherchée pour exécution

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    Dim objVbsc As New MSScriptControl.ScriptControl
    Dim objProc As Procedure
    Dim blnResult As Boolean
    Dim blnFound As Boolean
     
        If Not objVbsc Is Nothing Then
            With objVbsc
                .Language = "VBScript"
                .Reset
                .Timeout = -1
                .AllowUI = True
                .AddCode I_strVBScriptCode
     
                'Rechercher la procédure
                blnFound = False
                For Each objProc In .Procedures
                    If StrComp(objProc.Name, I_strProcedureName, vbTextCompare) = 0 Then
                        blnFound = True
                        Exit For
                    End If
                Next objProc
                If blnFound Then
                    blnResult = CBool(.Run(I_strProcedureName))
                Else
                    'Pas de procédure trouvée
                End If
            End With
        End If

  4. #4
    Membre émérite Avatar de avigeilpro
    Homme Profil pro
    Ambulancier
    Inscrit en
    Janvier 2004
    Messages
    880
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Creuse (Limousin)

    Informations professionnelles :
    Activité : Ambulancier
    Secteur : Transports

    Informations forums :
    Inscription : Janvier 2004
    Messages : 880
    Par défaut
    Bonjour et bienvenu, si tu pouvais renommer ton post (ex : "Executer un script VB"), ca serait bien
    La connaissance seule ne suffit pas. La vraie compréhension vient de la mise en expérience.
    Règles|FAQ|Tuto

Discussions similaires

  1. Code VB6 pour referencer deux tables dans un formulaire
    Par mianiser dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 04/02/2011, 14h28
  2. Réponses: 2
    Dernier message: 10/12/2010, 23h41
  3. Aide pour réaliser un petit script vbs
    Par gogéta91 dans le forum VBScript
    Réponses: 1
    Dernier message: 04/08/2008, 13h33
  4. Réponses: 2
    Dernier message: 19/07/2005, 14h14
  5. [VB6] Code source pour modifier MsgBox
    Par khany dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 25/02/2003, 15h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo