locked
Script VBS, création d'un fichier RRS feed

  • Question

  • Bonjour,

    J'essaie de créer un script VBS qui permettrait de créer un fichier texte avec le nom de l'ordinateur à l'intérieur.

    J'ai commencé avec cela :

     '***  Création de l'environnement

    Set Shell = CreateObject("wscript.Shell")
    Set env = Shell.environment("Process")

    strComputer = env.Item("Computername")

    '*** Destruction des objets

    Set Shell = Nothing
    Set env = Nothing

    WScript.Quit

    mais je ne sais pas quoi mettre pour la création du fichier texte avec le résultat à l'intérieur.

    Auriez-vous une idée?

    Merci


    Sébastien

    mercredi 27 avril 2016 11:24

Réponses

  • Voici ce que j'ai fais :

    Fichier .VBS :

    '*** Préparation de l'environnement
    Const ForAppending = 8
    Set fso = WScript.CreateObject("Scripting.FileSystemObject")
    FichierTXT = "C:\toto.txt"
    Set net = WScript.CreateObject("WScript.Network")
    Dim nameUSER
    nameUSER = net.username


    '*** Création du fichier texte "C:\toto.txt"
    Set NewFichier = fso.OpenTextFile(FichierTXT, ForAppending, True)

    '*** Ajout de données dans la variable "data".
    data = nameUSER

    '*** Ecriture des données de la variable "data" dans le fichier texte.
    NewFichier.WriteLine(data)

    '*** Destruction des objets
    Set fso = Nothing

    WScript.Quit


    Sébastien

    • Marqué comme réponse Emile Supiot lundi 2 mai 2016 08:59
    mercredi 27 avril 2016 13:21

Toutes les réponses

  • Bonjour,

    il y a plein d'idées possibles... Tout dépend de l'objectif final de ce script.

    La première étape, solution est d'afficher la valeur :

    wscript.echo "Nom de l'ordinateur: "&StrComputer

    La 2ème étape est de rediriger tous les affichages du script dans un fichier

    cscript.exe  Script.vbs >c:\temp\computer.txt

    Attention, le chemin est important, car l'utilisateur doit avoir le droit d'écrire sur ce chemin.

    A+


    Thierry DEMAN. Exchange MVP. MCSE:Messaging 2013,MCSE:Server Infrastructure 2012(83 MCPs). MCSA Office 365 https://mvp.microsoft.com/en-us/mvp/Thierry%20Deman-7660 http://base.faqexchange.info

    mercredi 27 avril 2016 12:26
  • Voici ce que j'ai fais :

    Fichier .VBS :

    '*** Préparation de l'environnement
    Const ForAppending = 8
    Set fso = WScript.CreateObject("Scripting.FileSystemObject")
    FichierTXT = "C:\toto.txt"
    Set net = WScript.CreateObject("WScript.Network")
    Dim nameUSER
    nameUSER = net.username


    '*** Création du fichier texte "C:\toto.txt"
    Set NewFichier = fso.OpenTextFile(FichierTXT, ForAppending, True)

    '*** Ajout de données dans la variable "data".
    data = nameUSER

    '*** Ecriture des données de la variable "data" dans le fichier texte.
    NewFichier.WriteLine(data)

    '*** Destruction des objets
    Set fso = Nothing

    WScript.Quit


    Sébastien

    • Marqué comme réponse Emile Supiot lundi 2 mai 2016 08:59
    mercredi 27 avril 2016 13:21
  • Thierry,

    L'objectif était de sensibiliser les personnes contre le phishing.

    Dans un premier temps, j'ai créé un script powershell, qui envoi un mail piège aux utilisateurs.

    Dans un second temps, si il clic sur le lien présent dans le mail (et via le .vbs) ci-dessus, je récupère le nom de l'utilisateur pour le sensibiliser d'avantage.

    Je suis content d'avoir réussi cela en tout cas.

    Merci


    Sébastien

    mercredi 27 avril 2016 13:44