Création d'un script VBS avec VBS

Version imprimable

20/11/2020, 20h16
BRRNG37

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.
20/11/2020, 20h42
ProgElecT

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.
20/11/2020, 20h44
BRRNG37

J'ai suivi la méthode du fichier texte. Est ce correct ?
20/11/2020, 22h33
ProgElecT

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

21/11/2020, 16h31
BRRNG37

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.