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.
Version imprimable
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.
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.
J'ai suivi la méthode du fichier texte. Est ce correct ?
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é.
Voila le code que j'ai actuellement. Il permet uniquement de créer le fichier VBScript vide.
Code:
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
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.