Création d'un script vbs avec un script en vbs

BRRG Messages postés 1137 Date d'inscription   Statut Membre Dernière intervention   -  
BRRG Messages postés 1137 Date d'inscription   Statut Membre Dernière intervention   -
J'ai souhaité avancer à côté le script permettant de créer le script dans Logon avec le reste du grand script. J'ai utilisé comme-ci dessous (la méthode du fichier txt) mais cela pas fonctionné. 

'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'	CREATION DU SCRIPT DANS SON EMPLACEMENT                                                                                                                                                                                                '
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'

'---- Déclaration des variables --------------------------------------------------------------------------------------------------------------------------------------------
Dim WSHNetwork, varUser, varPassword, bKey, WshShell, pKey, ObjetRegedit, hostsNewLine

'---- Préparation de l'environnement ---------------------------------------------------------------------------------------------------------------------------------------
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

'---- Exécution des droits administrateurs ---------------------------------------------------------------------------------------------------------------------------------
If Not WScript.Arguments.Named.Exists("elevate") Then
     CreateObject("Shell.Application").ShellExecute WScript.FullName _
       , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
     WScript.Quit
End If

'---- Emplacement du script vbs --------------------------------------------------------------------------------------------------------------------------------------------
FichierVBS = "C:\Windows\System32\GroupPolicy\User\Scripts\Logon\ScriptRéseaux.vbs"
msgbox "Coupure1" 

'---- Destruction des objets ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Set ObjetRegedit = Nothing

'---- Création du script vbs -----------------------------------------------------------------------------------------------------------------------------------------------
Set NewFichier = fso.CreateTextFile ("C:\Windows\System32\GroupPolicy\User\Scripts\Logon\ScriptTest.vbs", TRUE)
msgbox "Coupure2" 
'---- Ajout de données -----------------------------------------------------------------------------------------------------------------------------------------------------
'data1 = "Test de ..............."

'---- Ecriture des données de désactivation de l'UAC -----------------------------------------------------------------------------------------------------------------------
'NewFichier.WriteLine(data1)
NewFichier.WriteLine(
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'	DESACTIVATION DE L'UAC                                                                                                                                                                                                '
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
.
.
.
.
)


Puis je avoir votre aide ?
A voir également:

1 réponse

Réponse 1 / 1
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour,
"cela pas fonctionné": que se passe-t-'il?
as-tu essayé d'écrire quelque chose de plus simple, par exemple "bonjour"?
0
BRRG Messages postés 1137 Date d'inscription   Statut Membre Dernière intervention   4
 
Avec mon bonjour c'est bon. Ca ne fonctionne pas si je mets le gros script.
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > BRRG Messages postés 1137 Date d'inscription   Statut Membre Dernière intervention  
 
montre comment tu fais avec un texte de 2 ou 3 lignes.

pourquoi veux-tu automatiser la création un fichier vbs?
0
BRRG Messages postés 1137 Date d'inscription   Statut Membre Dernière intervention   4 > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
  
'*** Préparation de l'environnement
Set fso = WScript.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)

'*** 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

'WScript.Quit
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > BRRG Messages postés 1137 Date d'inscription   Statut Membre Dernière intervention  
 
et cela fonctionne bien?

pourquoi veux-tu automatiser la création un fichier vbs?
0
BRRG Messages postés 1137 Date d'inscription   Statut Membre Dernière intervention   4 > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
Ave ce script je voudrais créer le dernier script, qui est placé dans le dossier logon, pour que ca se lance seul au démarrage
0

Discussions similaires

recherche script "les visiteurs"
stoukboy -
brucine -

22 réponses