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

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 ?