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

VBScript Discussion :

Création d'un script VBS avec VBS


Sujet :

VBScript

  1. #1
    Membre à l'essai
    Création d'un script VBS avec VBS
    Bonjour,
    Je voudrais savoir s'il est possible de créer un script VBS avec toutes les lignes de codes et dans un dossier précis avec un script VBS ?

    Je suis novice donc merci d'avance pour votre aide.

  2. #2
    Rédacteur/Modérateur

    Salut

    Je ne suis pas sûr d'avoir compris ... mais, tu veux faire un programme en VbScript qui en créerait un autre, si oui, pas de problème, il suffit de créer un fichier qui écrit des commandes et de le sauvegarder avec le type .vbs, tous ceci en VbScript.

    Intéresses toi à l'objet FileSystemObject qui permet de créer un fichier et de le sauvegarder.
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Membre à l'essai
    J'ai suivi la méthode du fichier texte. Est ce correct ?

  4. #4
    Rédacteur/Modérateur

    Oui

    Peux-tu nous faire voir le code ?
    Le fichier créé, que devient-il car il est inerte tant qu'il reste tout seul dans le dossier ou tu l'as sauvegardé.
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  5. #5
    Membre à l'essai
    Voila le code que j'ai actuellement. Il permet uniquement de créer le fichier VBScript vide.

    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
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    Dim fso, NewFichier
    ''objet_fso, server
     
    '*** Préparation de l'environnement
    Set fso = WScript.CreateObject("Scripting.FileSystemObject")
    'Set objet_fso = Server.CreateObject("Scripting.FileSystemObject")
     
    'FichierVBS = "C:\ProgramData\TestEcritureScript.vbs"
     
    '*** Execute les droits administrateurs pour créer le vbscript
     
    If Not WScript.Arguments.Named.Exists("elevate") Then
         CreateObject("Shell.Application").ShellExecute WScript.FullName _
           , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
         WScript.Quit
    End If
     
    FichierVBS = "C:\Windows\System32\GroupPolicy\User\Scripts\Logon\ScriptTest.vbs"
     
    '*** Création du fichier texte "C:\Windows\System32\...\Logon\Script.vbs"
    Set NewFichier = fso.CreateTextFile(FichierVBS,TRUE)
    'Set NewFichier = objet_fso.CreateTextFile(FichierVBS,TRUE)
     
    '*** Ajout de données dans la variable "data1".
    data1 = " Test de ..............."
     
    '*** Ecriture des données de la variable "data1" dans le fichier texte.
    NewFichier.WriteLine(data1)
     
    '*** Ajout de données dans la variable "data2".
    data2 = "Test de data2..."
     
    'data2 = "Ici les données data2 qui vont être écrite dans le fichier"
    NewFichier.WriteLine(data2)
     
    '*** Destruction des objets
    Set fso = Nothing
    'Set objet_fso = Nothing
     
    'WScript.Quit

  6. #6
    Membre à l'essai
    Le script va permettre de créer dans le dossier LOGON un script final .vbs qui doit contenir différente manipulation à faire faire à Windows pour au final monter des lecteurs.
    Il va se lancer à chaque démarrage de Windows.


    Le script va être envoyé à des personnes qui ne connaissent rien à l'informatique donc tout doit se passer avec un simple double clic.

###raw>template_hook.ano_emploi###