Meilleur auteur de réponses
Script VBS, création d'un fichier

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.Quitmais 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.QuitSé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.QuitSé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